VBA: neue Zeile bei Zeichen

[Alpha_2412]

Hallo zusammen,

in einer Zelle stehen bei mir mehrere Werte, die mit einem "." getrennt sind (war ursprünglich ein summenprodukt).
Nun hätte ich gerne, dass jeder dieser Werte in einer neuen Zeile aufgeführt wird.
Hier als Beispiel:

Vorher:
Zelle A1 = 42100.42101.42110.42180.42190.42200.42280.42290

Nachher:

Zelle A1 = 42100
Zelle A2 = 42110
Zelle A3 = 42110
Zelle A4 = 42180
...

Ich hoffe das Anliegen kann nachvollzogen werden...

Danke schon mal und Grüße
Alpha

[marose67]

Hallo,

schau mal hier: https://www.clever-excel-forum.de/Thread...Neue+Zeile

Egebnis:

Tabelle1

	A	B
1	42100.42101.42110.42180.42190.42200.42280.42290	42100
2		42101
3		42110
4		42180
5		42190
6		42200
7		42280
8		42290

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Makro mit Alt + F11 hinter das Tabellenblatt legen

Sub splitten()
  Dim i As Long
  Dim a
  a = Split(Cells(1, 1), ".")
  For i = LBound(a) To UBound(a)
      Cells(i + 1, 2) = a(i)
  Next i
End Sub


Gruß
Marcus

[schauan]

Hallöchen,

oder ohne Schleife

…
Range("b1").Resize(UBound(a) + 1, 1).Value = WorksheetFunction.Transpose(a)
…

wobei man statt der Variablen a ruhig ein paar Stabbuchen mehr investieren kann, z.B. arrDaten
Zum einen ist das etwas aussagekräftiger hinsichtlich des Inhaltes und zum anderen wenn man in einem längeren Code sucht könnte a ein paar unerwünschte Treffer ergeben :20:

[RPP63]

Moin und off topic!
Da liegt Google Sheets mit einer simplen Formel in B1 klar vor Excel:
=TRANSPOSE(SPLIT(A1;"."))

   

Gruß Ralf