Folgendes habe ich versucht: alle Werte in Spalte T mit einem roten Rahmen versehen, sofern diese größer 5000 sind. Die letzte Zeile ist die Zeile über Summe.
Hier der Ausschnitt dazu:
Private Sub AllgemeineFormatierung2(ByVal fileName As String, ByVal lastRange As Range, ByVal _
_
_
raFund As Range)
Workbooks(fileName).Activate
'Abweichungen > 5000 mit rotem Rahmen
With Worksheets("Durchspr.")
Set lastRange = .Columns("B").Find(What:="*** Summe", LookIn:=xlValues, lookat:=xlWhole) _
_
_
For Each raFund In Range("T8:T" & lastRange.Row - 1)
With raFund
If .Value > 5000 Then
.BorderAround _
Color:=RGB(255, 0, 0), Weight:=xlMedium
End If
End With
Next
End With
Set raFund = Nothing: Set lastRange = Nothing
End Sub
Das funktioniert auch ganz gut, mit einer Ausnahme: wenn in einer Zelle eine Formel steht zB Summe etc. wird der rote Rahmen mal gemacht und mal nicht. Habe ich hier eine Variable falsch definiert oder liegt es am .Value?
Was muss ich ergänzen etc. damit es funktioniert?
Vielen Dank im Voraus!
Liebe Grüße
Hannah