Office: Makro starten durch bestimmte Zahl in einer Zelle?WENN?

Schönen guten Morgen!
Ich habe folgendes Problem:

Ich habe zwei Makros aufgezeichnet, die jeweils eine Grafik in einer bestimmten Farbe auf einem Tabellenblatt erscheinen lassen.
In einer Zelle dieses Tabellenblattes erscheint bei bearbeitung eine Zahl. Entweder eine 1 oder 2 oder 3. Bei eins bleibt die vorformatierte Grafik erhalten.
Nun möchte ich das die entsprechende Grafik automatisch erscheint wenn die dazugehörige Zahl in der Zelle ist.
Die Zahl wird per SVERWEIS aus einer anderen Tabelle geholt, was aber hoffentlich nicht relevant ist.
Bisher muss ich die Grafik selber mit Tastenkombination aufrufen.
Ich habe gehofft das Problem irgendwie mit einer WENN-Funktion lösen zu können....
Ich kenne mich nicht sonderlich in der VBA Programmierung aus, also falls jemand eine Idee hat bitte sagen wie ich das genau einbinden kann.

Danke schonmal für eure Hilfe! ;-)

Petjo

 

Hallo!

Dann brauchst du wohl ein WorksheetCalculate-Ereignis im Modul des Blatts:

Code:

Private Sub Worksheet_Calculate()
If Range("D5") = 2 Then Makro1
If Range("D5") = 3 Then Makro2
End Sub

 

Fehler

Danke für die Antwort Schatzi ;)
Also ich habe deinen Text in das entsprechende Tabellenblatt kopiert, aber bekomme eine Fahlermeldung.
Siehe Anhang!
Die beiden Makros sind in Modul1 und Modul2, ich habe den Code in Tabellenblatt2 kopiert.....war das richtig?

MFG

Petjo

 

Hallo!

Da sich deine Codes in der personl.xls befinden, musst du das Excel auch mitteilen, damit das Programm sie finden kann...

If Range("F8") = 2 Then Application.Run ("Personl.xls!AMPEL_ORANGE")

Mehr dazu findest du hier:
http://www.online-excel.de/excel/singsel_vba.php?f=113

 

FEHLER

Hey, danke nochmal aber jetzt folgender Fehler: kein Objekt gefunden
Irgendwas hab ich doch grundsätzlich nicht verstanden oder??? ;)
mfg

 

Hallo!

Code:

Private Sub Worksheet_Calculate()
If Range("F8") = 2 Then Application.Run ("Personl.xls!AMPEL_ORANGE")
If Range("F8") = 3 Then Application.Run ("Personl.xls!AMPEL_ROT") 
End Sub

 

Ok Danke hat funktioniert!!!!
Aber irgendwie nur einmal......
Woran kann das denn noch liegen?
Trotzdem vielen vielen Dank!
Bist echt a Schatzi ;)

 

OK nun klappt alles! Tausend dank und das nexte Bier geht auf mich :)))))