Makro kopieren
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
Antwort schreiben
Antwort 1 von rainberg vom 04.06.2021, 06:20 Options
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
Antwort 2 von Jeremy vom 04.06.2021, 06:24 Options
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
Antwort 3 von rainberg vom 04.06.2021, 06:31 Options
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
Antwort 4 von Jeremy vom 04.06.2021, 06:58 Options
Hallo,
recht hast du Rainer.
Deswegen hier der Link:
http://rapidshare.com/files/240598108/Test.zipHelmuts 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
Antwort 6 von rainberg vom 04.06.2021, 08:27 Options
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
Antwort 7 von Jeremy vom 04.06.2021, 08:30 Options
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 !!!!!!!