wer hat ne Idee, wie man diesen Code "von Beate" noch vereinfachen kann:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("$B$2").Value = "Hund" Then
ActiveSheet.Pictures("Bild 3").Visible = True
Else
ActiveSheet.Pictures("Bild 3").Visible = False
End If
If Range("$B$4").Value = "Katze" Then
ActiveSheet.Pictures("Bild 4").Visible = True
Else
ActiveSheet.Pictures("Bild 4").Visible = False
End If
If Range("$B$4").Value = "Maus" Then
ActiveSheet.Pictures("Bild 5").Visible = True
Else
ActiveSheet.Pictures("Bild 5").Visible = False
End If
End Sub
Gruß
Tom