ich möchte in angefügter Tabelle die Namen der Spalte C in Spalte A suchen.
Wenn der Name aus Spalte C in Spalte A vorkommt, soll der komplette Name aus Spalte A an eine andere Stelle kopiert werden.
https://www.herber.de/bbs/user/53725.xls
Private Sub CommandButton1_Click()
Dim i
Dim LetzteZeile As Long
LetzteZeile = Range("D65536").End(xlUp).Row
For i = 2 To 65536
Sheets("LISTE1").Select
Cells(i, 7).Value 'in Spalte G steht der zu suchende Name
Sheets("LISTE2").Select
Range("D2", Cells(LetzteZeile, 4)).Select 'in Spalte D soll der Name gefunden werden
Selection.Find(What:=Value, _
LookAt:=xlPart, _
Searchorder:=xlByRows, SearchDirection:=xlNext).Copy
Sheets("LISTE3").Select
Range(LetzteZeile, 1).Select
Paste
Next i
End Sub
Sub zuordnen()
Dim z1 As Long, z2 As Long, k As Long
For z2 = 1 To Cells(1, 3).End(xlDown).Row
k = 1
For z1 = 1 To Cells(1, 1).End(xlDown).Row
If InStr(Cells(z1, 1).Value, Cells(z2, 3).Value) > 0 Then
Cells(z2, 3 + k).Value = Cells(z1, 1).Value
k = k + 1
End If
Next
Next
End Sub
Gruß
Roland Hochhäuser