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ß
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen