Hi ...
folgende Anweisung funktioniert so weit einwandfrei
-
Code: Alles auswählen
-
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("n21") > 1 Then
MsgBox ("Überbelegung")
Exit Sub
End If
End Sub
Nun möchte ich aber diese Anweisung auf mehrere Zellen. Zum Beispiel C4 bis N21, oder aber auch Spalten oder Zeilen bezogen. Auf jedenfall soll dann in dem Bereich jedesmal bei überschreiten die Fehlermeldung ausgegeben werden.
Habe schon mehrere Versuche hinter mir die aber alle nicht funktionieren
-
Code: Alles auswählen
-
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count <> 1 Then Exit Sub
If Not (Application.Intersect(Range("C4:N21"), Target) Is Nothing) Then
If Target.Value > 1 Then
MsgBox ("Überbelegung")
Exit Sub
End If
End If
End Sub
-
Code: Alles auswählen
-
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngBereich As Range
Set rngBereich = Range("C4:N21")
If Not Intersect(Target, rngBereich) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value > 1 Then
MsgBox ("Überbelegung")
End If
End If
End Sub
Gruß Mirco
|