Forenindex » Programme » Office » Microsoft Office » Excel (Version 16.28 für MAC): Durch Semikolon getrennte Werte einer Zelle in Zeilen darunter schreiben

Excel (Version 16.28 für MAC): Durch Semikolon getrennte Werte einer Zelle in Zeilen darunter schreiben

robbau
Beiträge gesamt: 24

22. Sep 2019, 12:52
Bewertung:

gelesen: 3692

Beitrag als Lesezeichen
Hallo,
wer kann mir helfen?
Ich suche eine simple Lösung wie man Werte, die in einer Zelle getrennt durch Semikolon stehen, in Zellen untereinander schreiben und dabei das Semikolon entfernen kann.

Beispiel:
Zelle A1: Montag; Dienstag; Mittwoch; Donnerstag

Gewünschtes Ergebnis:
A1: Montag
A2: Dienstag
A3: Mittwoch
A4: Donnerstag

Die Excel Funktion "Text in Spalten" macht genau das, allerdings nur für Spalten und nicht für Zeilen. Klar könnte man diese mit der Funktion "Inhalte einfügen / transponieren" kombinieren, was aber leider recht umständlich ist, wenn man es häufiger braucht.

Excel (Version 16.28 für MAC): Durch Semikolon getrennte Werte einer Zelle in Zeilen darunter schreiben

Klaus79
Beiträge gesamt: 341

23. Sep 2019, 14:07
Bewertung:

gelesen: 3623

Beitrag als Lesezeichen
Hallo,

da du am Ende auch die Mutterzelle überschrieben haben willst funktioniert das nur mit einem Makro. Auf die Schnelle:

Sub Splitten()
Dim iRow As Long
Dim iCol As Integer
Dim sTxt As String
sTxt = ActiveCell.Value
If sTxt = "" Then Exit Sub
iCol = ActiveCell.Column
iRow = ActiveCell.Row - 1
Do While InStr(sTxt, "; ")
iRow = iRow + 1
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, "; ") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, "; ") - 1)
Cells(iRow + 1, iCol).Value = sTxt
Loop
End Sub

Cursor in beliebige Zelle mit dem Text stellen und Makro laufen lassen.
Das Makro kannst du auch auf ein Tastaturkürzel legen.
Klappt's?

Gruß
Klaus

Excel (Version 16.28 für MAC): Durch Semikolon getrennte Werte einer Zelle in Zeilen darunter schreiben

robbau
Beiträge gesamt: 24

23. Sep 2019, 16:34
Bewertung:

gelesen: 3605

Beitrag als Lesezeichen
Endscool! Tut, exakt was es soll!
Tausend Dank an das Genie!!

Gruß
Robert