Einfügen von Tabellen.
Sub einfuegen()
Dim anzahl As Integer
Dim i As Integer
anzahl = 1 ' ändere ich per hand
For i = 1 To anzahl
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
Next
End Sub
meine bitte:
Wenn ich jetzt z.B. 10 Tabellen einfüge möchte ich bevor er.. Next ..ausführt
die gerade eingefügte Tabelle Benamen (grins)
Habs mit dem Recorder versucht in o.a.Makro einzubinden
ein Erfolg war mir nicht gegönnt !
Vielleicht mit eurer Hilfe ,
Danke .. michael
aus der sonnigen Steiermark