|
Hi ich hätte ein Problem bei meinem Code und zwar möchte ich in zwei Spalten erstmal schauen, ob das Wort drinsteht und wenn ja, dann in der übernächsten Zelle der selben Zeile prüfen, ob der Wert in einer bestimmten Toleranz liegt. Wenn ja soll die Schriftfrbe schwarz bleuben, wenn nicht dann soll die Schriftfarbe rot werden. Dies ist mein Ansatz
Option Explicit
Sub Pruefung()
With ThisWorkbook.ActiveSheet
Dim Zelle1 As Range
Dim Zelle2 As Range
For Each Zelle1 in Range ("C:C")
For Each Zelle2 in Range ("D:D")
If Zelle1 = "Limo" And Zelle2 = "KVP" Then
ActiveCell.Offset(0,2).Select
If Active.Cell.Value < "7" And ActiveCell.Value > "9" Then ActiveCell.Font.Color = RGB (255, 0, 0)
Else: Active.Cell.Font.Color = RGB (255, 255, 255)
Next
Next
End with
End Sub
Danke schon mal!
|