Gleiche Werte suchen + weitere If-Bedinung
24.06.2015 11:29:36
Felix
ich möchte in zwei Unterschiedlichen Tabellenblättern zwei Bereiche miteinander vergleichen und bei Doppelung entsprechend zwei Zeilen weiter unten die Zelle einfärben. Das hab ich soweit auch hinbekommen. Nun möchte ich eine weitere If-Bedingung einfügen, da ich gerne je nach dem was in dem einen Tabellenblatt steht, unterschiedlich einfärben möchte. Hier mein bisherigen Code:
Sub Ellipse8_Klicken()
Dim Kalenderbereich As Variant
Dim x As Variant, y As Variant
'/////Weichenstopfmaschine/////
Dim Weichenstopfbereich As Variant
Set Kalenderbereich = Worksheets("Kalender").Range("H9:NI9")
Set Weichenstopfbereich = Worksheets("Weichenstopfmaschine").Range("B20:B500")
For Each x In Weichenstopfbereich
For Each y In Kalenderbereich
If y = x Then
'If x.Offset(0,14).Text = "T" Then
y.Offset(2, 0).Interior.ColorIndex = 23
'Else
'y.Offset(2,0).Interior.ColorIndex = 10
'End If
End If
Next y
Next x
End Sub
Ich könnte mir vorstellen, dass meine Erklärung bisher nicht so einleuchtend war, daher habe ich als Kommentar eingefügt, was ich mir theoretisch vorstelle, was aber nicht funktioniert :( Ich kann irgendwie nicht wie mit y.Offset das gleiche für x.Offset anweden.
Über eure Hilfe würde ich mich sehr freuen.
Liebe Grüße
Felix