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
Veröffentlicht unter Excel VBA | Hinterlasse einen Kommentar

Lightart

10947370_10152934850580999_8354542679922946_o

Veröffentlicht unter Lightart, Pix | Verschlagwortet mit | Hinterlasse einen Kommentar

@znuk_ch

Mein Blog wird bis auf weiteres nicht aktualisiert.

Wer von mir lesen will, @znuk_ch veröffentlicht Rätsel auf http://www.geoblog.ch und twittert ab und zu…

 

Veröffentlicht unter Uncategorized | Hinterlasse einen Kommentar