Makro kopieren

Question

Freunde der Nacht,

habe da ein kleines Problem.

Mit extremer Hilfe von Saarbauer, habe ich ein tolles Makro in einem Sheet.

Nun habe ich ein zweites Sheet indem ich auch dieses Makro benötige, was ich dann noch anpassen muss.

Wie kopiere ich den das Makro aus dem ersten Sheet ins zweite?



Vielen Dank.


Jeremy

Answer 1

Hallo Jeremy,

Du brauchst das Makro nicht zu kopieren, es reicht, wenn Du es im Codefenster "DieseArbeitsmappe" platzierst und an die beiden Sheets anpasst.

Angenommen das Makro läuft bisher als Worksheet_
Change-Ereignis, dann lasse es jetzt als Workbook_SheetChange-Ereignis laufen.

Gruß
Rainer

Answer 2

Hallo Rainer,

sorry das ist für mich leider alles chinesisch.
Habe damit noch nie etwas gemacht, kenne mich da Null aus.

Ich werde es wohl Helmut schicken müssen, ich verstehe das leider alles nicht. Muss ich helmut wohl wieder einmal mehr belasten. :-(


Trotzdem Danke Rainer.


Jeremy

Answer 3

Hllo Jeremy,

Du hättest das Makro gleich posten sollen, ohne dies kann man es ja nicht ändern.
In diesem Falle wäre es aber vielleicht besser die ganze Mappe, um testen zu können.

Muss aber jetzt weg und bin später erst wieder online.

Gruß
Rainer

Answer 4

Hallo,

recht hast du Rainer.

Deswegen hier der Link:

rapidshare.com/files/240598108/Test.zip



Helmuts Datei heißt Hemuts Makro.

Ich muss das Makro in die 4 anderen Dateien einbringen und entsprechend Helmuts Anweisungen wie folgt abändern, damit es dort funktioniert:

Zitat Helmut:


das Programm passt im Prinzip schon, es sind 2 kleine Änderungen erforderlich



Blätter = ActiveWorkbook.Sheets.Count

Name = ActiveSheet.Name

If Sheets(ActiveWorkbook.Sheets.Count).Name = "Etiketten" Then Sheets("Etiketten").Delete

Sheets(1).Select

Sheets.Add

Sheets(1).Name = "Etiketten"

Sheets("Etiketten").Select

Sheets("Etiketten").Move After:=Sheets(Blätter)



Die erste (rot hinterlegte) Zeile ist einzufügen und bei der letzte steht Sheets(11) bei dir und die 11 ist durch Blätter zu ersetzen, dann klappts.



Wenn man es in die Johannesburgdatei einbringt müsste es auch ohne Änderung gehen, da Helmut es an Johannesburg angepasst hat, die anderen drei müssten angepasst werden.



Es wär etoll, wenn mir jemand da helfen könnte, ich möchte Helmut nicht jeden Tag belasten :-(


Vielen Dank Jeremy

Answer 5

Hallo Jeremy,

hier die ergänzten Dateien

rapidshare.com/files/240610163/Test.zip.html


Gruß

Helmut

Answer 6

Hallo Jeremy,

Dein Problem ist ja nun gelöst, trotzdem noch eine Anmerkung von mir.

Es ist schon ein Unterschied, ob man ein vorhandenes Makro welches in einem Arbeitsblatt wirkt auf ein zweites Arbeitsblatt erweitern soll, oder dieses in 4 anderen Arbeitsmappen einbauen soll.

Bitte etwas mehr Aufmerksamkeit bei weiteren Fragen.

Gruß
Rainer

Answer 7

Danke Helmut und danke Rainer für die Anmerkung.


Vielen Dank !!!


PS: Helmut, wollte dich nicht schon wieder belästigen, du hast sicher die letzten Abende nur mit meinem Sch... verbracht.
Deswegen nochmals herzlichen Dank !!!!!!!