Farbformatierung und Dateigröße

Guten Morgen liebes Forum,
mir fallen gerade die Farbformatierungen auf die Füße und hatte schonmal festgestellt, dass Excel Farben leicht varieert und es nicht so genau nimmt mit den Farben.
Nun möchte ich beim Auslesen eine Unterscheidung treffen, ob die Zellen rot sind oder nicht.
Alternativ schwarz oder farbig
Mit folgendem Code formatiere ich ursprünglich die Zellen:


Cells(z, 6).Font.Color = -16777012 'rot

Nicht funktioniert haben beim Auslesen zur Unterscheidung die folgenden drei Varianten:


Cells(a, 6).Font.Color = -16777012 Then

Oder


Cells(z, 6).Font.Color > -16000000 Then

Oder


Cells(z, 6).Font. xlAutomatic

vermutlich weil schwarz?
Das gleiche Dilemma kommt später noch mit der Hintergrundfarbe....
Würde mich über Rat freuen, und wieso die ersten beiden Varianten nicht funktionieren.
p.s. wie kann ich die Dateigröße möglichst klein halten?
Habe es bereits als xlsb gespeichert.
Soll ich es aktiv als


xlAutomatic

statt schwarz formatieren?
Ebenso vielleicht Tricks aktiv Dateigröße zu sparen mit Tintshade.....
Dankeschön und euch einen guten Start ins Wochenende =)
Grüße Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Weshalb...

25.02.2022 12:15:25

{Boris}

AW: Weshalb...

25.02.2022 12:52:22

Martin

RGB - UDF

25.02.2022 13:04:47

{Boris}

AW: RGB - UDF

25.02.2022 15:50:09

Boris

AW: RGB - UDF

25.02.2022 16:01:14

Martin

AW: RGB - UDF

25.02.2022 16:34:43

{Boris}

AW: RGB - UDF

28.02.2022 09:30:19

Martin

Hallo Boris,
leider sind die RGB-Werte wohl auch nicht eindeutig.....
Ich gebe eine Kombination aus R,G und B vor und Excel ändert diese leicht.
Mit der Textfarbe funktioniert relativ gut, aber mit der Interior.Color gibt es dieses Farbenauswürfeln.
Leider stehe ich total auf dem Schlauch, was den Link von dir betrifft.
Ich verstehe zwar prinzipiell was da passiert, aber die Syntax ist so komplett anders als wie ich normalerweise programmiere, dass ich es nicht für mich übertragen kann.....
Wie kann ich das schreiben?


Worksheets("Datenbank").Cells(a, 5).Interior.Color = RGB(255, 225, 215) sollte es sein, aber G gerne auch mal 228 etc.
If Worksheets("Datenbank").Cells(a, 5).Interior.Color

Vielen lieben Dank, stehe sowas von auf dem Schlauch, zumal wieso Excel nicht einfach die Farbe einträgt, wie ich es vorgebe....
Danke danke danke und ein schönes Wochenende.

Function myRGB(DieZelle As Range, DieFarbe As String, IntFont As Boolean) Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long Wert = IIf(IntFont, DieZelle.Interior.Color, DieZelle.Font.Color) On Error Resume Next Rot = Wert Mod 256 Wert = (Wert - Rot) / 256 Grün = Wert Mod 256 Wert = (Wert - Grün) / 256 Blau = Wert Mod 256 Select Case DieFarbe Case "rot": myRGB = Rot Case "grün": myRGB = Grün Case "blau": myRGB = Blau End Select End Function

Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long Wert = Cells(a, 1).Interior.Color Rot = Wert Mod 256 Wert = (Wert - Rot) / 256 Gruen = Wert Mod 256 Wert = (Wert - Gruen) / 256 Blau = Wert Mod 256 MsgBox Rot & "r, " & Grün & "g, " & Blau & "b"

Beliebteste Forumthreads (12 Monate)

Farbformatierung und Dateigröße

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread