Worksheet_SelectionChange
07.11.2007 18:50:00
Sonnenpeter
ich habe mir mit Unterstützung des Forums nachfolgendes Makro aufgebaut funzt einwandfrei :-)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$B$5:$B$49")) Is Nothing Then
Me.Shapes("Listenfeld1").Visible = False
Else
Me.Shapes("Listenfeld1").Visible = True
MeldungListenfeld1
position_Listenfeld1
End If
If Intersect(Target, Range("$C$5:$C$49")) Is Nothing Then
Me.Shapes("Listenfeld2").Visible = False
Else
Me.Shapes("Listenfeld2").Visible = True
MeldungListenfeld2
position_Listenfeld2
End If
End Sub
Nun zu meinen Problem:
Wenn ich zellen im Bereich B und C gleichzeitig makiere erschein eines der oben genannten Listenfelder (je nach dem ob ich mit einer B- oder C-Zelle beginne).
Das sollte nach möglichkeit nicht geschehen.
Der nachfolgende von mir gebastelte Zusatz
If Intersect(Target, Columns("B:C")) Is Nothing Then
Me.Shapes("Listenfeld1").Visible = False
Me.Shapes("Listenfeld2").Visible = False
End If
gibt zwar keine Fehlermeldung funktioniert aber auch nicht.
Wie kann ich das Einblenden der Listenfelder verhindern wenn Zellen im Bereich B unb C gleichzeitig makiert sind.
Gruß Sonnenpeter