Gehversuche in VBA :-) ...
...wieso kann ich mit diesem Code nicht neue Blätter erstellen, deren Namen hochgezählt werden?
Sub NeueTabelle()
Dim i As Integer
i = 1
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = i
i = i + 1
End Sub
Grüße - Jörg