Tabellenblätter über Makro anlegen
27.01.2006 12:45:10
WHN
ich habe mir eine Prozedur erstellt, mit der ich ein Tabellenblatt an bestimmter Position in eine Mappe einfügen will:
Sub TabellenBlattAnlegen(BlattName as String, Position as Integer)
Worksheets.Add Before:=ActiveWorkbook.Worksheets(Position)
ActiveSheet.Name = BlattName
End Sub
Es kommt eine Fehlermeldung an der Stelle: ActiveWorkbook.Worksheets(Position)
Wenn ich statt der Variable Position eine Zahl angebe funktioniert es.
So geht es: ActiveWorkbook.Worksheets(1)
Kann mir Jemand helfen?
Freundliche Grüße
Werner