Instantieren
26.04.2002 12:14:56
Ron
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(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