ich habe mir folgenden code gebastelt um verscheiden Bilder ein und ausblenden zulassen.
Und lasse aus einem anderen Worsheet die Zelle BB1 mit den Zahlen 1 bis 8 Füllen.
Allerdings startet das Change ereigniss nicht. Wenn ich manuell die Zahlen in BB1 eintrage funktionierts.
Private Sub Worksheet_Change(ByVal Target As range)
If range("BB1").Value = 1 Then
ActiveSheet.Pictures("Bild 1").Visible = True
Else
ActiveSheet.Pictures("Bild 1").Visible = False
End If
If range("BB1").Value = "2" Then
ActiveSheet.Pictures("Bild 2").Visible = True
Else
ActiveSheet.Pictures("Bild 2").Visible = False
End If
If range("BB1").Value = 3 Then
ActiveSheet.Pictures("Bild 3").Visible = True
Else
ActiveSheet.Pictures("Bild 3").Visible = False
End If
If range("BB1").Value = 4 Then
ActiveSheet.Pictures("Bild 4").Visible = True
Else
ActiveSheet.Pictures("Bild 4").Visible = False
End If
If range("BB1").Value = 5 Then
ActiveSheet.Pictures("Bild 5").Visible = True
Else
ActiveSheet.Pictures("Bild 5").Visible = False
End If
If range("BB1").Value = 6 Then
ActiveSheet.Pictures("Bild 6").Visible = True
Else
ActiveSheet.Pictures("Bild 6").Visible = False
End If
If range("BB1").Value = 7 Then
ActiveSheet.Pictures("Bild 7").Visible = True
Else
ActiveSheet.Pictures("Bild 7").Visible = False
End If
End Sub
Vielleicht kann mir jemand helfen.!?
Beste Dank im Voraus
Ralph