Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Interior.ColorIndex vs. Conditional Formatting

Interior.ColorIndex vs. Conditional Formatting
02.08.2023 12:51:54
Tor
Hallo zusammen,

Ich faerbe mit folgendem Code bei bestimmten Eingaben die Zelle ein und passe die Schriftfarbe an. 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)



Dim rngRange As Range, rngCell As Range

Set rngRange = Range("F10:AJ159")



For Each rngCell In Range(Target.Address)

    If Not Intersect(rngCell, rngRange) Is Nothing Then

        Select Case UCase(rngCell.Value)

            Case "LL"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 4 ' green

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "LL½"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 4 ' green

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "LOP"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 16 ' grey

                rngCell.Font.ColorIndex = 2 ' white

                ActiveSheet.Protect

            Case "HLOP"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 16 ' grey

                rngCell.Font.ColorIndex = 2 ' white

                ActiveSheet.Protect

            Case "SL"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 3 ' red

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "SL½"

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 3 ' red

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case Else

                ActiveSheet.Unprotect

                rngCell.Interior.ColorIndex = 2 ' none

                ActiveSheet.Protect

        End Select

    End If

Next rngCell



Set rngRange = Nothing



End Sub

Das funktioniert auch super. Allerdings nicht, wenn per conditional formatting Zellen schon vorher eingefaerbt waren. Wie kann ich das Einfaerben vom conditional formatting ueberschreiben?
Vielen Dank fuer Eure Hilfe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Interior.ColorIndex vs. Conditional Formatting
02.08.2023 12:57:05
Rudi Maintaire
Hallo,
Wie kann ich das Einfaerben vom conditional formatting ueberschreiben?
gar nicht. Du musst sie löschen.

Range(Target.Address)
ist Quatsch. Target reicht vollkommen.
For Each rngCell In Target

Gruß
Rudi
AW: Interior.ColorIndex vs. Conditional Formatting
03.08.2023 13:04:44
Tor
Hallo Rudi,

Danke auch dir fuer deine Antwort. Also ich hab mal den Code geaendert und das Loeschen der bed. Formatierung funktioniert auch wunderbar und die Zelle wird neu eingefaerbt.
Jetzt moechte ich aber, wenn der Inhalt der Zelle wieder geloescht wird, den alten Zustand wieder herstellen. Dazu dachte ich mir, die darunter liegende Zelle zu kopieren im Case Else Zweig, da die ja die urspruengliche bed. Formatierung hat, und mit .PasteSpecial xlPasteFormats in der Target Zelle wieder einzufuegen. Leider klappt das nicht so wie gedacht. Excel rechnet ein paar Sekunden und stuerzt dann einfach ab. Wo liegt hier mein Fehler? Nochmal der Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)



Dim rngRange As Range, rngCell As Range

Set rngRange = Range("F10:AJ159")



For Each rngCell In Range(Target)

    If Not Intersect(rngCell, rngRange) Is Nothing Then

        Select Case UCase(rngCell.Value)

            Case "LL"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 4 ' green

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "LL½"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 4 ' green

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "LOP"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 16 ' grey

                rngCell.Font.ColorIndex = 2 ' white

                ActiveSheet.Protect

            Case "HLOP"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 16 ' grey

                rngCell.Font.ColorIndex = 2 ' white

                ActiveSheet.Protect

            Case "SL"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 3 ' red

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case "SL½"

                ActiveSheet.Unprotect

                rngCell.FormatConditions(1).Delete

                rngCell.Interior.ColorIndex = 3 ' red

                rngCell.Font.ColorIndex = 1 ' black

                ActiveSheet.Protect

            Case Else

                ActiveSheet.Unprotect

                rngCell.Offset(1, 0).Copy: rngCell.PasteSpecial xlPasteFormats

                ActiveSheet.Protect

        End Select

    End If

Next rngCell



Set rngRange = Nothing



End Sub

Nochmals Danke fuer eure Hilfe
Tor
Anzeige
AW: Interior.ColorIndex vs. Conditional Formatting
02.08.2023 12:55:31
daniel
Hi
gar nicht.
die Bedingte Formatierung hat Priorität.
du kannst höchsten die Bedingten Formate für diese Zelle löschen.
Die Farbe der Bedingten Formatierung ändern wird aufwendig.
Gruß Daniel
AW: Interior.ColorIndex vs. Conditional Formatting
02.08.2023 13:04:28
Tor
Hallo Daniel,

Danke fuer deine schnelle Antwort.
OK. Dann muss ich mal schauen.

196 Forumthreads zu ähnlichen Themen

Bei ColorIndex = 34 - Formel einfügen
Heinz

Hallo im Forum
Ich habe ein Makro,das mir nach jeden Freitag im Monat eine Zeile mit ColorIndex = 34 einfügt.
Nun möchte ich, das mir nur auf den Zeilen die mit ColorIndex = 34 eingefügt wurden, eine Formel miteinfügt.
Habe zum besseren Verständnis eine Beispieldatei anghhängt.
...
29.12.2009 21:08:46
Thread-ID: 1126283
8 Beiträge
Anzeige
Ist Summe bei Interior.ColorIndex = 37
Heinz

Hallo Leute
Habe in unteren Code wenn ich in Spalte A ein Datum eingebe,wird mir eine Spalte vorher die Spalte A bis G eingefärbt.
Nun möchte ich,wenn die Zelle eingefärbt wird, das in D die Summe bis zur oberen eingefärbten Spalte die Formel =Summe() eingefügt wird.
Die obere einge...
06.02.2011 10:44:43
Thread-ID: 1199245
10 Beiträge
Range("A1:C1") = ColorIndex = 38
Karsten

Hallo,
ich möchte A1-C1 ohne select einfärben. Zwar wird mein Code anstandslos durchlaufen, aber es kommt keine Farbe.
Range("A1:C1") = ColorIndex = 38 'rosa
Kann ihn mir jemand richtig machen?
Danke Gruß
Karsten
10.12.2011 14:52:20
Thread-ID: 1241505
3 Beiträge
Anzeige
Backcolor in interior.colorindex "übersetzen"
Jens Huthmann

Liebe Excelianer,ich möchte die Hintergrundfarbe eines Optionbuttons (Backcolor-Eigenschaft) dazu benutzen, dass die Farbe des gewählten Optionbuttons für die Farbgestaltung von Zellen verwendet wird. Problem: Die Backcolor-Eigenschaft von VBA-Steuerelementen ist als Ganzzahl oder im RGB-Modus...
26.10.2002 12:50:51
Thread-ID: 173843
9 Beiträge
Interior. ColorIndex
Olli
Hallo Excel-Spezis;
ich moechte mit meinem Code gerne in Spalte C die Hintergrundfarben der Zelle auf die jeweilige Zelle in Spalte 7 uebertragen. Der Debugger motzt beim set b =...
Wie kann man den Debugger eigentlich beenden? Gibt es eine andere Moeglichkeit, als den Editor zu schliessen?<...
04.07.2003 11:39:08
Thread-ID: 277049
4 Beiträge
Nochmal Interior.ColorIndex
Olli
Hallo Forum,
jetzt habe ich folgendes vor. Ich moechte, wenn ich in Spalte 3 eine Zelle markiere, dann soll Excel fuer die Zeit des Markiertseins in der gleichen REihe, aber in Spalte 1 den Interior.ColorIndex auf Rot=3 setzten. Wenn keine Zelle in Sp. 3 mehr markiert ist, soll Excel den Interio...
04.07.2003 13:02:47
Thread-ID: 277114
4 Beiträge
Gibt es eine ColorIndex Tabelle ??
Michael
Hallo Zusammen.
Gibt es eine Tabelle, die eine Zuordnung zwischen Farbcode und Farbe enthält ?
Z.B: 1 = schwarz; 4= grün
Vorab Danke!
Michael
20.08.2003 11:50:34
Thread-ID: 297379
12 Beiträge
Interior.colorindex funktioniert nicht
Robert
Hallo,
ich habe in einer Userform folgenden Code:


For Each zelle In Range("Platzname")
If Not DTPicker2.Value = "" Then
zelle.Interior.ColorIndex = vbRed
Else
zelle.Interior.ColorIndex = vbGreen
End If
Next zelle<...
30.10.2003 12:40:50
Thread-ID: 331017
3 Beiträge

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
5
9
2
6
8
3
3
11
2
4
2
9
2
2
1
2
10
1
7
2
2
7
6
6