Office: Sheets einfügen

Wie schaffe ich es, das das neue Sheet nicht vor sondern hinter dem aktuellen Sheet eingefügt wird?

Mein bisheriger Code lautet folgendermaßen:

Set neuesBlatt = Sheets.Add(Type:=xlWorksheet)

Wie muss ich diesen Code ändern? Hierbei möchte ich die Variable neuesBlatt behalten.

Danke

:)

 

Moin, Walter

Set neuesBlatt = Sheets.Add(Type:=xlWorksheet) After:=ActiveSheet

alternativ für ganz am Ende:
Sheets(Sheets.Count)

wobei die Angabe des Typs eigentlich nur erfolgen muss, wenn es sich nicht um ein Tabellenblatt handelt (ist AFAIR Standardeinstellung).

 

super danke,

aber wenn ich den Text eingebe kommt folgende Fehlermeldung:

Fehler beim kompilieren
Erwartet: Anweisungsende

und er markiert mir das AFTER

Hier ein Auszug aus dem Quelltext

Code:

Vielleicht hilft das ein wenig, ich komm echt nicht weiter,

thx
andi

 

Hi,

versuch mal:

Set neuesBlatt = Sheets.Add(Type:=xlWorksheet, After:=ActiveSheet)

CU

Johannes

 

supi, tausend dank, jetzt funzts

deine gute tat hast du heute schon erledigt

tschö andi