Sheets erstellen

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:

2017-06-09_15-47-55

2017-06-09_15-47-43

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
Dieser Beitrag wurde unter Excel VBA veröffentlicht. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.