Re: zeichen zählen per makro
25.10.2002 11:20:22
timo
ich habe auch ein bisschen gebastelt...
zeilenubrüche mitten im wort werden verhindert...Sub Zeilenumbruch()
Dim Laenge As Integer
Dim Komplett As String
Dim Rest As String
Dim suchstring, erg
For t = 23 To 38 ' Kommentar-Zeilen
Komplett = Cells(t, 3)
Laenge = Len(Komplett)
If Laenge > 123 Then
Cells(t, 3).ColumnWidth = 3.14
suchstring = " " ' zeilenumbruch, wenn leerzeichen...
erg = InStrRev(Komplett, suchstring, 123)
' InstrRev(stringcheck, stringmatch [, start[, compare]])
Rest = Right(Komplett, Laenge - erg)
Cells(t, 3) = Left(Komplett, erg) & vbLf & Rest
Cells(t, 3).RowHeight = 24
Range("C" & t, "AC" & t).Select
With Selection
.MergeCells = True
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
End With
Cells(t, 3 - 1).VerticalAlignment = xlTop
End If
Next t
End Sub