Ziel war es das Arbeitsblatt "Übersicht" mehrfach zu kopieren und mit dem Betätigen des Makros die Arbeitsblätter umzubenennen in Test 1, Test 2, Test 3,...
Leider funktionierte der Zähler nicht.
Bei der Lösung heißt das erste Blatt Test 1 und danach wird der Fehler angezeigt, dass der Blattname bereits existiert. Ich habe es eben schon mit Count und if then probiert. Aber kriege es nicht hin, dass er nur die neuen Arbeitsblätter Test hochzählt :-( doch nicht so banal wie ich dachte
Hallo Daniel,
Dim LoZahl as Long
Sub CopySheet()
Dim NewName As String
Dim i As Integer
ActiveSheet.Copy Before:=ActiveSheet
NewName = "Test " & LoZahl+1
LoZahl=lozahl+1
ActiveSheet.Name = NewName
End Sub
Vielen Dank für eure Hilfe
Daniel