Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Fortlaufende Nummerierung von TB-Kopie

Fortlaufende Nummerierung von TB-Kopie
06.01.2022 14:37:02
TB-Kopie
Hallo Zusammen,
ich habe eine Funktion, die ein Tabellenblatt kopiert und in derselben Datei einfügt:
Sheets("Liste").Select
Sheets("Liste").Copy Before:=Sheets(6)
Sheets("Liste (2)").Select
Sheets("Liste (2)").Name = "KopieListe"
Bisher wird nur eine Kopie erstellt die "KopieListe" heißt.
Ist es möglich, eine fortlaufende Nummerieung der Kopien zu erstellen? also "KopieListe1", "KopieListe2", "KopieListe3",...usw.
Danke &
Viele Grüße
Basti
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fortlaufende Nummerierung von TB-Kopie
06.01.2022 15:20:40
TB-Kopie
Hallo Basti,
teste mal:

Option Explicit
Public Sub Test()
Const SHEET_NAME As String = "KopieListe"
Dim objWorksheet As Worksheet
Dim lngCount As Long
For Each objWorksheet In ThisWorkbook.Worksheets
If objWorksheet.Name Like SHEET_NAME & "*" Then lngCount = lngCount + 1
Next
Worksheets("Liste").Copy Before:=Sheets(6)
ActiveSheet.Name = SHEET_NAME  & CStr(lngCount + 1)
End Sub
Gruß
Nepumuk
Anzeige
AW: Fortlaufende Nummerierung von TB-Kopie
06.01.2022 16:15:28
TB-Kopie
Hallo Nepumuk,
funktioniert super!
Vielen Dank &
Viele Grüße
Basti
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige