AW: Daten vergleich
28.04.2007 08:06:20
Möschel
Sub Vergleich()
Dim BooDrin As Boolean
Dim lngLastRow1 As Long, lngLastRow2 As Long, lngCounter As Long
Dim rngFind As Range
Dim varFirstAddress As Variant
lngLastRow1 = Worksheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
lngLastRow2 = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
Application.ScreenUpdating = False
For lngCounter = 1 To lngLastRow1
BooDrin = False
With Worksheets("Tabelle2").Range("B1:B" & lngLastRow2)
Set rngFind = .Find(Worksheets("Tabelle1").Cells(lngCounter, 6), LookIn:=xlValues)
If Not rngFind Is Nothing Then
varFirstAddress = rngFind.Address
Do
Worksheets("Tabelle1").Cells(lngCounter, 7) = "Wahr"
BooDrin = True
Exit Do
Loop While Not rngFind Is Nothing And rngFind.Address varFirstAddress
End If
If BooDrin = False Then Worksheets("Tabelle1").Cells(lngCounter, 7) = "Falsch"
End With
Next lngCounter
Application.ScreenUpdating = True
End Sub
würde es auch damit funktionieren. ?