Hallo zusammen,
die nachfolgende Schleife liefert zwar korrekte Ergebnisse,
dauert aber endlos lange(TB mit 1600 Zeilen)
Hat jemand eine Idee, wie ich zunächst einen range über die Abfrage
füllen kann und dann die Fomatierung durchführen lasse?
For i = 2 To imax Step 1
If ws.Cells(i - 1, 5) _
ws.Cells(i, 5) Then
Cells(i, 9).Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 14
.ColorIndex = xlAutomatic
End With
End If
Next i
Danke im voraus
Ha-Jü