Hallo,
ich möchte gern das Worksheet "Übersicht" kopieren und mit dem Betätigen des Makros das Worksheet umbenennen in Test 1. Beim nächsten starten des Makros soll das Worksheet Test 2 heißen, dann Test 3, usw....
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
Sub CopyWs()
Dim NewName As String
Dim WsNo as Long
ActiveSheet.Copy Before:=ActiveSheet
NewName = "Test " & WsNo + 1
WsNo = WsNo + 1
ActiveSheet.Name = NewName
End Sub
Vielen Dank für die Hilfe.
|