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

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

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
Beitrag # 1 von 3
Bewertung:
(3226 mal gelesen)
URL zum Beitrag
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.
X

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

Klaus79
Beiträge gesamt: 320

23. Sep 2019, 14:07
Beitrag # 2 von 3
Beitrag ID: #571936
Bewertung:
(3157 mal gelesen)
URL zum Beitrag
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


als Antwort auf: [#571920]

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
Beitrag # 3 von 3
Beitrag ID: #571942
Bewertung:
(3139 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Endscool! Tut, exakt was es soll!
Tausend Dank an das Genie!!

Gruß
Robert


als Antwort auf: [#571936]

Aktuell

InDesign / Illustrator
IDUG_300

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
02.02.2023

Prozesse optimieren und effizient gestalten

Zürich
Donnerstag, 02. Feb. 2023, 08.00 - 10.00 Uhr

Digitalisierung, Webauftritt

Digitalisierung mitgestalten - Worauf kommt es an? Wie wichtig ist die Webseite? Webseite mit Word Press? Interne Prozesse optimieren

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: Birol Isik, E-Mailinfo AT bkcc DOT ch

https://digitalisierung-heute.ch/digitalisierung-informationstag-schweiz/

Veranstaltungen
01.03.2023 - 09.03.2023

Online
Mittwoch, 01. März 2023, 00.00 Uhr - Donnerstag, 09. März 2023, 00.00 Uhr

Online Webinar

Wie gehen wir mit diesen Veränderungen um? Was ist notwendig, damit wir die Digitalisierung im Unternehmen klappt? Veränderungsprozesse verstehen und entsprechend handeln Mitarbeiter als Botschafter Webseite mit WordPress erstellen SEA /SEO (Ads aufschalten)

Ja

Organisator: B. Isik - SNF Academy

Kontaktinformation: B. Isik, E-Mailinfo AT snfa DOT ch

https://www.fernstudiumfitness.ch/digitalisierung-schweiz/