---

Hallo Forum,
vor Wochen habe ich eine Exceltabelle gesehen, in welcher je nach Zellenwert eine Grafik getauscht wurde, d.h. ist der Wert größer NULL wurde eine grünes Bild gezeigt, war der Wert kleiner NULL ein rotes. Da ich keinerlei Ahnung von VBA habe, kontaktierte ich den Ersteller... er schickte mir folgenden Text:

Zitat:

---

a) Sie binden z.B. drei Grafiken auf einem Arbeitsblatt ein. Nennen wir sie mal smily01, smily02 und smily03

b) diese Grafiken legen Sie nun übereinander ( das sieht dann natürlich wild aus ... )

c) Sie fügen in das Arbeitsblatt den folgenden Code ein :

Private Sub Worksheet_Calculate()
    Call Smily_ein_aus
End Sub

d) dann erstellen Sie noch das folgende Makro in einem Modul

Sub Smily_ein_aus()
   
    Dim ws As Worksheet
    ' in diesem Beispiel soll C10 die Zelle sein, deren Wert abgefragt wird
    Dim C10 As Range
    Dim Sh As Shape

    Set ws = Sheets("MappeBeispiel")
    Set C10 = ws.[C10]
    For Each Sh In ws.Shapes
        If Sh.Name Like "Smily*" Then Sh.Visible = False
    Next
    ws.Shapes("Smily01").Visible = C10 > 0
    ws.Shapes("Smily03").Visible = C10 < 0
    ws.Shapes("Smily02").Visible = C10 = 0
    Set C10 = Nothing
    Set ws = Nothing
End Sub

---

Ich habe mehrere Versuche unternommen, dieses zu realisieren - OHNE ERFOLG. Leider erreiche ich den Erseller nicht mehr... 

Vielleicht hat einer von Euch eine ähnliche Lösung oder es kann jemand eine Exceltabelle nach o.g. Schema hier einstellen.

Vielen Vielen Dank... 

Gruß Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@ Martin !

Erkläre mal ein bisschen genauer wie weit du gekommen bist und was nicht funktioniert hat.

Tschüß Frank!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

... es funktioniert nun ...

mein Fehler war das ich das "binden" nicht ganz gedeutet habe. Die Grafik (Smily01...) muss markiert sein und dann wird oben links im Feld wo normal die Zelle benannt ist, in der der Curser sich befindet (A1...A5...V23...), der Name der Grafik geschrieben (also Smily01...).

Der 2. Fehler liegt im Punkt C: - mit diesem Code funktioniet es.
Private Sub Worksheet_Change(ByVal Target As Range)
    Call Smily_ein_aus
End Sub

Schönes WE...

Gruß Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP