auch nach ausgiebiger Suche habe ich leider keine Lösung zu meinem Problem gefunden.
Ich möchte aus einem anderen Workbook nach einem bestimmten Text suchen, dies mache ich bislang wie folgt
Dim Zelle as Range
Dim customers as Range
Set customers = Workbooks("Customer - Partno.XLS").Sheets("Customer - Partno").Range("I1:I1000")
For Each Zelle In customers
If Zelle.Value = "7871013640" Then
Zelle.Offset(0, 7).Copy Destination:=Range("A1")
End If
Next
Nun gibt es zu meinem Suchauftrag aber nicht ein, sondern mehrere Ergebisse sprich, es gibt den Wert "7871013640" in diesem Workbook mehrmals, in diesem Fall Suche ich nach einer Kundennummer.
Nun möchte ich gerne alle Ergebnisse, die ich unter berücksichtigung des Offsets, finde in ein anderes Workbook kopieren.
Hier mein Problem in Zahlen zur veranschaulichung:
Kundennr: Partno:
100234 7871013640
100238 7871013640
100245 7871013640
Ich würde mich über eure Hilfe sehr freuen. Danke.
Gruß
Marc