Stefan's Weblog

5Apr/131

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

hat dir dieser Artikel gefallen?

Dann abonniere doch diesen Blog per RSS Feed!

Kommentare (1) Trackbacks (0)
  1. Danke, war genau das was ich suchte.


Leave a comment

Noch keine Trackbacks.

%d Bloggern gefällt das: