|
Hallo,
ich muss bei uns ein vorhandenes Makro erweitern. Es sollen nun auch die Beträge größer 10.000 und kleiner -10.000 gelb markiert werden.
Bisher hat das Makro funktioniert und die Zahlungen grün und rot markiert wie vorgegeben. Nun habe ich versucht noch eine Stufe dazu zu Bauen:
Er macht auch weiterhin die Zahlen Rot oder Grün. Aber die eine vorhandene über 32.000 läßt er weiterhin Rot.
y = Zwischenspeicher + 1
Do
If Worksheets(3).Cells(y, 11).Value <= TextBox_WE.Value * 1 And Worksheets(3).Cells(y, 11).Value >= TextBox_WE.Value * -1 And Worksheets(3).Cells(y, 10) = "" Then
With Worksheets(3)
.Cells(y, 11).Interior.Color = vbGreen
.Cells(y, 16).Interior.Color = vbGreen
.Cells(y, 5).Interior.Color = vbGreen
.Cells(y, 5) = .Cells(y - 1, 5)
End With
ElseIf Worksheets(3).Cells(y, 11).Value > TextBox_WE.Value * 1 And Worksheets(3).Cells(y, 10) = "" Or Worksheets(3).Cells(y, 11).Value < TextBox_WE.Value * -1 And Worksheets(3).Cells(y, 10) = "" Then
With Worksheets(3)
.Cells(y, 11).Interior.Color = vbRed
.Cells(y, 16).Interior.Color = vbRed
.Cells(y, 5).Interior.Color = vbRed
.Cells(y, 5) = .Cells(y - 1, 5)
End With
ElseIf Worksheets(3).Cells(y, 11).Value > TextBox_SO.Value * 1 And Worksheets(3).Cells(y, 10) = "" Or Worksheets(3).Cells(y, 11).Value < TextBox_SO.Value * -1 And Worksheets(3).Cells(y, 10) = "" Then
With Worksheets(3)
.Cells(y, 11).Interior.Color = vbYellow
.Cells(y, 16).Interior.Color = vbYellow
.Cells(y, 5).Interior.Color = vbYellow
.Cells(y, 5) = .Cells(y - 1, 5)
End With
End If
y = y + 1
Loop Until Worksheets(3).Cells(y, 16) = "Gesamtergebnis"
|