Gruppe
Allgemein
Problem
Wie kann ich bei einer Mehrfachauswahl von Bereichen prüfen, ob einzelne Bereich in oder außerhalb eines vorgegebenen Bereiches liegen?
StandardModule: basMain
Sub RangeProof()
Dim rngAll As Range, rngAct As Range, rngLast As Range
Set rngAll = Range("A1:F6")
For Each rngAct In Selection.Areas
Set rngLast = rngAct.Cells(rngAct.Cells.Count)
If Intersect(rngAll, rngAct) Is Nothing Then
MsgBox "Bereich " & rngAct.Address _
& " liegt außerhalb der Vorgabe!"
ElseIf Intersect(rngAll, rngLast) Is Nothing Then
MsgBox "Bereich " & rngAct.Address _
& " liegt teilweise außerhalb der Vorgabe!"
End If
Next rngAct
End Sub