Problem: In Spalte F soll ein "x" dargestellt werden, wenn ein Wert der Spalte D in der Spalte A vorkommt
Habs im Anhang geschildert:
https://www.herber.de/bbs/user/104202.xls
Sub Vergleichen()
For i = 2 To 100
If Cells(i, "A") Empty Then _
If Cells(i, "A") = Cells(i, "D") Then Cells(i, "F") = "x"
Next i
End Sub
Sub Vergleich()
Dim d As Long
Dim a As Long
Dim lngLast As Long
lngLast = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For d = 2 To lngLast
For a = 2 To lngLast
If Range("D" & d).Value = Range("A" & a).Value Then
Range("F" & d).Value = "x"
GoTo NextSearch
Else
GoTo NextVergleich
End If
NextVergleich:
Next a
NextSearch:
Next d
End Sub
Gruß
Sub Vergleich()
Dim a As Long
Dim d As Long
Dim lngLastA As Long
Dim lngLastD As Long
lngLastA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lngLastD = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
For d = 2 To lngLastD
For a = 2 To lngLastA
If Range("D" & d).Value = Range("A" & a).Value Then
Range("F" & d).Value = "x"
GoTo NextSearch
Else
GoTo NextVergleich
End If
NextVergleich:
Next a
NextSearch:
Next d
End Sub
Gruß