Excel und VBA: Formeln, Programmierung, Lösungen

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