Office: Zeichenkette mit Leerzeichen aufsplitten

kibit on sight · 27. Februar 2008

hallo, habe einen hänger und bin fast am verzweifeln ...

die Zelle hat folgenden Inhalt:

"abc sss mmm ee ggg" und so weiter, also text, dann leerzeichen, dann wieder ein text

ich brauche alle teile dieses textes in einer indizierten variablen, aus der ich dann später wieder andere dinge basteln muss:

test(1) = "abc"
test(2) = "sss" ...

hat jemand von euch eine geniale schleife, die sowas macht, mir gehts nur ums prinzip ..*Smilie

danke schon mal
peter

:)

jinx · 29. Februar 2008

Moin, peter,

die Funktion SPLIT steht ab VBA2000 zur Verfügung und teilt die Zeichenkette am Trennzeichen in ein Arrayauf...

kibit on sight · 29. Februar 2008

hallo, danke für die schnelle antwort, hab split mal nachgelesen, werd aber net so richtig schlau, wie es anzuwenden ist.

ich habs mal so getestet:

Code:

Dim ref(1 To 255) As String, a_string As String, hs As String
Dim anzahl_zeichen As Integer, startpos As Integer
Dim j As Integer
Dim maximal_zeichen As Integer

Sheets("BOM_purchase").Select

act_row_nr = 22
Range("i" & act_row_nr).Select ' Zelle ref_gesamt auswaehlen
maximal_zeichen = Len(ActiveCell)
a_string = LTrim(ActiveCell.Value)

hs = ""
startpos = 1

For anzahl_zeichen = 1 To maximal_zeichen

hs = hs + Mid$(a_string, startpos, 1)

If Mid$(a_string, startpos, 1) = Chr(32) Then
MsgBox hs
Exit For
End If

startpos = startpos + 1

Next anzahl_zeichen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

da bekomm ich halt den ersten text

jinx · 29. Februar 2008

Moin, Peter,

so z.B.:

Code:

Sub ArrayPerSplit()
Dim myarray As Variant
Dim lngCounter As Long

With Sheets("BOM_purchase").Range("I22")
myarray = Split(Trim(.Value), " ")
End With

' Ausgabe im Direktfenster
For lngCounter = LBound(myarray) To UBound(myarray)
Debug.Print myarray(lngCounter)
Next lngCounter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kibit on sight · 29. Februar 2008

nun auch ich moin,

vielen dank, hatte gestern abend keine nerven mehr jedoch noch in einem alten access vba (vers 2000) buch das thema dynamische arrays durchgelesen, es war so spannend dass ich sehr müde geworden bin*wink.gif*

die ArrayPerSplit routine läuft wunderbar, wusste nicht, dass es so elegante funktionen gibt.

vielen dank nochmals, den rest sollte ich doch hinbekommen

gruss
peter

Office: Zeichenkette mit Leerzeichen aufsplitten

Zeichenkette mit Leerzeichen aufsplitten

Zeichenkette mit Leerzeichen aufsplitten

Zeichenkette mit Leerzeichen aufsplitten

Zeichenkette mit Leerzeichen aufsplitten - Similar Threads - Zeichenkette Leerzeichen aufsplitten

Code erkennt Zeichenkette (leerzeichen nicht)

String in Zeichenkette gesucht

Zeichenkette Text, Zahle und Buchstaben trennen

Zeichenkette zerlegen am leerzeichen !

Zeichenketten aus einem StrinG filtern

Datei Name aus Textstring extraieren

Zählen von Zeichenkette