Zellformatierung dauert ewig
R.Przybilla
hab hier mal wieder was.
Ich habe viele Zellen, die mehrzeilig sind
Die erste Zeile möchte ich formatieren.
Die zweite Zeile bleibt Standard.
Das dauert per Makro ewig.
Ist das normal?
Das Makro schreibt die Datem aus Spalte2 und 3 in Spalte2 und formatiert das aus Spalte2 fett und 12pt.
Gruß Ralf
Sub test()
With FRLsht
With .Cells.Font
.Name = "Arial"
.Bold = False
.Size = 10
End With
For n = URows To 8 Step -1
.Cells(n, 1) = n - 7
If .Cells(n, 1) Mod 2 = 0 Then .Range(.Cells(n, 1), .Cells(n, 19)).Interior.ColorIndex = _
36
Laenge1 = Len(.Cells(n, 2))
Laenge2 = Len(.Cells(n, 3))
.Cells(n, 2) = .Cells(n, 2) & Chr(10) & Left(Application.WorksheetFunction.Clean(Trim(. _
Cells(n, 3))), 23)
With .Cells(n, 2).Characters(Start:=1, Length:=Laenge1).Font
.Name = "Arial"
.Bold = True
.Size = 12
End With
next n
End Sub