Zelleninhalte umbrechen

Hallo zusammen
Nachdem ihr mir hier immer gut weitergeholfen habt wende ich mich nun mit einem weiteren Problem an euch.
Ich habe in einer Tabelle eine Zeile in einer dieser Zellen steht Text
ich habe ein Makro mit dem ich einen Zeilenumbruch ab einer bestimmten Zeichenanzahl herbeiführen kann. Das ist soweit schon mal ganz schön. Das eintige problem ist nun aber das er mir auch die Zeilen die unter 40 Zeichen haben versucht umzubrechen. Das heist er zieht auch zeilen in denen weniger als 40 Zeichen stehen zusammen.
wie kann ich es jetzt programmieren das er mir nur dann eine Zeile umbricht wenn sie mehr als 40 Zeichen hat und die anderen in Ruhe lässt
Ich Danke euch schon mal im Vorraus für eure Hilfe
mfg Julian Waldmann
Ich habe euch mal das Makro mit nem Beispiel angehängt
https://www.herber.de/bbs/user/16970.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function breakText(ByVal text As String, ByVal länge As Integer) As String If len(text)<= länge then 'Neu breakText=text 'Neu exit function 'Neu End if 'Neu 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

Public Function breakText(ByVal text As String, ByVal länge As Integer) As String If len(text)<= 40 then 'Neu breakText=text 'Neu exit function 'Neu End if 'Neu 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

Hi Julian,
es klappt soweit per Sub, bei Aufruf als Funktion in einer Zelle klappt es nicht ganz, die Zellgröße wird nicht angepasst man muss dies manuell machen.
Gruß
Reinhard


Function breakText(ByVal Text As String, ByVal Länge As Integer) As String
Dim n As Integer, tmp As String
If Len(Text) <= Länge Then
breakText = Text
Exit Function
End If
If TypeName(Application.Caller) = "Range" Then cc = Application.Caller.Address
For n = 1 To Int(Len(Text) / Länge)
tmp = tmp & Left(Text, Länge) & vbLf
Text = Mid(Text, Länge + 1)
Next n
breakText = tmp
If cc <> "" Then
Range(cc).WrapText = True   'passiert nix
Range(cc).Columns.AutoFit   'passiert nix
Range(cc).Rows.AutoFit      'passiert nix
End If
End Function

'In der Tabelle!
'Formel: =breakText(A1;52)
'als Funktion in VBA!


Sub test()
Dim str As String
str = "Eine einheitliche Form der Namensgebung für Variablen, " & _
"Konstanten und anderer VBA-Komponenten erleichtet es dem einen Entwickler, " & _
"den Code des anderen zu verstehen. Zum anderen findet man sich bei einer " & _
"disziplinierten Namensvergebung auch in seinem eigenen Code besser zurecht. " & _
"Gänzlich unerlässlich ist die Vereinbarung, wenn ein VBA-Programm im Team " & _
"erstellt wird.Microsoft konnte sich bisher nicht entschliessen, " & _
"Namenskonventionen für Excel/VBA festzulegen. Diese Lücke wurde durch " & _
"Entwickler im englischen Sprachraum gefüllt, indem sie unverbindliche " & _
"Standards vereinbarten, die sich allerdings bisher international nicht " & _
"durchsetzen konnten. Es handelt sich hier um eine Kombination aus " & _
"vereinbarten Kürzeln und beschreibenden (sprechenden) Namen.Der Verfasser " & _
"dieser Zusammenfassung stützt sich im Wesentlichen auf die von Graham Keene " & _
"und James Barnard im Jahre 1996 veröffentlichten Standards, die er an die " & _
"aktuellen Excel-Versionen angepasst hat."
MsgBox breakText(str, 60)
End Sub

Beliebteste Forumthreads (12 Monate)

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread