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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen