Fettdruck 1. Zeile bei mehrzeiliger Zelle
12.08.2008 11:05:00
Horst_H
Frage: Wie stelle ich es an, in einer erstellten, mehrzeiligen Zelle die Zeichenlänge der ersten Zellzeile auszulesen, um diese dann in Fettschrift zu bekommen. Nur die 1. Zeile in der Zelle. Voran ging der threat https://www.herber.de/forum/messages/1000905.html
, den ich dann soweit abänderte. Leider funktioniert die Schriftformatierung der 1. Zeile nicht, weil der 1. Zellinhalt in Spalte C vor Mehrzeilenerstellung variable ausgezählt werden müsste und dann diese Zeichenanzahl bei der Formatierung übergeben werden müsste, um daraufhin die genaue Zeichenanzahl der 1. Zeile passgenau fjür jede Zelle übergeben zu können. . Da viele Listen, die sich monatlich ändern, ist Handarbeit unmöglich. Wie mache ich das? Wer weiß weiter? Danke für jeden Tipp/Hilfe!! + Gruß, Horst_H
Datei:
https://www.herber.de/bbs/user/54535.xls
Sub UmbrZeilen2()
Dim rng As Range
For Each rng In Range(Cells(3, 3), Cells(Cells(Rows.Count, 3).End(xlUp).Row, 3))
rng = rng & IIf(IsNull(rng.Offset(, 5)), "", vbLf & " [1] " & rng.Offset(, 5)) & _
IIf(IsNull(rng.Offset(, 6)), "", vbLf & " [2] " & rng.Offset(, 6))
'Format der 1. Zeile in der Zelle
With ActiveCell.Characters(Start:=1, Length:=20).Font ' müsste variable vorher ausgelesen und _
_
berücksichtigt werden
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
rng.Offset(, 5).Resize(, 2).ClearContents
Next rng
End Sub