2 Spalten vergleichen, Makro erstellen
09.05.2003 19:14:08
Ralf
Leider paßt das nicht zu meinem Problem und selber bekomme ich das nicht hin. Hoffe ihr könnt mir helfen.
Also ich habe in Spalte "A" Werte und in Spalte "D" stehen die Werte die in Spalte "A" sein dürfen. Wenn in Spalte "A" andere Werte stehen, so brauche ich einen Hinweis, welcher Wert in Spalte "A" abweichend ist von der Spalte "D".Das kann am besten durch eine farbige Markierung des abweichenden Wertes in Spalte "A" geschehen.
Ich habe euch mal den Code unten eingefügt, den ich in Betracht gezogen hatte, aber wie gesagt, der ist es wohl nicht.
Danke vorab für eure Hilfe. Gruß, Ralf
Sub vergleichenSpalten()
Dim s As Long 'schleifenzähler
Dim h As Long
Dim ende As Long
Application.ScreenUpdating = False
ende = Cells(65536, 1).End(xlUp).Row 'von letzter Zeile aufwärts
For s = 2 To ende
For h = 2 To ende
If Cells(s, 1) = Cells(h, 9) Then
Cells(s, 2) = "X"
Cells(h, 10) = "x"
End If
Next
Next
Application.ScreenUpdating = True
End Sub