Aktion Rückgängig
01.12.2007 17:08:53
Tino
ich überwache ob eine Markierung, innerhalb eines Bereiches liegt.
Nun möchte ich erreichen, zieht ein Benutzer die Zellen über diesen Bereich hinaus, soll
diese Aktion sofort wieder rückgängig gemacht werden.
Set Zelle = Selection(1)
Set LZelle = Selection(Selection.Count)
If (Not Intersect(LZelle, Range("A3:AH500")) Is Nothing) And _
(Not Intersect(Zelle, Range("A3:AH500")) Is Nothing) Then
'andere Aktion
Else
'hier soll Aktion rückgängig gemacht werden.
End If
Danke schon mal für die Hilfe
Gruß
Tino
Anzeige