Zelle auswerten nach Komma

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Split_TxT() Dim varAr, strTempText$, lngMaxRow& strTempText$ = Replace(Range("A10"), ".", ",") varAr = Split(strTempText$, ",") lngMaxRow& = Cells(Rows.Count, 1).End(xlUp).Row If lngMaxRow& > 10 Then Range("A11").Resize(lngMaxRow - 10).ClearContents End If If IsArray(varAr) Then Range("A11").Resize(UBound(varAr) + 1) = Application.Transpose(varAr) End If End Sub

Function Split_TxT(strText$, ByVal iIndex As Integer) Dim varAr, strTempText$ iIndex = iIndex - 1 Split_TxT = "" strTempText$ = Replace(Range("A10"), ".", ",") varAr = Split(strTempText$, ",") If IsArray(varAr) Then If Ubound(varAr) >= iIndex Then Split_TxT = varAr(iIndex) If Split_TxT Then _ Split_TxT = Split_TxT * 1 End If End If End Function

Hallo Walter,
Hier 2 Möglichkeiten :
Falls die Zellen B10:J10 frei sind :
- Markiere A10
- Menü "Daten - Text in Spalten - Getrennt - Komma - OK"
=> die Zellen sind nun auf A10:E10 aufgeteilt
- Markiere A10:E10
- Kopiere diese Zellen (z.B. Strg+C)
- Klicke A10 ein
- Menü "Bearbeiten - Inhalte einfügen - Werte - Transponieren - OK"
=> die Werte stehen nun in A10:A14
Oder : Per Funktion (Bitte in A11:B12 eingeben und dann A12:B12 nach unten kopieren) :

	A	B
10
11
12
13
14
15
16
17
18
19
20

Formeln der Tabelle

Zelle	Formel
A11	=LINKS($A$10;B11-1)
A12	=WENN(ISTZAHL(B12);TEIL($A$10;B11+1;B12-B11-1);WENN(ISTZAHL(B11);RECHTS($A$10;LÄNGE($A$10)-B11);""))
A13	=WENN(ISTZAHL(B13);TEIL($A$10;B12+1;B13-B12-1);WENN(ISTZAHL(B12);RECHTS($A$10;LÄNGE($A$10)-B12);""))
A14	=WENN(ISTZAHL(B14);TEIL($A$10;B13+1;B14-B13-1);WENN(ISTZAHL(B13);RECHTS($A$10;LÄNGE($A$10)-B13);""))
A15	=WENN(ISTZAHL(B15);TEIL($A$10;B14+1;B15-B14-1);WENN(ISTZAHL(B14);RECHTS($A$10;LÄNGE($A$10)-B14);""))
A16	=WENN(ISTZAHL(B16);TEIL($A$10;B15+1;B16-B15-1);WENN(ISTZAHL(B15);RECHTS($A$10;LÄNGE($A$10)-B15);""))
A17	=WENN(ISTZAHL(B17);TEIL($A$10;B16+1;B17-B16-1);WENN(ISTZAHL(B16);RECHTS($A$10;LÄNGE($A$10)-B16);""))
A18	=WENN(ISTZAHL(B18);TEIL($A$10;B17+1;B18-B17-1);WENN(ISTZAHL(B17);RECHTS($A$10;LÄNGE($A$10)-B17);""))
A19	=WENN(ISTZAHL(B19);TEIL($A$10;B18+1;B19-B18-1);WENN(ISTZAHL(B18);RECHTS($A$10;LÄNGE($A$10)-B18);""))
A20	=WENN(ISTZAHL(B20);TEIL($A$10;B19+1;B20-B19-1);WENN(ISTZAHL(B19);RECHTS($A$10;LÄNGE($A$10)-B19);""))
B11	=SUCHEN(",";$A$10)
B12	=WENN(ISTZAHL(SUCHEN(",";$A$10;B11+1));SUCHEN(",";$A$10;B11+1);"")
B13	=WENN(ISTZAHL(SUCHEN(",";$A$10;B12+1));SUCHEN(",";$A$10;B12+1);"")
B14	=WENN(ISTZAHL(SUCHEN(",";$A$10;B13+1));SUCHEN(",";$A$10;B13+1);"")
B15	=WENN(ISTZAHL(SUCHEN(",";$A$10;B14+1));SUCHEN(",";$A$10;B14+1);"")
B16	=WENN(ISTZAHL(SUCHEN(",";$A$10;B15+1));SUCHEN(",";$A$10;B15+1);"")
B17	=WENN(ISTZAHL(SUCHEN(",";$A$10;B16+1));SUCHEN(",";$A$10;B16+1);"")
B18	=WENN(ISTZAHL(SUCHEN(",";$A$10;B17+1));SUCHEN(",";$A$10;B17+1);"")
B19	=WENN(ISTZAHL(SUCHEN(",";$A$10;B18+1));SUCHEN(",";$A$10;B18+1);"")
B20	=WENN(ISTZAHL(SUCHEN(",";$A$10;B19+1));SUCHEN(",";$A$10;B19+1);"")

Gruß, NoNet
gegen 2:1

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

339 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
10	12,1,5,9,8.1598
11	12
12	1
13	5
14	9
15	8
16	1598
17

Zelle auswerten nach Komma

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

339 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread