Index außerhalb?
26.04.2002 11:17:58
Ron
Dank an alle Helfer.!
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(X, Y).Value
For J = 1 To letzte2
SVRef = Workbooks("Tabelle2").Sheets(2).Cells(X, Y).Value
If SV = SVRef Then
Workbooks("Tabelle3").Sheets(3).Cells(X, Y).Value = SV
End If
Next J
Next i
End Sub