Arbeitsblatt kopieren; Name +1
30.01.2017 16:24:14
Daniel
ich versuche mich mal wieder :-) Ein Arbeitsblatt soll kopiert werden und den Namen Test 1 erhalten. Drücke ich den Button erneut soll es mit Test 2 benannt werden. Kriege die Schleife mit dem hochzählen einfach nicht hin.
Sub CopySheet()
Dim NewName As String
Dim i As Integer
ActiveSheet.Copy Before:=ActiveSheet
i = 1
NewName = "Test " & i
ActiveSheet.Name = NewName
End Sub
Wäre SEHR dankbar, wenn jemand weiterhelfen könnte.
Danke
Daniel
Anzeige