Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
400to404
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenumbruch an fest definierter Position?

Zeilenumbruch an fest definierter Position?
Gaidin
Hallo,
gibt es die Möglichkeit bei Excel, via VBA, Zeilenumbrüche absolut zu definieren? Kann z.B. nach dem 10ten Zeichen des Textes der Text innerhalb einer Zelle umgebrochen werden? Wenn ja, wer weiss wie's geht?
Ich bin für Hilfe dankbar,
Gaidin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilenumbruch an fest definierter Position?
Christoph
Hi Gaidan,
schneide jeweils die ersten 10 Zeichen ab und hänge ein Chr(10) dran.
Das machst du solange, bis die Länge des Strings erreicht bzw. überschritten ist.
Gruß
Christoph
('ne Rückmeldung wäre nett)
mal ein Bsp (ohne Anspruch auf Eleganz):

Sub Umbruch()
Dim strTeil As String, strText As String, strAlles As String
Dim i As Integer, x As Integer
strText = Cells(1, 1).Value
x = 10
intCount = Int(Len(Cells(1, 1).Value) / x)
For i = 1 To intCount + 1
If Len(strText) &gt x Then
strTeil = Left(strText, x)
strText = Mid(strText, x + 1, Len(strText) - x)
Else
strTeil = strText
End If
strAlles = strAlles & strTeil & Chr(10)
Next i
MsgBox strAlles
End Sub

Anzeige
AW: Zeilenumbruch an fest definierter Position?
24.03.2004 16:58:33
Gaidin
Ich werd's 'mal probieren und dann Bescheid geben. :)

145 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige