CODE FEHLER
11.11.2006 17:07:09
sascha
Habe fol. code und funktioniert super ( Bilder eingefügt in mappe und namen sind richtig)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Pictures("Bild 1").Visible = False
Me.Pictures("Bild 2").Visible = False
Me.Pictures("Bild 3").Visible = False
If Not Intersect(Target, [A1:C1]) Is Nothing Then
Select Case Target.Address(0, 0)
Case "A1"
Me.Pictures("Bild 1").Visible = True
Case "B1"
Me.Pictures("Bild 2").Visible = True
Case "C1"
Me.Pictures("Bild 3").Visible = True
Case Else
End Select
End If
End Sub
Nun wen ich jetz A1 bis A3 möchte funktioniert nicht WARUM
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Pictures("Bild 1").Visible = False
Me.Pictures("Bild 2").Visible = False
Me.Pictures("Bild 3").Visible = False
If Not Intersect(Target, [A1:A3]) Is Nothing Then
Select Case Target.Address(0, 0)
Case "A1"
Me.Pictures("Bild 1").Visible = True
Case "A2"
Me.Pictures("Bild 2").Visible = True
Case "A3"
Me.Pictures("Bild 3").Visible = True
Case Else
End Select
End If
End Sub
Sicher ist für euch kein grosses problem
DANKE IN VORAUS
gruß Sascha