Hallo,
ich möchte die Zeichenketten der Spalte A
wie in der Anlage mit VBA trennen.
Wer kann helfen?
https://www.herber.de/bbs/user/74371.xls
Danke Peter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zeichenkette trennen

Rudi
AW: vielen Dank o.T.

Peter

AW: Zeichenkette trennen

13.04.2011 09:44:49

Rudi

Hallo,
in ein Modul:

Sub xxx()
Dim i As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2).Resize(, 8) = arrTxt(Cells(i, 1))
Next
End Sub
Function arrTxt(sTxt As String)
Dim arrTmp(7), arrCol, i
arrTmp(0) = Left(sTxt, InStr(sTxt, "(") - 1)
arrTmp(1) = Mid(sTxt, InStr(sTxt, "(") + 1, 4)
arrCol = Split(Mid(sTxt, InStr(sTxt, ")") + 1, 99), ",")
If UBound(arrCol) > 0 Then
For i = 0 To UBound(arrCol) - 1
arrTmp(2 + i) = arrCol(i)
Next
arrTmp(2 + i) = Left(arrCol(i), Len(arrCol(i)) - 4)
Else
arrTmp(2) = Left(arrCol(0), Len(arrCol(0)) - 4)
End If
arrTmp(7) = Right(sTxt, 3)
arrTxt = arrTmp
End Function

Gruß
Rudi

AW: vielen Dank o.T.

13.04.2011 12:12:10

Peter

Danke

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel text enthält wort

34081
excel wenn andere zelle dann farbe

23512
excel text vor zeichen ausgeben

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen

16052

excel tabelle scrollt nicht

15741

excel formel kopieren ohne bezug

15343

excel wenn buchstabe enthalten dann

14267

excel wenn zelle gleich dann wert aus anderer zelle

12306

excel abschneiden bis zeichen

11938

excel die ersten 4 zeichen löschen

11417

excel summe 0 obwohl zahlen

10634

excel zelle einfärben wenn andere zelle text enthält

10521

excel zählen wenn oder

9511

excel zeichen löschen links

9498

excel prüfen ob zeichenfolge enthalten

9480

excel wenn ergebnis 0 dann leer

9079

excel makro wert in zelle schreiben

8864

excel formel links bis leerzeichen

8800

zählenwenn mit datum

8428

excel zählenwenn doppelte werte nur einmal zählen

8178

excel zelleninhalt übernehmen

8062

excel teil ab bestimmten zeichen

7989

excel funktion rechts ab zeichen

7915

excel wenn größer und kleiner

7806

excel vba letzte beschriebene zeile finden

7675

excel datum uhrzeit zusammenführen

7521

ein und ausblenden excel mit button

7291

minuten in stunden excel

7167

excel wenn dann zeile ausblenden ohne makro

7070

excel cursor kreuz statt pfeil

7068

excel monat aus kw

6935

excel datum rot färben wenn älter als heute

6521

summewenn ungleich text

6515

excel text untereinander statt nebeneinander

6294

excel vba inhalte löschen

6182

excel negative zahlen auf null setzen

6026

excel formel wenn uhrzeit größer dann

6006

excel letzten 4 zeichen ausgeben

5981

excel prüfen ob wert in spalte vorhanden

5920

excel erstes wort

5910

excel shortcut zwischen blättern wechseln

5872

excel automatische nummerierung funktioniert nicht

5838

excel wenn istleer mehrere zellen

5829

datei durch eigenen user gesperrt

5734

excel letzten zwei zeichen entfernen

5705

was bedeutet @ in excel formel

5689

sverweis summieren

5676

wenn zelle leer dann andere zelle

5582

excel text in zelle finden

5539

excel zeit plus 15 minuten

5492

excel vba suche

5379

excel zählenwenn ungleich leer

5341

summewenns kriterienbereich mehrere spalten

5321

excel null vor zahl entfernen

5224

excel bedingte formatierung wenn andere zelle

5182

msgbox ja nein

5105

excel email aus namen generieren

5082

sverweis statt nv 0

5082

vba hintergrundfarbe ändern

5053

excel wenn rot dann

5053

buchstaben entfernen excel

4974

wenn dann wert aus zelle übernehmen

4903

summewenns ungleich mehrere kriterien

4847

excel text in anführungszeichen setzen

4841

excel vba prüfen ob zelle bestimmten text enthält

4789

excel formel datum + 6 monate

4769

excel summewenns datum

4754

excel vba passwort setzen

4727

finden von rechts excel

4710

excel vba mehrere if bedingungen

4679

excel diagramm zwei linien übereinander

4659

excel erkennt datum nicht

4654

excel bild auf zellengröße anpassen

4588

punkte in excel entfernen

4564

excel zeichen löschen links

4556

excel text aus anderer zelle automatisch übernehmen

4516

vba excel text in zahl umwandeln

4508

vba zeilenumbruch

4482

zählenwenn wort enthalten

4469

excel spalte suchen

4452

excel vba prüfen ob sheet existiert

4430

vba-makro beenden tastenkombination

4411

excel datum des eintrags anzeigen

4362

excel formel kopieren ohne bezug

4360

summe runden

4357

aktuelle uhrzeit excel

4332

excel vba formular schließen

4327

excel durchschnitt prozent

4327

excel datum aus kalenderwoche

4324

excel zeile ausgeben

4308

verketten mit datum

4300

vba auf tabelle zugreifen

4285

gruppierungen benennen excel

4260

excel gliederung kann nicht erstellt werden

4229

excel zu viele argumente für diese funktion

4199

visual basic zeilenumbruch im code

4182

excel liste leere zellen ignorieren

4158

excel blattschutz filter aktivieren

4142

excel druck linien ausblenden

4075

excel aktuelles jahr einfügen

4025

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel text enthält wort

34081
excel wenn andere zelle dann farbe

23512
excel text vor zeichen ausgeben

16681

Weitere Forumthreads anzeigen

excel zeichen einfügen

16052

excel tabelle scrollt nicht

15741

excel formel kopieren ohne bezug

15343

excel wenn buchstabe enthalten dann

14267

excel wenn zelle gleich dann wert aus anderer zelle

12306

excel abschneiden bis zeichen

11938

excel die ersten 4 zeichen löschen

11417

excel summe 0 obwohl zahlen

10634

excel zelle einfärben wenn andere zelle text enthält

10521

excel zählen wenn oder

9511

excel zeichen löschen links

9498

excel prüfen ob zeichenfolge enthalten

9480

excel wenn ergebnis 0 dann leer

9079

excel makro wert in zelle schreiben

8864

excel formel links bis leerzeichen

8800

zählenwenn mit datum

8428

excel zählenwenn doppelte werte nur einmal zählen

8178

excel zelleninhalt übernehmen

8062

excel teil ab bestimmten zeichen

7989

excel funktion rechts ab zeichen

7915

excel wenn größer und kleiner

7806

excel vba letzte beschriebene zeile finden

7675

excel datum uhrzeit zusammenführen

7521

ein und ausblenden excel mit button

7291

minuten in stunden excel

7167

excel wenn dann zeile ausblenden ohne makro

7070

excel cursor kreuz statt pfeil

7068

excel monat aus kw

6935

excel datum rot färben wenn älter als heute

6521

summewenn ungleich text

6515

excel text untereinander statt nebeneinander

6294

excel vba inhalte löschen

6182

excel negative zahlen auf null setzen

6026

excel formel wenn uhrzeit größer dann

6006

excel letzten 4 zeichen ausgeben

5981

excel prüfen ob wert in spalte vorhanden

5920

excel erstes wort

5910

excel shortcut zwischen blättern wechseln

5872

excel automatische nummerierung funktioniert nicht

5838

excel wenn istleer mehrere zellen

5829

datei durch eigenen user gesperrt

5734

excel letzten zwei zeichen entfernen

5705

was bedeutet @ in excel formel

5689

sverweis summieren

5676

wenn zelle leer dann andere zelle

5582

excel text in zelle finden

5539

excel zeit plus 15 minuten

5492

excel vba suche

5379

excel zählenwenn ungleich leer

5341

summewenns kriterienbereich mehrere spalten

5321

excel null vor zahl entfernen

5224

excel bedingte formatierung wenn andere zelle

5182

msgbox ja nein

5105

excel email aus namen generieren

5082

sverweis statt nv 0

5082

vba hintergrundfarbe ändern

5053

excel wenn rot dann

5053

buchstaben entfernen excel

4974

wenn dann wert aus zelle übernehmen

4903

summewenns ungleich mehrere kriterien

4847

excel text in anführungszeichen setzen

4841

excel vba prüfen ob zelle bestimmten text enthält

4789

excel formel datum + 6 monate

4769

excel summewenns datum

4754

excel vba passwort setzen

4727

finden von rechts excel

4710

excel vba mehrere if bedingungen

4679

excel diagramm zwei linien übereinander

4659

excel erkennt datum nicht

4654

excel bild auf zellengröße anpassen

4588

punkte in excel entfernen

4564

excel zeichen löschen links

4556

excel text aus anderer zelle automatisch übernehmen

4516

vba excel text in zahl umwandeln

4508

vba zeilenumbruch

4482

zählenwenn wort enthalten

4469

excel spalte suchen

4452

excel vba prüfen ob sheet existiert

4430

vba-makro beenden tastenkombination

4411

excel datum des eintrags anzeigen

4362

excel formel kopieren ohne bezug

4360

summe runden

4357

aktuelle uhrzeit excel

4332

excel vba formular schließen

4327

excel durchschnitt prozent

4327

excel datum aus kalenderwoche

4324

excel zeile ausgeben

4308

verketten mit datum

4300

vba auf tabelle zugreifen

4285

gruppierungen benennen excel

4260

excel gliederung kann nicht erstellt werden

4229

excel zu viele argumente für diese funktion

4199

visual basic zeilenumbruch im code

4182

excel liste leere zellen ignorieren

4158

excel blattschutz filter aktivieren

4142

excel druck linien ausblenden

4075

excel aktuelles jahr einfügen

4025

Zeichenkette trennen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread