Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 4 von 4

Thema: Hilfe bei einem Ecxel 2003 Skript

  1. #1
    Registriert seit
    30.05.2009
    Ort
    Lindenberg im schönen Allgäu
    Beiträge
    53
    Danke
    48
    Erhielt 20 Danke für 11 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Liebe Gemeinde,

    ich hoffe die Rubrik Stammtisch ist die Richtige für mein Problem. Ich bin gerade dabei mir eine kleine Stundenerfassung für meine Indianer in Excel 2003 zu Basteln. Dies Funktioniert Soweit auch ganz gut.

    Nun zu meinem Problem. In meiner Stundenerfassung wird nach dem Stunden schreiben auf die Taste „Buchen“ gedrückt, diese Taste führt ein von mir geschriebenes VBA Skript mit der Funktion: Durchsuchen Tabellenblatt Stammdaten à erste freie Zeile gefunden à Daten aus Tabellenblatt Stundenerfassung in Tabellenblatt Stammdaten Kopieren. Dies Funktioniert auch super. Das Problem ist nun, dass Tabellenblatt Stammdaten hätte ich gerne Schreibgeschützt damit keiner mehr was ändern kann. Leider wird das Skript im Schreibgeschützten Zustand mit dem Fehler „Die Zeile oder das Diagramm in das Sie schreiben wollen ist schreibgeschützt“ abgebrochen.

    Gibt es einen Befehl den ich in mein VBA Skript einfügen kann der mir den Schreibschutz während des Schreibens aufhebt? Oder sonst eine Lösungsansatz den ich übersehe?

    Hier mal mein Code.

    Code:
    Public Sub KopierenStundenerfassung()
    
    Dim WkSh_Q  As Worksheet
    Dim WkSh_Z  As Worksheet
    
       Set WkSh_Q = ThisWorkbook.Worksheets("Stundenerfassung")
       Set WkSh_Z = ThisWorkbook.Worksheets("Stammdaten")
       
       WkSh_Q.Range("A12:F41").Copy
       WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
       Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       Application.CutCopyMode = False
    
    End Sub
    Vielen Dank für die Hilfe

    Liebe Grüße ausm Allgäu
    Geändert von Sps-rookie (21.08.2015 um 08:06 Uhr) Grund: Überschift Falsch
    Siemens Step 7 5.5
    Siemens Logo
    Siemens WinCC Felxibel 2008

    Carel 1tool
    Carel Easytool

    Beijer iX Developer 2.10
    Zitieren Zitieren Hilfe bei einem Ecxel 2003 Skript  

  2. #2
    Registriert seit
    12.07.2005
    Ort
    Bärlin
    Beiträge
    957
    Danke
    239
    Erhielt 156 Danke für 108 Beiträge

    Standard

    Moin,

    sollte so gehen:

    .....
    ActiveSheet.Unprotect
    ..Code...
    ActiveSheet.Protect
    .....

    Gruß

    Holger

  3. Folgender Benutzer sagt Danke zu knabi für den nützlichen Beitrag:

    Sps-rookie (21.08.2015)

  4. #3
    Registriert seit
    30.05.2009
    Ort
    Lindenberg im schönen Allgäu
    Beiträge
    53
    Danke
    48
    Erhielt 20 Danke für 11 Beiträge

    Standard

    Vielen Dank Holger So hat es funktioniert.

    Hier noch für die Nachwelt

    Code:
    Public Sub KopierenStundenerfassung()
    
    ThisWorkbook.Worksheets("Stammdaten").Unprotect Password:="A"
    
    Dim WkSh_Q  As Worksheet
    Dim WkSh_Z  As Worksheet
    
       
       Set WkSh_Q = ThisWorkbook.Worksheets("Stundenerfassung")
       Set WkSh_Z = ThisWorkbook.Worksheets("Stammdaten")
       
       WkSh_Q.Range("A12:F41").Copy
       WkSh_Z.Range("A" & WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
       Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
       Application.CutCopyMode = False
    
    ThisWorkbook.Worksheets("Stammdaten").Protect Password:="A"
    
    End Sub
    Das ist mal ein erfolgreicher Start in den Tag

    Grüße Tobi
    Siemens Step 7 5.5
    Siemens Logo
    Siemens WinCC Felxibel 2008

    Carel 1tool
    Carel Easytool

    Beijer iX Developer 2.10

  5. #4
    Registriert seit
    12.07.2005
    Ort
    Bärlin
    Beiträge
    957
    Danke
    239
    Erhielt 156 Danke für 108 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    ...und das so kurz vor dem Wochenende....

    Gruß

    Holger

Ähnliche Themen

  1. Brauche dringend hilfe bei einem funktionsplan
    Von JennyMT im Forum Simatic
    Antworten: 23
    Letzter Beitrag: 31.01.2013, 08:12
  2. Brauche Hilfe bei einem Programm!!!
    Von Jumpinjack im Forum Simatic
    Antworten: 52
    Letzter Beitrag: 17.11.2010, 19:23
  3. Suche Hilfe bei einem Problem
    Von würgi im Forum Simatic
    Antworten: 12
    Letzter Beitrag: 25.10.2010, 23:06
  4. Brauche Hilfe bei einem Programm
    Von Arnold999 im Forum Simatic
    Antworten: 1
    Letzter Beitrag: 11.06.2010, 10:51
  5. Brauche Hilfe bei einem S5 Programm
    Von Mellymaus23 im Forum Simatic
    Antworten: 8
    Letzter Beitrag: 12.09.2009, 16:43

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •