Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Backcolor in interior.colorindex "übersetzen"

Forumthread: Backcolor in interior.colorindex "übersetzen"

Backcolor in interior.colorindex "übersetzen"
26.10.2002 12:50:51
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 angegeben (hellrot=8421631), die Hintergrundfarbe von Zellen als Indexwert(hellrot=38). Wie übersetze ich die Farben von einem Schema in das andere?

Danke für Eure Hilfe!
Jens Huthmann

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 12:53:01
Hajo_Zi
Hallo Jens

da habe ich leider auch keinen Ansatz. Hier mal einige Farben
Schwarz=(0, 0, 0)
Blau=(0, 0, 255)
Grün=(0, 255, 0)
Cyan=(0, 255, 255)
Rot=(255, 0, 0)
Magenta=(255, 0, 255)
Gelb=(255, 255, 0)
Weiß=(255, 255, 255)
Oder eine dieser Abkürzungen
(VbBlack, VbBlue, VbCyan, VbGreen, VbMagenta, VbRed, VbWhite und VbYellow)
von Ulrich Schneider

Gruß Hajo

Anzeige
übersetzen mit Farbtabelle?
26.10.2002 13:22:46
andre
Hallo Jens,

mein erster Gedanke ist auch in der Richtung wie Hajo schreibt. Also mal eine Farbtabelle gestalten wo Du die Konvertierung dann festlegen kannst - z.B. a1=8421631 / b1=38 usw. usf.

gruss andre

Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 13:50:27
Boris
Hallo Jens,

schau dir mal diesen Thread an. Hat mit RGB-Farben zu tun.
Kenn mich damit zwar nicht so aus, aber mit der Lösung von Nepumuk war die Fragestellerin wohl sehr zufrieden.
Könnte vielleicht ein Ansatz sein.

https://www.herber.de/forum/messages/173285.html

Gruß Boris

Anzeige
Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 15:07:28
Nepumuk
Hallo Jens
du kannst die RGB-Farbe genauso benutzen. Aber nicht als Colorindex, sondern als Color.
Beispiel
Cells(1,1).Interior.Color=8421631
Gruß
Nepumuk
Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 16:37:53
Jens Huthmann
Danke Nepumuk,
das war genau das, was ich gesucht habe.

Jens

Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 17:02:50
Hajo_Zi
Hallo Jens

der Beitrag von Nepumij ist Klasse. Auf der Grundlage von dem Makro habe ich mal folgende Lösung. Die Du in einem leeren Tabellen blatt ausführen kannst. ZuerstListe Farbe und dann das andere und Du hast eine komplette Übersicht über Farbindex und RGB Farben

Gruß Hajo

Anzeige
Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 18:38:45
Hajo_Zi
Hallo Jens

und danach noch folgendes Makro laufen lassen. Dann hast Du auch noch die Farbnamen. Natürlich nur für die Standardfarben

Gruß Hajo

Re: Backcolor in interior.colorindex "übersetzen"
26.10.2002 19:35:25
Jens Huthmann
Vielen Dank für die vielen hilfreichen Beispiele. Danke Hajo für den code. Hilft mir super viel weiter!(c;=

Gruß Jens

Forumthreads zu verwandten Themen

Was hat Interior.ColorIndex mit einem Rand zu tun?
Peter

Hallo
Bei der Bearbeitung eines Ranges verliert ein umrandeter Bereich innerhalb dieses Ranges bei nachfolgender Codezeile den unteren Rand.
Das verstehe ich nicht. Wer hilft mir auf die Sprünge? Ich will nur alle Farben (Hintergrund und Schrift) eliminieren.
Gruss, Peter
With A...
05.01.2010 14:18:02
Thread-ID: 1127323
6 Beiträge
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
Anzeige
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
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
interior.colorindex entsprechend BackColor
Peter
Wer kann helfen?
Hat jemand eine Übersicht welche Farben des interior.colorindex
den Palettenfarbe für Backcolor entsprechen?
Ich kenne nur diese Formulierungsweise, und es ist sehr mühsam
die Backcolorfarbe den interior.colorindex anzupassen.

z.B. Range("A1").interior.colorind...
13.01.2004 19:50:05
Thread-ID: 363283
5 Beiträge
Aus Interior.colorindex den hexadezimalwert finde
Bernd

Hallo,
ich noch mal!
Ich habe in der Spalte A verschiedenste farbige Zellen, und bräuchte ein Makro, was immer in die Spalte daneben den Hexadezimal wert schreibt. Also wenn die Zelle weiß ist dann #FFFFFF wenn sie schwarz wäre #000000 usw.
wie geht das?
17.06.2004 09:01:54
Thread-ID: 442363
3 Beiträge
Anzeige
Interior Colorindex mit Bedingter formatierung?
Slashmaster

Hallo und schönen Nachmittag,
ist es möglich, egal ob die Hintergrundfarbe eingestellt wurde, oder per bedingter Formatierung erscheint, den Colorindex herauszufinden?
Gruß
Markus
17.06.2004 17:24:24
Thread-ID: 442672
10 Beiträge
Interior Color Index
Heinz

Liebe Excel-User,
ich habe mir in Excel eine Datei aufgebaut,
in der ich in den Zellen bestimmte Farben
verwende und zählen lasse.
In etwa so:
I = 0
For Each Cell In Range("CA1:EQ220")
If Cell.Interior.ColorIndex = Aktion Then I = I + 1
Next Cell
'Aktion ist die...
05.07.2004 13:03:58
Thread-ID: 450275
3 Beiträge
BackColor - Interior.ColorIndex
Peter

Hallo,
Hab da noch ne' Frage zur opt. Gestaltung:
Die Hintergrundfarbe in der Tabelle wird mit
interior.coloindex bestimmt,
die Hintergrundfarbe von Schaltflächen mit
Backcolor.
Jetzt hab ich 3 Möglichkeiten zur Farbangabe
gefunden.
' Private Sub TgbEIN_Click()...
06.01.2005 12:07:55
Thread-ID: 542672
3 Beiträge
interior colorindex
Hartmut_M

Hallo, in einer Urlaubsliste habe ich Zellen in zwei verschiedenen Farben und die weißen Zellen. Ich möchte nun einen Bereich mit Range auswählen, z. B. B2:R12. Nun sollen alle Zellen die nicht blau oder gelb sind rot eingefärbt werden. Habe dies mit folgendem Code versucht:
Range("b2:r12")...
19.01.2005 17:35:59
Thread-ID: 550609
3 Beiträge
Interior.colorindex Zuweisung aus Array
Tim

Hallo,
folgender Code soll einem Zellenfeld sehr schnell sowohl den Inhalt als
auch die Hintergundfarbe aus einem Array zuweisen.
Sub fill Dim x(0 To 1) x(0) = 6 x(1) = 4 Sheets(1).Range("a1:b1") = x Sheets(1).Range("a1:b1").Interior.ColorIndex = x End Sub
Für den Wert funktio...
07.10.2005 00:02:45
Thread-ID: 678137
2 Beiträge
Anzeige

Infobox / Tutorial

Hintergrundfarbe in Excel VBA effektiv nutzen

Schritt-für-Schritt-Anleitung

Um die Hintergrundfarbe eines Optionbuttons in VBA zu nutzen und diese in die Interior.ColorIndex-Eigenschaft einer Zelle zu übertragen, folge diesen Schritten:

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Modul erstellen: Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Code einfügen: Füge den folgenden Code in das Modul ein, um die Farbcodes zu übersetzen:

    Sub SetCellColor()
   Dim optionButtonColor As Long
   optionButtonColor = 8421631 ' Beispiel für hellrot

   ' Setze die Hintergrundfarbe einer Zelle
   Cells(1, 1).Interior.Color = optionButtonColor
End Sub

  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die Farbe zu setzen.

Häufige Fehler und Lösungen

  • Fehler: "Typen nicht kompatibel"

    • Lösung: Stelle sicher, dass du die richtige Eigenschaft Interior.Color verwendest, nicht Interior.ColorIndex.

  • Fehler: Zelle wird nicht gefärbt

    • Lösung: Überprüfe den Farbcodes, die du verwendest. Verwende die vba backcolor farbcodes korrekt.

Alternative Methoden

Wenn du nicht nur die Interior.Color, sondern auch die Interior.ColorIndex verwenden möchtest, kannst du eine Farbtabelle erstellen:

  1. Erstelle eine Tabelle in Excel, in der du die RGB-Werte und die entsprechenden ColorIndex-Werte auflistest.

  2. Nutze die folgende Formel, um die Farbzuordnung zu automatisieren:

    Function GetColorIndex(rgbValue As Long) As Integer
   Dim index As Integer
   index = -1 ' Standardwert, wenn kein Index gefunden wird
   ' Füge hier die Logik zur Zuordnung hinzu

   GetColorIndex = index
End Function

Praktische Beispiele

Hier sind einige Beispiele, die dir helfen können, den Umgang mit VBA Backcolor und ColorIndex besser zu verstehen:

  1. Farbzuweisung mit ColorIndex:

    Cells(1, 2).Interior.ColorIndex = 38 ' Setze hellrot

  2. Farbzuweisung mit RGB:

    Cells(1, 3).Interior.Color = RGB(255, 0, 0) ' Setze auch hellrot

Tipps für Profis

  • Nutze die ColorIndex-Tabelle in Excel, um die verfügbaren Farbcodes schnell zu finden. Eine Excel ColorIndex Tabelle kann dir helfen, die richtigen Indizes zu finden.
  • Wenn du oft mit VBA Farbcodes arbeitest, erstelle eine eigene access backcolor farbtabelle, um die Farben schneller zu übersetzen.
  • Experimentiere mit den vba backcolor codes, um verschiedene visuelle Effekte zu erzielen.

FAQ: Häufige Fragen

1. Wie finde ich die Farbcodes für meine Excel-Version? Du kannst die Excel Farbtabelle nutzen, um die benötigten RGB- oder ColorIndex-Werte zu finden.

2. Kann ich benutzerdefinierte Farben in Excel VBA verwenden? Ja, du kannst beliebige RGB-Werte verwenden, um benutzerdefinierte Farben für die Hintergrundfarbe einer Zelle oder eines Steuerelements zu setzen.

Beliebteste Forumthreads (12 Monate)

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