Vergleich
28.09.2006 09:24:53
Sebastian
ich bin mal wieder auf eure Hilfe angewiesen. Für euch Profis sollte mein Problem nicht schwer zu lösen sein. Hoffe es kann mir jemand helfen das Makro anzupassen. Also ich möchte gerne zwei Spalten so vergleichen, dass jede Zelle der einen Spalte mit jeder Zelle der anderen Spalte verglichen wird und bei Übereinstimmung der Wert, soll der Wert aus Spalte A in Spalte C geschrieben werden. Danke.
Grüße Sebastian
Hier mal das Makro das ich bis jetzt hab.
Sub Vergleich()
Dim WertA As String, WertB As String
Dim i As Integer, j As Integer
For i = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1
WertA = Sheets("Test").Cells(i, 3)
WertB = Sheets("Test").Cells(i, 4)
If StrComp(WertA, WertB, vbTextCompare) = 0 Then
Cells(i, 5) = "x"
End If
Next i
End Sub
Anzeige