Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
40 neue Arbeitsblätter hinzufügen
Problem
Wie kann ich der aktiven Arbeitsmappe 40 neue Arbeitsblätter hinzufügen und diese von 1 bis 40 benennen?
Lösung
Nachfolgendes Makro bei XL5/7 in ein englischsprachiges, bei XL8 ein allgemeines Modul einfügen und starten.
StandardModule: basMain
Sub NeueTabellen()
Dim iCounter As Integer
For iCounter = 1 To 40
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Tab" & iCounter
Next iCounter
End Sub