Office: Makros rückgängig machen?

Guten morgen,

ich habe wieder einmal eine Frage.
Ich habe drei Makros, welche je nach Zellinhalt (eine Zelle hat entweder den Inhalt 1, 2 oder 3) eine Grafik unterschiedlicher Farbe aufrufen.
Mein Problem ist jetzt, dass wenn ein Makro ausgeführt ist und sich dann der Zellinhalt ändert, kein andres Makro funktioniert wegen "Laufzeitfehler".
Realisiert habe ich das ganze bis jetzt mit einem Private Worksheet Calculate welches meine Makros aufruft.
Wie kann ich den Makros beibringen wenn ein neuer wert in der Zelle steht das Prozedere vom ausgangspunkt zu starten???
Ich denke es mangelt auch etwas am generellen verständniss bei mir ;)

Danke schonmal!

MFG Petjo

 

Hallo Petjo,

was sollen wir darauf Antworten. Lösche das 10 Zeichen, das ist bestimmt falsch.
Nur wenige sehen Dein Makro.

Gruß hajo

 

FEHLER

Anbei das Makro......
Oben : Funktion zum automatischen ausführen
Unten: Die drei Makros im Modul

 

FEHLER

Ach ja, danke für die schnelle Antwort!
Was meinst du mit 10 Zeich???

MFG
Petjo

 

Hallo Petjo,

das kann ich nich sagen welches Zeichen das ist, das war nur eine Schätzung von mir.
Ich benutze Version 2010 aber selbst diese Version kann aus einem Bild keinen VBA Code erstellen. Ohne Testung erstelle ich keine Lösung.

Gruß Hajo

 

Das verstehe ich nicht. Ich möchte doch gar kein Bild erstellen.
Ich habe lediglich eine Zelle und je nach dem welcher Wert dort enthalten ist wird ein Bild aus meinem Ordner vom Desktop ins Tabellenblatt eingefügt. Das habe ich händisch mit Makro aufgezeichnet.
Ich möchte lediglich dass nach einem abspielen eines der drei Makros auch wieder eines abgespielt werden kann wenn ich den Zellwert ändere. Bisher muss ich das komplette Excel Dokument erneut öffnen damit der Ausgangszustand wieder hergestellt wird!
Entschuldige den Redeschwall.
Gruss
Petjo

 

Hallo Petjo,

wenn ich das richtig sehe hast Du ein Bild in Deinem Beitrag eingebunden und nicht ich und dazu habe ich was geschrieben.
Mir scheint wir kommen nicht zum Ziel, ich mache Schluss.

Gruß hajo

 

Ok Hanjo ist vielleicht besser so......
Falls jemand anderes versteht was ich meine wäre ich sehr dankbar über weitere Kommentare.
MFG
Petjo

 

Es ist etwas schwierig, Deine Situation nachzubauen, weil
a) Der Code über 2 Dateien verteilt ist ==> Pfadangaben sind nicht direkt übernehmbar
b) Das Abtippen aus einem Bild (das Ding da oben, von Dir geposted) sich ungemein schwieriger gestaltet, als Kopieren/Einfügen aus einem Textbeitrag.

Ich könnte mir vorstellen, daß das Verteilen auf 2 Mappen, das unreflektierte Benutzen von "range" (ohne explizit eine Mappe oder ein Blatt davor zu spezifizieren) und das Benutzen von "selection" da Probleme verursacht.

Ohne es jetzt nachgebaut zu haben, meine Idee / Vorstellung:
Dein Code (Mappe1) ruft bei "calculate" eine Routine im anderen Code (Mappe2) auf. Diese Mappe2 wird daraufhin zur "aktiven" Mappe und "range"-Aufrufe beziehen sich danach auf ein Blatt in Mappe2 und nicht mehr auf das Blatt in Mappe1.

Ich bin mir jetzt auch nicht ganz sicher, ob "range" sich per Default auf "thisworkbook" (die, in der die gerade ausgeführte Codezeile steht) oder die jeweils aktive Mappe (die im "Vordergrund") bezieht.

Wenn dem aber so ist, wird's schwierig, weil Mappe2 ja nicht wissen kann, woher der Aufruf kommt. Rückwärts referenzieren klappt also nicht. Dann kann man nur was werden, indem man den Namen der aufrufenden Mappe als Parameter mit übergibt, um dort mit "workbooks(name)" was zu werden.

Ich bin sowieso ein Fan, das jeweils benutzte Blatt mit einem "set" in einer Objekltvariablen zu speichern, also in der Art:

Code:

dim s1 as worksheet
dim s2 as worksheet
set s1=worksheets("Quelle")
set s2=worksheets("Ziel")
s1.range("b2").copy destination:=s2.range("d4")
[...]

Wenn ich mit mehreren Mappen parallel offen arbeite, erweitere ich die "set" Geschichte auch auf die Mappen:

Code:

dim w1 as workbook
dim w2 as workbook
dim s1 as worksheet
dim s2 as worksheet
set w1=thisworkbook
set s1=w1.worksheets("Quelle")
set w2=workbooks("Zielmappe.xls")
set s2=w2.worksheets("Ziel")
s1.range("b2").copy destination:=s2.range("d4")
[...]

Hilfreich wäre aber in jedem Fall auch ein Screenshot mit der Fehlermeldung und der gelb markierten Zeile im Sourcecode, wenn der Fehler auftritt.

Gruß, Michael