Code optimieren
Melanie
ich brauche mal wieder etwas Hilfe von den Profis. Ich möchte gerne in einem Tabellenblatt alle Zellen in einem Bereich automatisch formatieren, abhängig von ihrem Inhalt. Da es 10 verschiedene Inhalte sein können arbeite ich mit der Select Case Anweisung.
Das klappt soweit auch alles super. Nur ist die ganze Sache nicht sehr performant, was sicherlich an der aufwendigen Formatierung liegt. Daher meine Frage, kann ich den Code hierfür etwa schlanker gestalten?
Das ganze wird jedes mal für 11 Fälle (10 + else) durchlaufen, daher nur mal das Case 1 Beispiel, alle anderen sind genau gleich aufgebaut.
Case 1
RaZ.Select
With Selection.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = RGB(0, 128, 128)
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.Color = RGB(255, 255, 255)
.TintAndShade = 0
End With
With Selection.Font
.Color = 0
End With
Für Eure Tipps bin ich dankbar!
Grüße, Melanie