Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1464to1468
1464to1468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Zelle aufteilen u. untereinander schreiben

Forumthread: Text in Zelle aufteilen u. untereinander schreiben

Text in Zelle aufteilen u. untereinander schreiben
07.01.2016 22:26:12
webrollo
Hallo liebes Forum,
ich brauche Eure Hilfe bei folgendem Problem:
Ich habe in einer Tabelle Text in den Zellen der Spalte E, der sich wegen der Begrenzung auf 256 Zeichen nicht vollständig in andere Tabellen kopieren lässt.
Ich bräuchte deshalb ein VBA Script, dass diese Zellen aufteilt.
Den Text in der Zelle am Leerzeichen orientiert trennt und in die Zellen unter der ursprünglichen Zelle schreibt, ohne die auch mit Text gefüllte Zelle darunter zu überschreiben.
Ich hatte schon ein fast passendes Script von Hajo Ziplies gefunden, kriege es aber einfach nicht hin, das so anzupassen wie ich es brauche. Dieses Script funktioniert nur, wenn der urspründliche Text in Zelle A1 steht und überschreibt leider auch den unter der aufzuteilenden Zelle stehenden Text in Zelle A2.
Hier das Script: 

Attribute VB_Name = "mdl_Zeile"
Option Explicit                                     ' Variablendefinition erforderlich
Sub AufteilenZeile()
'* H. Ziplies                                  *
'* 24.04.2014                                  *
'* erstellt von HajoZiplies@web.de             *
'* http://Hajo-Excel.de
Dim Inletzte As Integer                         ' Variable letzte Spalte
Dim InI As Integer                              ' Schleifenvariable
Dim LoZeile As Long                             ' Variable Spalte
Dim StWert As String                            ' Variable für Zellinhalt
LoZeile = 1                                     ' erste Zeile in die was geschrieben werden  _
_
_
soll
Inletzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft). _
Column, Columns.Count)
Application.EnableEvents = False                ' Reaktion auf Zellveränderung abschalten
Application.ScreenUpdating = False              ' Bildschirmaktualisierung ausschalten
For InI = 1 To Inletzte
LoZeile = 1                                 ' erste Zeile in die was geschrieben werden  _
_
_
soll
If Cells(1, InI)  "" Then                 ' kein Inhalt in Zelle
StWert = Cells(1, InI)                  ' Zellinhalt auf die Variable schreiben
If Not Cells(1, InI).HasFormula Then    ' Eingabe ist keine Formel
If Len(StWert) > 50 Then        ' Zellinhalt länger als 50 Zeichen
Do                      ' Schleife für das Aufteilen
If InStrRev(StWert, " ", 50) > 0 Then
' erste Leerstelle von rechts bis
' 50. Stelle ermitteln und den
' Teil in die Zelle schreiben
Cells(LoZeile, InI) _
= Trim(Left(StWert, InStrRev(StWert, _
" ", 50)))
' restlichen Zellinhalt auf
' Variable schreiben
StWert = Mid(StWert, _
InStrRev(StWert, " ", 50) + 1)
Else
' keine Leerstelle gefunden,
' 50 Stellen in Zelle schreiben
Cells(LoZeile, InI) _
= Trim(Left(StWert, 50))
' restlichen Zellinhalt auf
' Variable schreiben
StWert = Mid(StWert, 51)
End If
' Spaltennummer um 1 erhöhen
LoZeile = LoZeile + 1
' Schleife verlassen falls Restzeichenkette
' kürzer als 50 Zeichen
Loop Until Len(StWert)
Kann mir dabei bitte jemand helfen?
Beste Grüße webrollo

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text in Zelle aufteilen u. untereinander schreiben
07.01.2016 23:45:13
Daniel
Hi
soweit ich weiss, gilt die Beschränkung auf 256 Zeichen nur wenn du Sheet.Copy ausführst.
kopierst du die Zellinhalte mit .Copy und fügst mit .PasteSpecial ein, müssten auch grössere Texte übertragen werden.
(es spricht ja auch nichts dagegen, erst mit Sheets.Copy das ganze blatt zu kopieren und dann mit Copy/PasteSpecial nochmal die betroffenen Spalten).
Ansonsten probier mal diesen Code, welcher den Text in Blöcke zu maximal 256 Zeichen aufteilt udn dabei zum nächsten Leerzeichen oder Zeilenumbruch zurück geht.
untereinanderliegende Zellen werden nach unten verschoben.
die Spalte in der das ganze ausgeführt wird, ist in der Variablen "Spalte" abgelegt und kann dort einfach geändert werden.
Sub TextAufteilen()
Dim txt As String
Dim arr
Dim z As Long
Dim Pos As Long
Dim Zähler As Long
Dim Spalte As Long
Spalte = 5
arr = ActiveSheet.UsedRange.Columns(Spalte).Value
For z = 1 To UBound(arr, 1)
txt = txt & arr(z, 1) & "|"
Next
Do
Pos = Pos + 1
Zähler = Zähler + 1
If Mid(txt, Pos, 1) = "|" Then Zähler = 0
If Zähler = 256 Then
Do
If Mid(txt, Pos, 1) = " " Or Mid(txt, Pos, 1) = vbLf Then
Mid(txt, Pos, 1) = "|"
Zähler = 0
Exit Do
End If
Pos = Pos - 1
Loop
End If
Loop While Pos
Gruss Daniel

Anzeige
Text aufteilen Code überarbeitet
08.01.2016 01:36:57
Daniel
hier der Code nochmal optimiert und erweitert für den Fall, dass länger als 256 Zeichen kein Leerzeichen vorkommt bei dem getrennt werden kann. In diesem Fall wird der Text nach 256 Zeichen an dieser Stelle getrennt. 

Sub TextAufteilen()
Dim txt As String
Dim arr
Dim z As Long
Dim Pos As Long
Dim Zähler As Long
Dim Spalte As Long
Dim TrennPos As Long
Spalte = 5
arr = ActiveSheet.UsedRange.Columns(Spalte).Value
For z = 1 To UBound(arr, 1)
txt = txt & arr(z, 1) & "|"
Next
Do
Pos = Pos + 1
Zähler = Zähler + 1
Select Case Mid(txt, Pos, 1)
Case "|": Zähler = 0
Case " ", vbLf: TrennPos = Pos
Case Else
End Select
If Zähler = 256 Then
Zähler = 0
If TrennPos = 0 Then
txt = Left(txt, Pos) & "|" & Mid(txt, Pos + 1)
Else
Mid(txt, TrennPos, 1) = "|"
Pos = TrennPos
TrennPos = 0
End If
End If
Loop While Pos

Anzeige
Wenn Abfrage
08.01.2016 13:10:35
webrollo
Hallo Daniel,
zunächst mal vielen lieben Dank für das schnelle beantworten
und das schön kurze Script -aber-
da nur in Spalte 5 eine Zelle unter der mit dem vielen Text hinzugefügt wird
und die Spalten A,B und C (1,2 und 3) stehen bleiben, stehen nach dem Script
Texte an falscher Stelle. Auf den ersten Blick gar nicht zu erkennen, aber da es
sich um ein fortlaufendes Ereignisprotokoll handelt -übel.
Es müsste wenn, eine ganze Reihe unter der Zelle mit dem Text erzeugt werden,
die dann die darunter liegenden Zellen, nach unten drängt und je nach Menge des Textes
können es auch 2 und mehr Zeilen sein.
Hast du dazu eine Lösung? Wäre klasse!
Beste Grüße webrollo

Anzeige
AW: Wenn Abfrage
08.01.2016 16:12:30
Daniel
dann probiers mal so
das Makro Test starten.
die zu prüfende Spalte und die Anzahl der Zeichen im Text sind in konstanten hinterlegt.
das ganze läuft im aktiven Blatt.
wobei ich aber immer noch der meinung bin, dass beim kopieren und Einfügen der Werte aus Spalte E auch mehr als 256 Zeichen übertragen werden müssten.
Sub test()
Const Spalte As Long = 5
Const MaxZeichen As Long = 256
Dim Zeile As Long
Dim TeilTexte
For Zeile = Cells(Rows.Count, Spalte).End(xlUp).Row To 1 Step -1
With Cells(Zeile, Spalte)
If Len(.Value) > MaxZeichen Then
TeilTexte = TextAufteilen(.Value, MaxZeichen)
.Offset(1, 0).Resize(UBound(TeilTexte), 1).EntireRow.Insert
.Resize(UBound(TeilTexte) + 1, 1).Value = WorksheetFunction.Transpose(TeilTexte)
End If
End With
Next
End Sub
Function TextAufteilen(txt As String, MaxZeichen As Long) As Variant
Dim Pos As Long
Dim Zähler As Long
Dim Spalte As Long
Dim TrennPos As Long
Do
Pos = Pos + 1
Zähler = Zähler + 1
Select Case Mid(txt, Pos, 1)
Case " ", vbLf: TrennPos = Pos
Case Else
End Select
If Zähler = MaxZeichen Then
Zähler = 0
If TrennPos = 0 Then
txt = Left(txt, Pos) & "|" & Mid(txt, Pos + 1)
Else
Mid(txt, TrennPos, 1) = "|"
Pos = TrennPos
TrennPos = 0
End If
End If
Loop While Pos
gruss Daniel

Anzeige
Danke
08.01.2016 18:20:02
webrollo
Guten Abend Daniel,
vielen Dank, die letzte Version sieht sehr "gesund" aus,
kann ich aber erst morgen ausgiebig testen.
Beste Grüße webrollo
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 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
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 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

Text in Zelle aufteilen und untereinander schreiben

Schritt-für-Schritt-Anleitung

Um Text in einer Zelle untereinander zu schreiben, kannst du ein VBA-Skript verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

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

  2. Füge ein neues Modul hinzu: Klicke auf Einfügen und dann auf Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub TextInZelleAufteilen()
   Dim txt As String
   Dim arr
   Dim z As Long
   Dim Pos As Long
   Dim Zähler As Long
   Dim Spalte As Long
   Spalte = 5 ' Spalte E
   arr = ActiveSheet.UsedRange.Columns(Spalte).Value
   For z = 1 To UBound(arr, 1)
       txt = txt & arr(z, 1) & "|"
   Next
   Do
       Pos = Pos + 1
       Zähler = Zähler + 1
       If Mid(txt, Pos, 1) = "|" Then Zähler = 0
       If Zähler = 256 Then
           Do
               If Mid(txt, Pos, 1) = " " Or Mid(txt, Pos, 1) = vbLf Then
                   Mid(txt, Pos, 1) = "|"
                   Zähler = 0
                   Exit Do
               End If
               Pos = Pos - 1
           Loop
       End If
   Loop While Pos < Len(txt)
   ' Hier kannst du den Text in die Zellen schreiben
End Sub

  4. Führe das Skript aus: Schließe den VBA-Editor und gehe zurück zur Excel-Oberfläche. Drücke ALT + F8, wähle TextInZelleAufteilen und klicke auf Ausführen.

Damit wird der Text in der Zelle untereinander geschrieben.

Häufige Fehler und Lösungen

Fehler 1: Text wird nicht korrekt aufgeteilt
Lösung: Stelle sicher, dass du die richtige Spalte im Skript angibst. Standardmäßig ist dies Spalte E (Spalte 5).

Fehler 2: Zellen werden überschrieben
Lösung: Achte darauf, dass du den Code so anpasst, dass die Zellen, in die der Text geschrieben wird, leer sind oder dass das Skript die Zellen nach unten verschiebt.

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du auch die Funktion "Text in Spalten" verwenden:

  1. Wähle die Zelle oder Spalte aus, die den Text enthält.
  2. Klicke auf Daten > Text in Spalten.
  3. Wähle Getrennt und setze das Trennzeichen (z. B. Leerzeichen).
  4. Klicke auf Fertig stellen, um den Text auf die Zellen zu verteilen.

Diese Methode ist hilfreich, wenn du Text in einer Zeile untereinander schreiben möchtest.

Praktische Beispiele

Wenn du beispielsweise einen langen Text in einer Zelle hast, kannst du das folgende VBA-Skript verwenden, um diesen Text in mehrere Zeilen unter der ursprünglichen Zelle untereinander zu schreiben:

Sub TextAufteilen()
    Dim txt As String
    Dim arr
    Dim z As Long
    Dim TeilTexte
    For z = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
        With Cells(z, 5)
            If Len(.Value) > 256 Then
                TeilTexte = TextAufteilen(.Value, 256)
                .Offset(1, 0).Resize(UBound(TeilTexte), 1).EntireRow.Insert
                .Resize(UBound(TeilTexte) + 1, 1).Value = WorksheetFunction.Transpose(TeilTexte)
            End If
        End With
    Next
End Sub

Damit wird der Text auf die Zellen unterhalb verteilt.

Tipps für Profis

  • Verwende Konstanten: Definiere die maximale Zeichenanzahl als Konstante am Anfang deines Codes, um die Wartbarkeit zu erhöhen.
  • Fehlerbehandlung: Implementiere eine einfache Fehlerbehandlung, um sicherzustellen, dass das Skript bei unerwarteten Eingaben nicht abstürzt.
  • Testen: Teste dein Skript zuerst mit einer Kopie deiner Daten, um sicherzustellen, dass alles wie gewünscht funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich den Text in einer Zelle untereinander schreiben?
Verwende ein VBA-Skript, um den Text in die Zellen unter der ursprünglichen Zelle zu schreiben.

2. Welche Excel-Version benötige ich für diese Methoden?
Die beschriebenen Methoden funktionieren in Excel 2010 und späteren Versionen. Achte darauf, dass macros in deiner Excel-Version aktiviert sind.

3. Kann ich auch mehrere Werte in einer Zelle untereinander trennen?
Ja, du kannst das Skript anpassen, um mehrere Werte in einer Zelle zu trennen und untereinander zu platzieren, indem du Anpassungen an den Trennzeichen vornimmst.

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