prüfen ob der Cursor in einem bestimmten Bereich steht

Manchmal möchte man, wenn der Anwender mit dem Cursor bestimmte Zellbereiche ausgewählt hat, eine Aktion auslösen.

In Abhängigkeit davon, ob der Cursor in dem definierten Bereich steht sollen jeweils andere Aktionen ausgeführt werden. In meinem Beispiel wurde der Bereich von A1 bis G8 definiert.

Hier wird nun wenn der Cursor außerhalb des Bereichs steht eine Messagebox erscheinen und das Sub über Exit Sub beendet. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect(Target, Range("A1:G8")) Is Nothing Then MsgBox "Markierung liegt außerhalb" & Chr(13) & "des definierten Datenbereiches!", False, Application.UserName 'wenn der Cursor außerhalb des Bereichs A1 bis G8 liegt wird das Sub beendet 'Hier kann auch statt des Exit Sub beliebiger Code stehen Exit Sub End If ' Weitere Programmzeile ' Weitere Programmzeile ' Weitere Programmzeile ' Weitere Programmzeile ' Weitere Programmzeile End Sub

 Share on Facebook

Read more http://vba-codeschnipsel.de/prufen-ob-der-cursor-in-einem-bestimmtenbereich-steht/