Hallo zusammen,

ist so eine Suchfunktion in VBA möglich?
Und wenn ja, wie könnte die Lösung ansatzweise aussehen?

Code :

1 2 3

Suche nach den Anfangsstrings 'SG' und 'TW' in den Zellen A1 -> abwärts bis die erste leere Zelle kommt. Kopiere den Inhalt der gefundenen Zellen in das Array FELDER."

In den Feldern A1 abwärts steht zB drin:

SG123
TW549
SG125
GG080
TU123
SG234
…

Array FELDER muss dann die Daten enthalten:

SG123 | TW549 | SG125 | SG234


Viele Grüße
~daA|guRu~

Versuche das hier mal:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub finde() Dim treffer() ReDim treffer(0) zeile = 1 Do While Cells(zeile, 1) <> ""     If Left(Cells(zeile, 1), 2) = "SG" Or Left(Cells(zeile, 1), 2) = "TW" Then         anzahl = UBound(treffer) + 1         ReDim Preserve treffer(anzahl)         treffer(anzahl) = Cells(zeile, 1)     End If     zeile = zeile + 1 Loop End Sub

Gruß Thomas

Danke! Ich probiers grade mal aus!
Melde mich gleich wieder.

~daA|guRu~

Tombe, das Skript funktioniert wunderbar! Danke dafür.