Hi Orlowski95,
xFr = "F7:F31"
xHr = "H7:H31"
lässt sich auch mit einer Objektvariablen lösen, welche auf diesen Tabellenbereich referenziert.
Beispiel:
Dim rngAufgaben as Excel.Range
set rngAufgaben = Range("F7:H31") '*** ließe sich erweitern, ja, bleiben wir mal bei Deinem Beispiel
Jetzt kannst Du nämlich auf einmal prüfen, ob sich die Zelle/Target im Aufgabenbereich, bzw derzeitig in dem Bereich F7:H31, befindet. (Achtung: G ist auch dabei)
Aber:
Hier würde ich die Prüflogik umdrehen und später den Vergleich mit F5,G5 und H5 unterordnen:
If Not Intersect(Target, rngAufgaben) Is Nothing Then
...
End If
Dann folgende Prüfung...
If (Target.Value) > (Sheets(xWSName).Range(xH).Value) Then
wie folgt umformulieren...
If (Target.Value) > (Cells(5, Target.Column)) Then
und so verschachteln:
If Not Intersect(Target, rngAufgaben) Is Nothing Then
If (Target.Value) > (Cells(5, Target.Column)) Then
...
End If
End If
|