Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
484to488
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
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ergebnis bed. Formatierung durch Farben ersetzen

Ergebnis bed. Formatierung durch Farben ersetzen
17.09.2004 08:17:54
Stephan
Hallo Forumsmitglieder,
ich habe in den Zellen D5:BS3000 durch die bedingte Formatierung einige Zellen farblich unterlegen lassen. Nun dauert es auf Grund der im Hintergrund laufenden Prozesse sehr lange, zwischen diesen Zellen zu wechseln.
Für mich wäre es daher anstrebenswert, die durch die bedingte Formatierung farblich hinterlegten Zellen, durch eine `normale` Farbhinterlegung zu ersetzen. So könnte ich die bedingten Formatierungen in den Zellen D5:BS3000 wieder löschen und mich anschließend schnell in der Tabelle bewegen.
Hat jemand vielleicht einen Tipp, wie man ein derartiges Problem lösen könnte ?
Gruß Stephan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ergebnis bed. Formatierung durch Farben ersetzen
17.09.2004 10:10:19
ANdreas
Hallo Stephan,
da wirst Du wohl leider ein Makro benötigen, welches alle Zellen durchläuft und selbst je nach Bedingung die Farbe "richtig" setzt.
Gruß
Andreas
Okay, aber wie sieht dieses Makro aus ?
17.09.2004 10:33:08
Stephan
o.T.
AW: Okay, aber wie sieht dieses Makro aus ?
17.09.2004 10:47:19
ANdreas
Hallo Stephan,
hier mal ein Beispiel, du musst natürlich die Bedinungen/Farben so ändern, wie sie auch in der bedingten Formatierung gesetzt werden.

Sub FormateSetzen()
Dim c As Range, intColor%
'Durchlaufe alle Zellen
For Each c In ActiveSheet.Range("D5:BS3000")
'Bedingungen -> Farbe
Select Case c.Value
Case "A" To "ZZZ", "a" To "zzz": intColor = 5
Case Is < 1: intColor = 4
Case 2, 5 To 7, Is > 12: intColor = 6
End Select
'Setzen der Farbe
c.Interior.ColorIndex = intColor
Next c
End Sub

Fürs Testen ist es aber empfohlen, den Bereich etwas kleiner zu wählen, da es sonst ne Weile dauert.
Wenn Du Fragen hast, wie Du zum Beispiel eine kompliziertere Bedingung umsetzt, frag einfach nochmal und gib die Bedingungen an.
Hoffe das hilft weiter,
Andreas
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige