Office: (Office 2010) Aktives Tabellenblatt kopieren und nach aktiven Blatt einfügen

Hallo Forum,

Bräuchte einen Tipp.

Hier mein Code der ein Tabellenblatt kopiert deren Namen die Form des Datums ohne Punkt z.b. "041012" haben und da das zu kopierende Blatt schon vorhanden ist wird dem neuen ein .1 angehängt usw.

Wie kann ich es ändern, dass es mir sofort nach dem aktiven Tabellenblatt eingefügt wird und nicht wie jetzt am Ende?

Mein Code:
Code:

Gruß
Rudolf

:)

 

Hallo Rudolf,

ActiveSheet.Copy after:=Sheets(ActiveSheet.Index)

 

Klasse und Danke Hajo.


Gruß
Rudolf

 

Hallo Hajo,

ich muß leider nochmal nachhaken, wenn ich jetzt mit meinem Code einen neuen Tag einfüge, z.B. habe ich 041012 ausgewählt wird jetzt ein Blatt mit 041012(2) eingefügt.

Ich muß mich korrigieren er fügt ein Blatt 041012.1 am Ende und 041012(2) gleich nach dem aktiven Tabellenblatt.

Vor der Änderung auf ActiveSheet.Index wurde nur ein Neues Blatt mit 041012.1 eingefügt.

Hast du hierfür eine Lösung?

Gruß
Rudolf

 

Hallo Rudolf,

ich verstehe nicht was Du mir mitteilen willst.

 

Meine Frage war doch,

wie kann ich meinen copy Befehl so umschreiben das wenn ich für das ganze Monat Tabellenblätter im Format 011012-311012 habe ich heute das Tabellenblatt 041012 aktiv habe und mit meinen code ein neues Tabellenblatt einfüge das 041012.1 heißen soll gleich im Anschluß des 041012 Tabellenblattes erscheinen soll.

Fakt ist, das Tabellenblatt im Anschluß wird mit 041012(2) eingefügt und am Ende das richtige mit 041012.1 also werden plötzlich zwei Blätter eingefügt das Falsche an der richtigen Stelle und das richtige an der falschen Stelle.

Es soll aber nur eine Tabellenblatt eingefügt werden und zwar 041012.1 gleich nach dem Tabellenblatt 041012.

Ich hoffe es jetzt etwas deutlicher formuliert zu haben.

Gruß
Rudolf

 

Hallo Hajo,

kannst vorletzte Antwort übergehen, habs gelöst.


Danke für deine Anregung.


Gruß
Rudolf