AW: Veränderliche Bezeichnung eines Tabellenblattes
04.07.2007 16:44:40
Salim
Vielen Dank!
Es funktioniert aber ich habe jetzt ein anderes Problem mit meinem Code: Es kommt eine Fehlermeldung dass der Pastespecial-Befehl (Fett im Code) nicht ausgeführt werden kann. Ich bin ratlos.
Wäre sehr dankbar für einen Feedback.
Private Sub CommandButton1_Click()
Me.Hide
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Dim WkSh As Worksheet
For Each WkSh In ActiveWorkbook.Worksheets
If WkSh.Name = Date Then
Sheets("Abrechnungsplan").Select
Cells.Select
Range("A525").Activate
Selection.Copy
Application.CutCopyMode = False
Sheets(CStr(Date)).Select
Sheets(CStr(Date)).Unprotect
Cells.Select
Range("A525").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells.Select
Range("A525").Activate
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect
Sheets("Abrechnungsplan").Protect
ActiveWorkbook.Protect
Range("A525").Select
Exit Sub
End If
Next WkSh
Sheets("Abrechnungsplan").Select
Sheets("Abrechnungsplan").Copy Before:=ActiveSheet
Sheets("Abrechnungsplan (2)").Select
ActiveSheet.Name = Date
Cells.Select
Range("A525").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Shapes("CommandButton2").Select
Selection.Cut
ActiveSheet.Shapes("CommandButton1").Select
Selection.Cut
Cells.Select
Range("A525").Activate
Application.CutCopyMode = False
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect
Sheets("Abrechnungsplan").Protect
ActiveWorkbook.Protect
Range("A525").Select
End Sub