Tabellenblätter erstellen

Forumthread: Tabellenblätter erstellen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tabellenblätter erstellen

20.07.2014 06:45:08

walter

Guten Morgen Excelfreunde,
In Tabelle 1 stehen in Spalte "A" bis zu 40 Ländernamen, von denen ein Tabellenblatt erzeugt werden muß.
Wie läßt sich dies lösen.
Danke für die Hilfe.
Gruß
Walter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter erstellen

20.07.2014 08:32:25

Bernd
AW: Tabellenblätter erstellen

20.07.2014 10:55:13

walter

AW: Tabellenblätter erstellen

20.07.2014 08:32:25

Bernd

Hallo Walter!
Wurde hier schon mal gelöst. Verwende nachstehenden VBA Code in Deiner Arbeitsmappe:
~


Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Select
Sheets.Add
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i
End Sub

~
lg wünscht Bernd

AW: Tabellenblätter erstellen

20.07.2014 10:55:13

walter

Hallo Bernd,
habe ich gesucht aber nicht gefunden.
Heißen Dank für den Hinweis.
Schönen Sonntag
wünscht
Rentner Walter aus dem nördlichen Nordhessen