ich muss in folgendes Makro noch eine weitere Prüfung einbauen, ich weiß aber nicht wie.
Sub Guthaben_größer_Null_färben()
Dim zeile As Long
Dim LetzteZeile As Long
With ActiveSheet
Range("K2").Select 'Spalte und Zelle anpassen
LetzteZeile = .Range("A65536").End(xlUp).Row
For zeile = 1 To LetzteZeile
If ActiveCell.Value > "0,00 " Then
ActiveCell.Select
Selection.Interior.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Next zeile
End With
End Sub
Es soll jetzt noch auf die Spalte A geprüft werden, ob dort ein "a" vorhanden ist. Wenn ja, dann soll die Zelle in der Spalte K rot gefärbt werden.
Kann mir jemand helfen?
Vielen Dank!
LG
Sandra