Hallo Leute,
ich habe folgendes Problem und würde mich über Lösungsvorschläge freuen.
Ich habe die nachfolgende Funktion erstellt, welche in einer Schleife aufgerufen wird und in einer großen Range nach bestimmten "Teilstrings" in Strings aus einer Zelle suchen soll und diese in bestimmte Arbeitsblätter (MyArbeitsblatt) schreiben soll.
Mein Problem ist nun folgendes:
Wenn ich z.B. nach dem Teilstring "FI" suche und diesen Eintrag in ein bestimmtes Arbeitsblatt laden möchte ist alles cool. Wenn ich aber später mit dieser Funktion nach "FIA" suchen möchte, wurde dies schon von FI fälschlicher weise rausgefiltert.
Habt ihr de Idee wie ich das verhindern kann? Bzw. wie ich z.B. nach FI suchen kann, aber FIA unberührt bleibt?
Public Function SORTER(rngSpalte, MyZelle, MyArbeitsblatt)
'Variable deklarieren
Dim myObject As Object
If Zelle <> "" Then
For Each myObject In rngSpalte
If InStr(myObject, MyZelle) Then
myObject.EntireRow.Select
Selection.Copy
MyArbeitsblatt.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
Selection.Clear
End If
Next
End If
End Function
|