Supportnet / Forum / Tabellenkalkulation
Tabellenblätter nummerieren
Frage
Hi,
mit folgendem Makro erstelle ich neue Tabellenblätter:
Sub tabeinfügen()
Dim i As Integer
For i = 1 To 50
Worksheets.Add
Next i
End Sub
Nun wil ich, dass er die Tabellenblätter automatisch durchnummeriert...ich habe allerdings schon 120 Tabellenblätter, d.h. er soll die neuen Blätter ab 121 nummerieren.
Weiß jemand eine Lösung?
Antwort 1 von Beverly
Hi,
vielleicht hilft dir dieser Code weiter
Bis später,
Karin
vielleicht hilft dir dieser Code weiter
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 50
Worksheets.Add
ActiveSheet.Name = Worksheets.Count
Next i
End Sub
Bis später,
Karin
Antwort 2 von Feckon
Hey,
das ging ja fix...besten dank
ein kleines problem nur noch: er bennt z.B. das Tabllenblatt absteigend, also wenn das letzte Blatt 120 war und ich 50 Blätter einfüge, kommt direkt danach 170 dann 169 usw.
Kann man das irgendwie umkehren?
Gruß
Markus
das ging ja fix...besten dank
ein kleines problem nur noch: er bennt z.B. das Tabllenblatt absteigend, also wenn das letzte Blatt 120 war und ich 50 Blätter einfüge, kommt direkt danach 170 dann 169 usw.
Kann man das irgendwie umkehren?
Gruß
Markus
Antwort 3 von juergenb
Hi!
Hiermit könnte es klappen:
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 2
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Worksheets.Count
Next i
End Sub
Ciao Jürgen
Hiermit könnte es klappen:
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 2
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Worksheets.Count
Next i
End Sub
Ciao Jürgen