✔ Ist dieser Algorithmus möglich?

[Daaguru]

Hallo zusammen,

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

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~

 

[tombe]

Versuche das hier mal:

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

 

[Daaguru]

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

~daA|guRu~

 

[Daaguru]

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