Syntax zum Thema Blattnamen
Jörg-HH
in meiner Datei heißen einige Blätter frei1, frei2 usw. bis frei17. Diese sollen mit einem Button zu Testzwecken öfter mal in Lief1, Lief2 usw. umbenannt werden können (und auch wieder zurück).
In meinem Code bekomme ich aber gemeldet "Index außerhalb des gültigen Bereichs"
im Blatt:
Private Sub CmdBt_int_LiefErzeugen_Click()
Me.CmdBt_int_LiefErzeugen.Enabled = False
mod_StElem_Allgemein.CmdBt_int_LiefErzeugen
Me.CmdBt_int_LiefErzeugen.Enabled = True
End Sub
Public Sub CmdBt_int_LiefErzeugen()
Dim i As Variant
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Worksheets("Formular").CmdBt_int_LiefErzeugen.Caption = "intern : Lieferanten erzeugen" Then
For i = 1 To 17
ThisWorkbook.Worksheets("frei" & i).Name = ThisWorkbook.Worksheets("Lief" & i).Name
Next i
Worksheets("Formular").CmdBt_int_LiefErzeugen.Caption = "intern : Lief. zurücksetzen"
...usw...
End Sub
Danke für 'ne Idee...
Jörg