In Tabelle 1 habe ich in Spalte "B" 35 Namen stehen.
Kann man per Makro 35 Tabellenblätter erstellen?
Gruß
Walter
Option Explicit
Sub neueTabellen()
Dim x&
Application.ScreenUpdating = 0
For x = 1 To 35
Worksheets.Add.Name = Tabelle1.Cells(x, 2).Value
ActiveSheet.Move After:=Sheets(Sheets.Count)
Next
Application.ScreenUpdating = 1
End Sub
https://www.herber.de/bbs/user/86572.xls