Tabellen in einer Arbeitsmappe aufsteigend nummerieren

Innerhalb einer Excel Arbeitsmappen kann man die einzelnen Tabellen fortlaufend nummerieren lassen.

Das Makro dafür lautet:

Sub Nummerierung()
    Dim i As Long
    For i = 1 To Sheets.Count
    Sheets(i).Name = "CW" & i '+ 1
    Next
End Sub

Innerhalb des Codes ist CW durch den von euch gewünschten Namen zu ersetzen.

Das Ergebnis sieht dann so aus:

Excel Tabellen fortlaufenden nummerieren
Excel Tabellen fortlaufenden nummerieren

Eine Antwort auf „Tabellen in einer Arbeitsmappe aufsteigend nummerieren“

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert