online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon Jeremy vom 04.06.2021, 06:02 Options

Lösung

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.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

Antwort 5 von Saarbauer vom 04.06.2021, 08:04 OptionsLösung

Lösung
Hallo Jeremy,

hier die ergänzten Dateien

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


Gruß

Helmut

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 !!!!!!!

Ähnliche Themen

Aktuelles Tabellenblatt in Excel mit Makro kopieren
TR007  22.12.2007 - 165 Hits - 2 Antworten

Zellen kopieren und tiefer einfügen mit Makro
HILFE_Suchende  26.01.2008 - 146 Hits - 7 Antworten

2 spalten per makro kopieren
johnjohn  31.07.2008 - 4 Hits - 4 Antworten

Daten kopieren, die einen *Z*en enthalten mit Makro
Suki  05.12.2008 - 5 Hits - 7 Antworten

Tabellenblatt kopieren, aber ohne Makro
hpt  11.03.2009 - 948 Hits - 6 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026