VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

40 neue Arbeitsblätter hinzufügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt