Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

String splitten und untereinander auflisten

Betrifft: String splitten und untereinander auflisten von: urmila
Geschrieben am: 03.08.2014 16:58:13

Hallo zusammen,

ich hoffe ihr könnt mir bei folgendem Problem behilflich sein:

Ich habe einem String (vorDef as String) ein Zellinhalt zugeordnet
"Grün; Blau; Rot; Pink"

Die Vorgabe ist stets die selbe, TEXT dann SEMIKOLON dann LEERSTELLE usw.

Nun würde ich gerne dass es zählt wieviele Wörter der String enthält und anhand dieser soll immer eine Zeile eingefügt und die Farben untereinander in Zellen einfügen, z.B.

Vorher:

vorDef (oder Zelle A5) = Grün; Blau; Rot; Pink

Nachher:
Zelle A5 = Grün
Zelle A6 = Blau
Zelle A7 = Rot
Zelle A8 = Pink
Er soll immer die Semikolons und die Leerstelle nach dem Semikolon natürlich löschen.

Ich hoffe es war verständlich und ihr könnt mir weiterhelfen.

VIelen Dank und LG
Urmila

  

Betrifft: das ist unsere: von: WF
Geschrieben am: 03.08.2014 18:04:49

http://excelformeln.de/formeln.html?welcher=326

den ersten Schritt lässt Du weg und statt " " nimmst Du dann "; "

Salut WF


  

Betrifft: AW: das ist unsere: von: urmila
Geschrieben am: 03.08.2014 18:24:40

Hallo WF,

danke für deine Rückmeldung, doch ich suche nache einer VBA Lösung, das hier ist ja reine Formel/n.

Danke und LG
Urmila


  

Betrifft: AW: String splitten und untereinander auflisten von: urmila
Geschrieben am: 03.08.2014 18:41:21

HAllo,

ich habe nun ein Skript gefunden und darin war das wonach ich suchte....
Falls jemand Interesse danach hat...

Dim sText() As String
Dim vorDef As String
Dim strText(1) As String
Dim Wert As String
Dim einzText
vorDef = "Grün; Blau; Rot"
strText(0) = vorDef
sText = Split(strText(0), ";")
For einzText = 0 To UBound(sText)
    MsgBox sText(einzText)
Next
LG
Urmila


  

Betrifft: AW: String splitten und untereinander auflisten von: Beverly
Geschrieben am: 03.08.2014 18:44:52

Hi Urmila,

   Dim arrWerte
   arrWerte = Split(Range("A5"), "; ")
   Range("A5").Resize(UBound(arrWerte) + 1, 1) = Application.Transpose(arrWerte)


GrußformelBeverly's Excel - Inn


 

Beiträge aus den Excel-Beispielen zum Thema "String splitten und untereinander auflisten"