Ein einfaches Makro um Tabellenblätter zu erstellen:
– Die gewünschten Namen der Tabellenblätter im Excel in eine Liste schreiben, markieren und das Makro ausführen:
1 2 3 4 5 6 7 8 9 10 11 12 |
Sub ws_creator() Dim rng As Range For Each rng In Selection Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = rng Next rng End Sub |