Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

String splitten und untereinander auflisten

String splitten und untereinander auflisten
03.08.2014 16:58:13
urmila

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: das ist unsere:
03.08.2014 18:24:40
urmila
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

AW: String splitten und untereinander auflisten
03.08.2014 18:41:21
urmila
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

Anzeige
AW: String splitten und untereinander auflisten
03.08.2014 18:44:52
Beverly
Hi Urmila,
   Dim arrWerte
arrWerte = Split(Range("A5"), "; ")
Range("A5").Resize(UBound(arrWerte) + 1, 1) = Application.Transpose(arrWerte)



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige