Daten vergleichen, neuer Versuch
15.03.2004 23:48:15
Erich M.
leider komme ich bei meinem Problem noch nicht weiter; versuche es deshalb
mit folgender Beschreibung. Es sollen die Namen lt. T2 in T1 gesucht werden
und dann alle Zeilen aus T1 die in Spalte A übereinstimmen nach Tabelle neu
komplett kopiert werden;
mein Ansatz ohne Erfolg:
Sub Daten_vergleichen_und_ergänzen4()
Dim r As String, i As Integer, wert As String, c As Range, s As Integer, j As Integer
Dim iRow As Integer, iRows As Integer
Sheets(2).Activate
r = Cells(65536, 1).End(xlUp).Row
For i = 1 To r
wert = Cells(i, 1)
With Sheets(1).Columns(1)
Set c = .Find(wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Cells(i, 1).Copy Sheets("neu").Cells(iRow, 1).End(xlUp).Row + 1, 1
End If
End With
Next i
End Sub
Code eingefügt mit: Excel Code Jeanie