hallo,
ich habe einen Code geschrieben. Es werden in einer Schleife Zellen mit Inhalten und Formaten gefüllt. Das funktioniert auch soweit. Allerdings sind es sehr viele Zellen und der Code ist sehr langsam. Habt Ihr Verbesserungsvorschläge? Ich wäre Euch für jeden Tipp dankbar!
Und da ich bisher nur mitgelesen und hier schon viel gelernt habe, wollte ich Euch einmal ganz herzlich dafür danken!
Ihr habt mich schon mehrmals gerettet...
Liebe Grüße
Pia
Hier der Code:
Start = Cells(1, 8).Value
For n = 1 To Cells(1, 18).Value
'
Cells(5, n + 4).Style = "Header1"
Cells(5, n + 4).Value = Start
Cells(5, n + 4).NumberFormat = "MMM"
Cells(6, n + 4).Style = "Header1"
Cells(6, n + 4).Value = Start
Cells(6, n + 4).NumberFormat = "ddd"
Cells(7, n + 4).Style = "Header1"
Hfeld = "'" & Day(Start) & " " & Month(Start)
Cells(7, n + 4).Value = Hfeld
With Cells(7, n + 4).Characters(Start:=4, Length:=6).Font
.Color = -3295196
'
End With
Start = Start + 1
Next n