Windows XP: Excel ActiveX Steuerelement für Bilder

Zu Wenn-Funktionen ist nichts bekannt?
Wenn.. - Dann.. - Sonst..
Da spielt es keine Rolle ob die Eingabe in die Zelle manuell erfolgt oder aus einer vorherigen Berechnung in die Zelle übernommen wird.
Beispielseite: http://www.traens.com/tipps/wenn_funktion.php
und viele andere Seiten zu "Wenn Funktionen in Excel" im Netz!

Hallo!

Ich habe vier Zellen. Abwechselnd taucht immer nur eine 1 in einer der vier Zellen auf und alle anderen werden 0. Die Ergebnisse sind aus Wenn-Funktionen.

Mein Problem ist nun, dass ich mit diesen Steuerelementen nicht richtig umgehen kann.

Ich kopiere nochmal den ganzen Code hier rein. Ich habe gerade schon gelesen, dass ich nur ein mal "Private Sub" und "End Sub" benutzen soll. Ich habe es gerade ausprobiert, aber irgendwas mache ich immer noch falsch.

Code:

Private Sub Image4_Click()

Private Sub worksheet_change(ByVal Target As Range)

If Application.Intersect(Target, Range("c104")) Is Nothing Then Exit Sub

If Target = 1 Then
    Shapes("Image4").Visible = True
   
Else
        Shapes("Image4").Visible = False
End If

End Sub

Private Sub Image3_Click()


If Application.Intersect(Target, Range("c103")) Is Nothing Then Exit Sub

If Target = 1 Then
    Shapes("Image3").Visible = True
   
Else
        Shapes("Image3").Visible = False
End If


End Sub

Private Sub Image2_Click()


If Application.Intersect(Target, Range("c102")) Is Nothing Then Exit Sub

If Target = 1 Then
    Shapes("Image2").Visible = True
   
Else
        Shapes("Image2").Visible = False
End If


End Sub

Private Sub Image1_Click()


If Application.Intersect(Target, Range("c101")) Is Nothing Then Exit Sub

If Target = 1 Then
    Shapes("Image1").Visible = True
   
Else
        Shapes("Image1").Visible = False
End If

End Sub