Hallo Experten,
mit ActiveWorkbook.Worksheets.Add lege ich ein neues Sheet innerhalb eines Macros an. Wie kann ich die Position des neuen Sheets bestimmen; ich möchte, daß das neue Sheet rechts am Ende aller bereits existierender Sheets beigefügt wird.
Beispiel:
Folgende Sheets existieren:
Tabelle 1, Tabelle 2, Tabelle 3.
Ich füge ein neues Sheet mit folgendem Code bei:
Dim WS1 As Worksheet
Set WS1 = ActiveWorkbook.Worksheets.Add
WS1.Name = "neue Tabelle"
Istzustand:
Die Sheets erscheinen wie folgt:
neue Tabelle, Tabelle 1, Tabelle 2, Tabelle 3
Sollzustand:
Die Sheets sollen wie folgt erscheinen:
Tabelle 1, Tabelle 2, Tabelle 3, neue Tabelle.
Wer kann helfen?
Vielen Dank für die Hilfe,
Heinz