Tabellen anlegen und umbenennen
24.02.2009 12:59:29
Michael
Er soll zum schluss jan bis dez einsetzten?
Danke
Gruß Michael
Sub TabAnlUmb()
Dim zMax As Integer
Dim Blatt As Worksheet
Dim zeile As Integer
Set Blatt = Tabelle1
zeileMax = Blatt.UsedRange.Rows.Count
For zeile = 1 To zeileMax
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Blatt.Cells(zeile, 1).Value
Next zeile
End Sub