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
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
~