|
Hallo,
Aufgebenstellung:
Mustertabellenblatt soll kopiert werden per button.
Tabellenblätter >>> [Mustertabellenblatt] [Start] [Kopie mit neuer Nr]
Auf dem Blatt "Start" ist der Button mit dem Makro.
Makro soll "Musterblatt" kopieren und nach dem Blatt "Start" einfügen >>>Sheets("Kassenbuchmuster").Copy after:=ActiveSheet
Dann soll eine Nr. aus dem Musterblatt mit 1 addiert werden und als Tabellenblattname für die Kopie genommen werden.
>>>ActiveSheet.Name = Sheets("Kassenbuchmuster").Range("J3") + 1
das Geht auch alles aber nur wenn alle anderen Blätter gelöscht wurden und nur Musterblatt und Start existieren.
dh. ich betätige das Makro dann wird das neue Blatt mit dem Namen 55001 erstellt und bei zweiten mal wenn ich den Button betätige gibt es eine fehlermeldund.
Sub Button_1()
Dim i As String
Sheets("Kassenbuchmuster").Copy after:=ActiveSheet
Sheets("Kassenbuchmuster").Select
i = Range("J3")
i = i + 1
Sheets("Kassenbuchmuster (2)").Select
ActiveSheet.Name = i <<<<<<<<<<<<<<<<<<<<<< hier ist der fehler WARUM ???
End Sub
|