Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Halo schauan,
wie ich vorhin schon Daniel gesagt hatte, habe es inzwischen erneut bei Copilot eingegeben und jetzt das hier:
Sub Format_und_Farbe_von_B_auf_ACbisL_Ultra()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
Dim r As Long
Dim fColor As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
' --- FORMATIERUNG OHNE SCHLEIFE ---
With ws.Range("A1:L" & lastRow)
.Font.Name = "Calibri"
.Font.Size = 11
.Font.Italic = True
.Font.Bold = False
.HorizontalAlignment = xlCenter
End With
' --- SCHRIFTFARBE MIT MINIMALER SCHLEIFE ---
For r = 1 To lastRow
fColor = ws.Cells(r, "B").Font.Color
ws.Cells(r, "A").Font.Color = fColor
ws.Range(ws.Cells(r, "C"), ws.Cells(r, "L")).Font.Color = fColor
Next r
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
das erfüllt meine Wünsche.