Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
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
1680to1684
1680to1684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text in Sätze aufteilen

Forumthread: Text in Sätze aufteilen

Text in Sätze aufteilen
12.03.2019 20:25:12
Torsten
Nabend,
Ich habe in Zelle A1 einen veränderbarer Text. Die Anzahl der einzelnen Sätze ist ebenfalls veränderbar.
Dies ist ein Beispieltext. Er soll als Beispiel dienen! Leider habe ich noch keine Lösung, kann mir bitte einer helfen?
Ich möchte nun den Text nun nach Sätzen aufsplitten und in die Zellen A2, A3, etc. schreiben lassen.
Das Ergebnis soll dann so aussehen:
A2 Dies ist ein Beispieltext.
A3 Er soll als Beispiel dienen!
A4 Leider habe ich noch keine Lösung, kann mir bitte einer helfen?
Ich bekomm das leider nicht hin. Wäre nett wenn mir jemand helfen könnte.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
auf die Schnelle mit Hilfsspalte
12.03.2019 21:05:13
WF
Hi,
der Ursprungstext steht in B1.
in A2 steht:
=LINKS(B1;MIN(WENN(ISTZAHL(FINDEN({".";"!";"?"};B1));FINDEN({".";"!";"?"};B1))))
in B2 steht:
=TEIL(B1;MIN(WENN(ISTZAHL(FINDEN({".";"!";"?"};B1));FINDEN({".";"!";"?"};B1)))+2;999)
beide runterkopieren
Salut WF
AW: Text in Sätze aufteilen
13.03.2019 11:34:29
Torsten
Danke für die Antworten.
Ich habe mich wohl leider nicht ganz klar ausgedrückt, ich bräuchte die Lösung als VBA Code.
AW: Text in Sätze aufteilen
13.03.2019 11:46:22
Torsten
Ich habe das ganze jetzt mit dem Markorecorder aufgenommen.
Hier das Ergebnis: 
Sub Makro1()
ActiveCell.FormulaR1C1 = _
"=LEFT(R[-1]C[1],MIN(IF(ISNUMBER(FIND({""."";""!"";""?""},R[-1]C[1])),FIND({""."";""!""; _
""?""},R[-1]C[1]))))"
Range("A3").Select
Columns("A:A").EntireColumn.AutoFit
Range("B2").Select
ActiveSheet.Paste
Selection.ClearContents
ActiveCell.FormulaR1C1 = _
"=MID(R[-1]C,MIN(IF(ISNUMBER(FIND({""."";""!"";""?""},R[-1]C)),FIND({""."";""!"";""?""}, _
R[-1]C)))+2,999)"
Range("B3").Select
Columns("B:B").EntireColumn.AutoFit
Range("A2:B2").Select
Selection.AutoFill Destination:=Range("A2:B5"), Type:=xlFillDefault
Range("A2:B5").Select
Range("D9").Select
End Sub
Kann mir bitte einer erklären was der code hier
ActiveCell.FormulaR1C1 = _ "=LEFT(R[-1]C[1],MIN(IF(ISNUMBER(FIND({""."";""!"";""?""},R[-1]C[1])),FIND({""."";""!"";""?""},R[-1]C[1]))))"
und hier
"=MID(R[-1]C,MIN(IF(ISNUMBER(FIND({""."";""!"";""?""},R[-1]C)),FIND({""."";""!"";""?""},R[-1]C)))+2,999)"
macht?
Ich steig da leider nicht durch.
Anzeige
AW: Text in Sätze aufteilen
13.03.2019 12:17:15
onur
War dir MEIN Code nicht gut genug?
AW: Text in Sätze aufteilen
13.03.2019 12:42:22
Torsten
Doch, Perfekt! Vielen Dank.
Hatte ich in der Eile überlesen.
;

Forumthreads zu verwandten Themen

Zeilenhöhe in Abhängigkeit von Textlänge
Textlänge

Guten Tag
Ich habe bei zwei verbundenen Zellen wie folgt formatiert:
- Textausrichtung --> Blocksatz
- Textsteuerung: Zeilenumbruch
Diese verbundenen Zellen (hier B20:C20) sind mit dem Namen "Beurteilung1" benannt. Der Inhalt wird durch eine Formel gesteuert. Als Ergebnis ste...
13.10.2008 16:27:02
Thread-ID: 1016108
6 Beiträge
Anzeige
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:11
Thread-ID: 1018407
3 Beiträge
Zeilenumbruch in TextBox
Thomas

Hallo Forum,
hab da mal ne Frage:
Ich hab in einer User Form eine Textbox... ist es möglich diese Textbox mit einem Zeilenumbruch zu versehen? Und wenn ja, wie?
Schon mal Danke im voraus
Thomas
22.10.2008 16:54:19
Thread-ID: 1018408
3 Beiträge
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Anzeige
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Bestimmte Zeilen in Textfile rauslöschen
Seluaner

Guten Abend zusammen !
Mittels dem folgenden Code - Ausschnitt (den hab ich übrigens mal hier im Forum von einem netten Forumanen erhalten)
lese ich grosse Textfiles ein und suche darin nach der Zeile mit dem Tittel "Generierungsprotokoll"
Alles bis und mit dieser Zeile wird gelösc...
19.01.2009 18:33:00
Thread-ID: 1041615
7 Beiträge
Textboxeingabe-Zeilenverweis
Dee

hallo ihr Lieben,
ich möchte eine Suchliste (300 Einträge in den Zeilen B1-B300, darunter auch Leerzeilen!) mit einer Textbox verknüpfen. Dabei habe ich daran gedacht, dass wenn man in der Textbox einen Begriff eingibt, das Tabellenblatt an die gewünschte Position springt, wo sich der Begr...
21.01.2009 13:58:46
Thread-ID: 1042166
13 Beiträge
Anzeige
Zeilenumbruch in einer Textbox
Armin

Hallo,
ich bin auf der Suche nach einer Möglichkeit, um in einer Textbox mehrzeiligen TExt zu erfassen. Dabei sollte jedoch ein die Taste "Enter" eine neue Zeile erzeugen.
Leider springt bei Enter der Focus auf das nächste Steuerelement. Derzeit schaffe ich es nur mit Strg + Enter einen...
28.03.2009 10:26:31
Thread-ID: 1064824
6 Beiträge
Zeilenumbruch in textbox
ing.grohn

Hallo Forum,
welches Zeichen muß ich für den Umbruch in der Textbox abfragen?
Für eine Antwort bedanke ich mich.
Mit freundlichen Grüßen
Albrecht Grohn
15.10.2009 17:53:51
Thread-ID: 1109905
9 Beiträge
Textimport in Excel (Zeilenweise)
Matthias

Hallo,
da ich leider noch keine VBA-Kenntnisse habe wende ich mich an Euch.
Ich habe folgendes Problem:
Aus der Daten https://www.herber.de/bbs/user/69745.txt sollen Zeilenweise die Werte ausgelesen werden, d.h. zu Beginn einmal die Zeile A im Excel Sheet mit den "Überschriften" bef...
26.05.2010 15:37:52
Thread-ID: 1158923
7 Beiträge
Textdatei mit 'Endloswurm' in Zeilen importieren
Jens

Hallo Forengemeinde,
ich kämpfe mit einem Problem, das mir eigentlich simpel erscheint, sich jedoch erschreckend kniffelig zeigt.
Ich möchte per Makro eine Textdatei importieren. Diese enthält eine kilometerlange Zeile mit Daten (falls es nutzt: es handelt sich um Daten nach EDIFACT-Sta...
18.01.2011 13:42:23
Thread-ID: 1196174
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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