wie kann ich per VBA Abfragen, ob sich eine oder mehrere selektierte Zellen
in einem vordefinierten Bereich befinden.
Beipiel: Prüfe ob sich Selektion im Bereich A3:C8 oder A19:C19 befindet.
Grüße
Marion
Sub Loeschen()
Dim rngIntersect As Range
Set rngIntersect = Application.Intersect(Range("A3:C8,A19:C19"), ActiveWindow.Selection)
If rngIntersect Is Nothing Then
MsgBox "Hier wäre löschen erlaubt keine Überschneidung"
ActiveWindow.Selection.ClearContents
Else
MsgBox "Sie haben einen nicht löschbaren Bereich selektiert!", vbCritical
End If
End Sub
Sub Loeschen2()
Dim rngIntersect As Range, rngSelection As Range
For Each rngSelection In ActiveWindow.Selection
Set rngIntersect = Application.Intersect(Range("A3:C8,A19:C19"), rngSelection)
If rngIntersect Is Nothing Then
MsgBox "Hier wäre löschen erlaubt keine Überschneidung"
rngSelection.ClearContents
Else
MsgBox "Sie haben einen nicht löschbaren Bereich selektiert!", vbCritical
End If
Set rngIntersect = Nothing
Next
End Sub