Warum will das nicht?
26.04.2002 11:48:20
Ron
Änderungen erwünscht!
Danke!!
Sub Vergleich2()
Dim SV As String
Dim SVRef As String
Workbooks("Tabelle1").Sheets(1).Activate
letzte1 = Workbooks("Tabelle1").Sheets(1).UsedRange.Rows.Count
Workbooks("Tabelle2").Sheets(2).Activate
letzte2 = Workbooks("Tabelle2").Sheets(2).UsedRange.Rows.Count
For i = 1 To letzte1
SV = Workbooks("Tabelle1").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Value
For J = 1 To letzte2
SVRef = Workbooks("Tabelle2").Sheets(2).Cells(Rows.Count, 1).End(xlUp).Value
If SV = SVRef Then
Workbooks("Tabelle3").Sheets(3).Cells(Rows.Count, 1).End(xlUp).Value = SV
End If
Next J
Next i
End Sub