Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arbeitsblatt kopieren; Name +1

Arbeitsblatt kopieren; Name +1
30.01.2017 16:24:14
Daniel
Hallo liebe Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitsblatt kopieren; Name +1
30.01.2017 17:26:42
Hajo_Zi
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


Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige