---

Guten Morgen,

ich habe mir ein Tabellenblatt gebaut, welches als Masterblatt zu verstehen ist. Um aus diesem tabellenblatt eine Kopie zu ersdtellen, habe ich ein Makro aufgezeichnet. Wenn ich jetzt das Makro ausführe, dann wird das neu erstellte Tabellenblatt immer an den Anfang der Registerkarten gestellt. Ich möchte aber gern, dass es rechts als letzes Blatt erscheint. Gibt  es dafür eine Lösung??

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Rüger,

da brauchts gar kein Makro:
- Rechtsklick auf das zu kopierende Tabellenblatt (auf das Register, wo der Name draufsteht).
- Menüpunkt "Verschieben/Kopieren"
- Ziel-Arbeitsmappe wählen (in deinem Fall vermutlich die gerade geöffnete)
- "(Ans Ende Stellen)" auswählen, damit die Kopie dann ganz rechts eingefügt wird.
- Den Haken bei "Kopie erstellen" setzten.
- Mit OK bestätigen.

Ciao,
WolfgangE

EDIT:
Wenn du's dennoch im Makro brauchst, genügen folgende Zeilen, um das neu erstellte Tabellenbllatt zu verschieben:

x = ActiveWorkbook.Sheets.Count
Sheets("Tabelle2").Select
Sheets("Tabelle2").Move After:=Sheets(x)

x speichert die Anzahl der Arbeitsblätter. Dann wir das kopierte Blatt (hier Tabelle2) an die Stelle x verschoben.
------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

[Diese Nachricht wurde von WolfgangE am 24. Feb. 2004 editiert.]

[Diese Nachricht wurde von WolfgangE am 24. Feb. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ja da hatte ich wohl einiges vergessen. Natürlich geht das so. Das aufgezeichnete Makro ist auch nix anderes als diese Befehlsabfolge, aber... und nun kommt der Knackpunkt: Mit der Tabelle arbeitet eine äußerst unwissende Person und der kann ich die gesamte Abfolge 443253 mal erklären, läuft trotzdem immer schief. Also dachte ich mir, schnell ein Makro aufgezeichnet, auf eine Schaltfläche gelegt und alles prima. Funktionobelt ja auch, nur steht das kopierte Tabellenblatt immer am Anfang.....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

..und ich hatte ganz vergessen mich zu bedanken. Genau so brauche ich es. VIELEN DANK und volle Punktzahl

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hab' gerade eben noch einen EDIT hinzugefügt, wie's im Makro machbar ist. Hätte ich vielleicht als neue Antwort schreiben sollen.

Ciao,
WolfgangE

------------------
An Optimist Is A Person Who Has Not Been Shown All The Facts Yet!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

eigentlich wollt ich mich ja mal raushalten,
fällt ja sonst langsam auf 

NeeNee ... 

Wolfgang hat 100% Recht & wie immer gut erklärt,
just mein 'Dreier' noch dazu:

Tabellenreiter anklicken & mit gedrückter 'STRG'-Taste an gewünschten Ort innerhalb oder in eine andre offene Mappe ziehen.

Oder eben per vb-Teufel [BTW ich nehm immer das select raus]:
Sheets("bla").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)

CU Nancy
--
Ten bugs in the hand is better than one as yet undetected.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP