Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

03.01.2005 13:35:45 spezieller Zeilenumbruch in Ze

03.01.2005 13:35:45 spezieller Zeilenumbruch in Ze
14.01.2005 11:51:28
Otto
Guten Tag allemiteinander
ich hoffe, jemand kann uns helfen bei folgendem Problem:
Textdatensätze (max. 256 Zeichen) werden von Filemaker Datenbank ins Excel exportiert. Wie kann man nun den Text in mehrere Zeilen in derselben Zelle, (mit einer maximalen Anzahl Zeichen von 52 Zeichen pro Zeile) aufteilen, wobei der Text grammatikalisch korrekt bleiben muss (Silbentrennung, Anordnung Satzzeichen)?
Bitte keine Antworten mit "Ausführen, Zellen, Ausrichtung, Zeilenumbruch", da diese das Problem nicht lösen.
Ansonsten ist alles willkommen, was auch nur annähernd zur Lösung beiträgt.
Vielen Dank für Eure Unterstützung.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 03.01.2005 13:35:45 spezieller Zeilenumbruch i
14.01.2005 13:50:47
Josef
Hallo Otto!
Grundsätzlich möchte ich anmerken, das Excel nunmal kein Textverarbeitungsprogramm ist!
Das mit der Silbentrennung weis ich nicht,
aber den Text aufteieln kannst du mit dieser Funktion.

Function breakText(ByVal text As String, ByVal länge As Integer) As String
Dim tmp As String, str As String
Dim lenT As Integer, i As Integer, n As Integer
lenT = Len(text)
n = 1
i = 1
Do
tmp = Mid(text, i, länge)
If lenT - i >= länge Then
n = Len(tmp) - InStr(1, StrReverse(tmp), " ") + 1
Else
n = Len(tmp)
End If
str = str & Trim(Left(tmp, n)) & vbLf
i = i + n
Loop While i < lenT
breakText = Left(str, Len(str) - 1)
End Function
'als Funktion in VBA
Sub test()
[B1] = breakText([A1], 52)
End Sub

Anwendung in der Tabelle:

=breakText(A1;52)

Gruß Sepp
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige