Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code optimieren

Code optimieren
Melanie
Hallo Excel Gemeinde,
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code optimieren
16.06.2010 12:09:26
Rudi
Hallo,
ohne Select arbeiten!
Und die Bildschirmaktualisierung ausschalten.
Application.ScreenUpdating=False
Case 1
With RaZ.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
With .Gradient.ColorStops.Add(0)
.Color = RGB(0, 128, 128)
.TintAndShade = 0
End With
With .Gradient.ColorStops.Add(1)
.Color = RGB(255, 255, 255)
.TintAndShade = 0
End With
With .Font
.Color = 0
End With
End With

Gruß
Rudi
AW: Code optimieren
16.06.2010 12:32:14
Melanie
Hallo Rudi,
Danke für die schnelle Hilfe. Ich bekomme nur leider nen Fehler bei der Auusführung:
Objekt unterstütz diese Eigenschaft oder Methode nicht
Wenn ich dann debugge landet er hier: With .Font
Woran kann das liegen?
Danke!
Grüße, Melanie
Anzeige
With RaZ.Font...
16.06.2010 12:34:59
Melanie
Es geht mit With RaZ.Font...
du musst nicht, weil...
16.06.2010 12:51:53
Oberschlumpf
...dein Code nun ja funktioniert, meine Idee übernehmen, aber es wäre noch ein wenig "sauberer" programmiert.
Hi Melanie
Versuch es mal so (die Idee von Rudi übernommen + angepasst)

Case 1
'spricht alle Eigenschaften/Methoden von RaZ an
With RaZ
'spricht alle Eigenschaften/Methoden von RaZ.Interior an
With .Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
'spricht alle Eigenschaften/Methoden von
'RaZ.Interior.Gradient.ColorStops.Add(0) an
With .Gradient.ColorStops.Add(0)
.Color = RGB(0, 128, 128)
.TintAndShade = 0
End With
'spricht alle Eigenschaften/Methoden von
'RaZ.Interior.Gradient.ColorStops.Add(1) an
With .Gradient.ColorStops.Add(1)
.Color = RGB(255, 255, 255)
.TintAndShade = 0
End With
End With
'spricht alle Eigenschaften/Methoden von RaZ.Font an
With .Font
.Color = 0
End With
End With

Die Kommentar- und Leerzeilen kannst du natürlich wieder löschen.
Ist meine Idee denn auch anwendbar?
Ciao
Thorsten
Anzeige
auch gut - Danke!
16.06.2010 14:34:27
Melanie
Jetzt kann ich schauen, was performanter ist ;)
AW: Code optimieren
16.06.2010 12:10:44
Beverly
Hi Melanie,
versuche es mal so: lasse die Zeile RaZ.Select weg und ersetze überall Selection durch RaZ


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige