Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenumbruch in Zelle bei ;

Forumthread: Zeilenumbruch in Zelle bei ;

Zeilenumbruch in Zelle bei ;
08.12.2016 11:54:14
Peter
Hallo zusammen
Ich möchte in der Tabelle1 in Zelle B9, mit VBA, jeweils nach jedem Semikolon einen Zeilenumbruch erzeugen, das Semikolon mit einem möglichen Leerzeichen soll gelöscht werden.
Beispielsatz:
Ich möchte in der Tabelle1 in Zelle B9; jeweils nach jedem Semikolon; einen Zeilenumbruch erzeugen; und das Semikolon+Leerzeichen; soll gelöscht werden.
Ergebnis: mit Zeilenumbruch, Semikolon und mögliches Leerzeichen gelöscht:
Ich möchte in der Tabelle1 in Zelle B9
jeweils nach jedem Semikolon
einen Zeilenumbruch erzeugen
und das Semikolon+Leerzeichen
soll gelöscht werden.
Konnte im Netz nichts finden, wie müsste der Code aussehen?
Danke
Viele Grüsse,
Peter
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenumbruch in Zelle bei ;
08.12.2016 12:19:16
Rudi
Hallo, 
Sub aa()
With Range("B9")
.Value = Replace(.Value, ";", vbLf)
.Value = Replace(.Value, vbLf & " ", vbLf)
End With
End Sub
Gruß
Rudi
AW: + angepasste Zeilenhöhen
08.12.2016 17:27:14
Peter
Hallo Rudi
Funktioniert super Danke Dir.
Ich habe noch eine Frage, weißt Du wie ich entsprechend dem Zeilenumbruch, automatisch die neue Zeilenhöhe anpassen könnte, wie müsste der Code dazu aussehen?
Danke
Viele Grüsse,
Peter
Anzeige
AW: + angepasste Zeilenhöhen
08.12.2016 19:56:01
Uduuh
Hallo,
wenn du keine verbundenen Zellen in der Zeile hast: 
Sub aa()
With Range("B9")
.Value = Replace(.Value, ";", vbLf)
.Value = Replace(.Value, vbLf & " ", vbLf)
.EntireRow.AutoFit
End With
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Zeilenhöhen mit Verbundenen Zellen
09.12.2016 07:55:57
Peter
Hallo Udo
Danke für den Code, funktioniert Bestens, jedoch habe ich Verbundene Zellen.
Wie müsste der Code aussehen, damit ich die Zeilenhöhe mit Verbundenen Zellen realiseren könnte (verbunden drei Zellen B9:B11)? Gibt es da eine Möglichkeit?
Danke
Viele Grüsse,
Peter
AW: Zeilenhöhen mit Verbundenen Zellen
09.12.2016 09:03:41
Daniel
HI
in Verbundzellen ist es nicht möglich, die Zeilenhöhe oder -breite automaisch ermitteln zu lassen.
du musst dann so vorgehen:
1. Zellverbund aufheben
2. Zeilenhöhe für Einzelzelle automatisch ermitteln
3. Diese Zeilenhöhe auf die Anzahl der Verbundzellen aufteilen
4. Zellverbund wieder herstellen.
funktioniert für dein Beispiel so, die Gesamthöhe wird gleichmäßig zwischen den Zeilen des Verbundes aufgeteilt: 

Sub aa()
Dim Anzahl As Long
Dim Höhe As Double
With Range("B9")
Anzahl = .MergeArea.Rows.Count
.Value = Replace(.Value, ";", vbLf)
.Value = Replace(.Value, vbLf & " ", vbLf)
.MergeCells = False
.EntireRow.AutoFit
Höhe = .RowHeight / Anzahl
With .Resize(Anzahl)
.EntireRow.RowHeight = Höhe
.MergeCells = True
End With
End With
End Sub
Gruß Daniel
Anzeige
AW: Zeilenhöhen mit Verbundenen Zellen
09.12.2016 13:21:22
Peter
Hi Daniel
Funktioniert sehr gut, vielen DANK!
Viele Grüsse,
Peter
AW: + angepasste Zeilenhöhen
09.12.2016 06:45:11
Peter
Hallo Rudi
Funktioniert super Danke Dir.
Ich habe noch eine Frage, weißt Du wie ich entsprechend dem Zeilenumbruch, automatisch die neue Zeilenhöhe anpassen könnte, wie müsste der Code dazu aussehen?
Danke
Viele Grüsse,
Peter
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Zeilenumbruch in Zelle mit Verkettungen
Rolf

Hallo!
ich möchte in eine Zelle folgendes schreiben: ="Text" & A1
Dann sollte aber der Text in der 1. Zeile stehen, der Rest in der 2. Zeile.
Alt-Return klappt leider nicht.
Kann mir jemand sagen, wie ich das hinkriege (ohne die Zelle entsprechend zu verkleinern)?
Danke<...
02.06.2009 09:48:33
Thread-ID: 1078547
6 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilenumbruch in Excel-Zellen bei Semikolon

Schritt-für-Schritt-Anleitung

Um in Excel einen Zeilenumbruch in einer Zelle bei jedem Semikolon zu erzeugen und das Semikolon zusammen mit möglichen Leerzeichen zu löschen, kannst Du folgenden VBA-Code verwenden:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub ZeilenumbruchErzeugen()
    With Range("B9")
        .Value = Replace(.Value, ";", vbLf) ' Semikolon durch Zeilenumbruch ersetzen
        .Value = Replace(.Value, vbLf & " ", vbLf) ' Verbundene Leerzeichen entfernen
        .EntireRow.AutoFit ' Zeilenhöhe anpassen
    End With
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: "Der Code funktioniert nicht, wenn Zellen verbunden sind."

    • Lösung: Du musst den Zellverbund aufheben, bevor Du den Zeilenumbruch und die Zeilenhöhenanpassung vornimmst. Hier ist ein angepasster Code:
    Sub ZeilenumbruchMitVerbundenenZellen()
    Dim Anzahl As Long
    Dim Höhe As Double
    With Range("B9")
        Anzahl = .MergeArea.Rows.Count
        .Value = Replace(.Value, ";", vbLf)
        .Value = Replace(.Value, vbLf & " ", vbLf)
        .MergeCells = False
        .EntireRow.AutoFit
        Höhe = .RowHeight / Anzahl
        With .Resize(Anzahl)
            .EntireRow.RowHeight = Höhe
            .MergeCells = True
        End With
    End With
End Sub

  • Fehler: "Die Zeilenhöhe passt nicht zum Inhalt."

    • Lösung: Stelle sicher, dass das AutoFit für die gesamte Zeile aktiviert ist.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die Funktion "Text in Spalten" nutzen, um den Inhalt zu teilen:

  1. Wähle die Zelle aus, die das Semikolon enthält.
  2. Gehe zu Daten > Text in Spalten.
  3. Wähle Getrennt und dann Weiter.
  4. Setze ein Häkchen bei Semikolon und klicke auf Fertig stellen.
  5. Danach kannst Du die Zellen manuell anpassen, um die neuen Zeilen zu erstellen.

Praktische Beispiele

Beispiel 1: Wenn in Zelle B9 folgender Text steht:

Ich möchte in der Tabelle1 in Zelle B9; jeweils nach jedem Semikolon; einen Zeilenumbruch erzeugen; und das Semikolon+Leerzeichen; soll gelöscht werden.

Nach Ausführung des Makros wird der Text so aussehen:

Ich möchte in der Tabelle1 in Zelle B9
jeweils nach jedem Semikolon
einen Zeilenumbruch erzeugen
und das Semikolon+Leerzeichen
soll gelöscht werden.

Beispiel 2: Bei verbundenen Zellen B9:B11 wird die Gesamthöhe gleichmäßig zwischen den verbundenen Zellen aufgeteilt.

Tipps für Profis

  • Achte darauf, den Zellverbund immer wieder herzustellen, nachdem Du die Zeilenhöhe angepasst hast.
  • Verwende vbCrLf anstelle von vbLf, wenn Du sicherstellen möchtest, dass der Zeilenumbruch in allen Excel-Versionen richtig angezeigt wird.
  • Du kannst den Code leicht anpassen, um andere Trennzeichen (z.B. Kommas) zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich den Zeilenumbruch in einer anderen Zelle als B9 durchführen? Du musst einfach den Zellbezug im Code anpassen, z.B. Range("A1") anstelle von Range("B9").

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der VBA-Code funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010 bis 2021 und Excel 365.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige