habe folgendes Makro um Zellen farbig zu markieren:
Sub färben()
Dim loletzte As Long
Dim loletzte2 As Long
Dim i As Integer
Dim a As Integer
Worksheets(2).Activate
loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
loletzte2 = IIf(IsEmpty(Worksheets(1).Cells(Rows.Count, 1)), Worksheets(1).Cells(Rows.Count, 1). _
End(xlUp).Row, Rows.Count)
For i = 1 To loletzte
For a = 1 To loletzte2
If Cells(i, 3) = "S" Then
If Cells(i, 1) = Worksheets(1).Cells(a, 1) Then
Cells(i, 3).Interior.ColorIndex = 4
End If
End If
If Cells(i, 3) = "A" Then
If Cells(i, 1) = Worksheets(1).Cells(a, 1) Then
Cells(i, 3).Interior.ColorIndex = 6
End If
End If
Next a
Next i
End Sub
Hintergrund: In Tabelle 2 soll der Wert in Spalte 3 geprüft werden. Wenn "S", dann soll Spalte 1 mit den Werten in Spalte 1 der Tabelle 1 verglichen werden. Wenn es hier ein Übereinstimmung gibt, dann die entsprechende Zelle in Spalte 3 färben
Analog die zweite Prüfung bei "A". Hier möchte ich jedoch genau das Gegenteil. Wenn der Wert = "A", dann sollen wieder die Spalten 1 der beiden Tabellen abgeglichen werden. Hier möchte ich jedoch dann die Färbung, wenn KEINE ÜBEREINSTIMMUNG da ist. Statt das "=" Zeichen, müsste hier also ein "Ungleich"-Zeichen. Mit "größer" und "kleiner" habe ich das schon probiert. Funktioniert aber leider nicht.
Danke für Eure Hilfe!