Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbpalette (VBA)...

Forumthread: Farbpalette (VBA)...

Farbpalette (VBA)...
Matthias
Hallo Excelfreunde
Level bitte nicht ganz so ernst nehmen!
mit:
Application.Dialogs(84).Show
öffne ich die Farbpalette zur Auswahl für den Benutzer.
Er kann dann (durch Auswählen einer Standardfarbe) einem Label in einem Userform
einen .BackColor - Wert übergeben.
Hintergrund ist eine visuelle Benutzerfreundlichkeit für den Anwender
um z.B. Feiertage, Geburtstage oder Termine in einem Kalender nach seiner
Wahrnehmung "augenfreundlich" darzustellen.
Denn jeder sieht Farbkombinationen (mit eigenen Augen) doch ein wenig anders.
In XL2000 sieht die Palette so aus:
Userbild
in XL2007 sieht sie allerdings so aus:
Userbild
Ich möchte nun auch in XL2007 den Dialog von XL2000 sehen
Denn es gibt in XL2007 die Option "Fülleffekte".
Diese Option möchte ich nicht zulassen, da die Farbrückgabe dann falsch wäre, z.B bei der Auswahl von 2 Farben.
Geht das überhaupt, muß ich das vergessen, oder sollte ich die 56 Standardfarben erst
auslesen und in einem eigenen Dialog dem Benutzer zur Verfügung stellen?
Vielen Dank schon mal fürs Lesen
Gruß Matthias
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Farbpalette (VBA)...
24.05.2012 13:00:18
EtoPHG
Vielleicht funktioniert das hier immer noch.
Gruess Hansueli
Vielen Dank ... Perfekt ! kwT
24.05.2012 23:36:18
Matthias
application.Dialogs(xlDialogColorPalette).Show
25.05.2012 16:46:20
NoNet
Hallo Matthias,
weshalb eigentlich 84 ? - Verwende doch die dafür vorgesehene Konstante xlDialogColorPalette !
Unter Excel 2010 zeigt folgende Anweisung das richtige Fenster an :
Application.Dialogs(xlDialogColorPalette).Show
Schönes Pfingst-WE,
NoNet
Anzeige
xlDialogColorPalette = Laufzeitfehler 1004
26.05.2012 14:01:03
Matthias
Hallo NoNet
Danke für Deinen Beitrag
XL2010 habe ich nicht zur Verfügung.
Ich benutze Xl2000 und XL2007
Leider kann ich es aber so nicht benutzen. Ich bekomme den Laufzeitfehler 1004
den ich beim Dialog(84) nicht bekomme.
Wie geschrieben setze ich den Backcolor-Wert für ein Label in einem Userform über den Dialog.
Dazu möchte ich nur die einfache Farbpalette der 56 Standardfarben benutzen, wie sie in XL2000 (siehe Ausgangsfrage) dargestellt wird.
Ich habe bereits über ein Spinbutton die 8 Farbkonstanten vbRed, vbYello, vbBlue vbCyan, usw... zur Auswahl fest eingepflegt, nur wollte ich eben dem Benutzer alle 56 Farben zur Verfügung stellen.
Dazu benutze ich die Zelle A1 als Color-Zwischenspeicher und werte es dann so aus:
lbltest.BackColor = Range("A1").Interior.Color,
wobei ich vorher den Interior.Color-Wert der Zelle in einer Variable zwischenspeichere und dannach zurückschreibe.
Vielleicht werde ich mir doch eine eigene Farbpalette als UForm zusammenstricken.
Mal sehen ob mir da was passendes einfällt.
Wahrscheinlich 56 Button die ich mit dem Interior.color-Wert aus dem Index der Palette hole.
xlDialogColorPalette funktioniert bei mir jedenfalls nicht, warum auch immer :(
Dennoch, Danke für Deine angebotene Hilfe :-)
Gruß Matthias
Anzeige
;

Forumthreads zu verwandten Themen

Farbpalette für excel 2007
PeterE

Hallo Zusammen
Mit excel 2003 benutzte ich oft folgenden Aufruf:
Application.Dialogs(xlDialogPatterns).Show
mit dem ich jeweils die entsprechende Farbe auswählen konnte. Bei Excel 2007 wurden neue (pastell) Farben eingebaut. Wenn ich nun diesen Befehl benutze erhalte ich die Palette...
19.01.2009 14:02:00
Thread-ID: 1041437
5 Beiträge
Anzeige
Farbpalette unter Excel 2007
Mathias

Hallo,
unter Excel 2003 blende ich mit
Application.CommandBars("Fill Color").Visible = True
die Hintergrund-Farbpalette ein.
Wie mache ich das unter Excel 2007 ?
Der Makrorekorder wollte es mir leider nicht verraten...
Viele Grüße
Mathias
31.01.2009 19:58:55
Thread-ID: 1045723
20 Beiträge
Farbpalette von alten Office Version in 2007
alten

Hallo,
ich möchte die alte Farbpalette in Office 2007 benutzen. Hat jemand diese als Designvorlage?
Besten Dank.
Gruß
Roland
29.05.2009 17:10:20
Thread-ID: 1078271
11 Beiträge
Farbpalette hat sich geändert
jensP

Hallo,
kann mir jemand sagen, warum sich in Excel die zu Verfügung stehende Farbpalette für Schrift- und Füllfarbe ändern kann und wie man die Standardpalette wiederherstellen kann?
Danke für Eure Antworten!
09.06.2009 14:31:27
Thread-ID: 1080166
2 Beiträge
Anzeige
Ändern der Farbpalette
jensP

Hallo,
aus irgendeinem mir nicht erkennbarem Grund hat sich die Farbpalette für Schrift- und Füllfarbe geändert. D.h. die gewohnten Farben stehen nicht mehr zur Verfügung.
Kann mir jemand sagen, wie das passieren kann und wie ich die Standardfarbpalette wiederherstellen kann?
Vielen...
09.06.2009 14:41:22
Thread-ID: 1080169
3 Beiträge
Farbpalette wird zerstört
Björn

Hallo zusammen,
es gab vor einiger Zeit mal einen Beitrag zu diesem Thema.
https://www.herber.de/forum/archiv/976to980/t976964.htm
Die dort beschriebenen Lösungen helfen mir nicht weiter, deshalb stelle ich die Frage erneut.
Es kommt immer wieder vor, dass beim Öffnen bestimmte...
11.12.2009 11:38:01
Thread-ID: 1123188
8 Beiträge
Farbpaletten-Problem
Bruno

Guten Abend Excel-Profis
Mit nachstehendem Code ermittle ich den Farbindex vorhandener Zellfarben: Sub Farbpalette() Dim b As Boolean Dim I As Integer b = Application.Dialogs(xlDialogPatterns).Show If b = True Then I = ActiveCell.Interior.ColorIndex MsgBox "Farbindex dieser Zelle = " &...
09.06.2011 18:18:53
Thread-ID: 1217961
5 Beiträge
Excel 2010 Farbpalette individualisieren
Flix

Hi,
ich habe schon einige Zeit in Google verbracht und komm nicht drauf:
wie kann ich benutzerdefinierte Farben in die Farbpalette aufnehmen und dann dort reinspeichern.
Mir ist klar dass sobald ich iene Farbe verwende sie auch in derPalettte sichtbar ist (unter: zuletzt verwendete...
10.11.2011 16:06:09
Thread-ID: 1237294
2 Beiträge
Farbpalette in XL 2007 und XL 2010
Reinhard

Hallo Wissende,
ich hoffe ihr seid alle gut gerutscht :-)
Wegen einer Anfrage in einem anderen Forum bekam ich diese Mappe:
https://www.herber.de/bbs/user/78154.xlsm
Der Anfrager hat die mappe mit XL 2010 erstellt, ich habe nur XL 2007.
Ich weiß inzwischen daß da der Parame...
01.01.2012 17:44:31
Thread-ID: 1244111
4 Beiträge
Farbpalette mit Vba
Ramin

Hallo.Ich habe ein Formular in dem ich per Button eine Farbpalette anzeigen lassen will. Wenn man eine Farbe ausgewählt hat, soll z.B. A1 in dieser Farbe eingefärbt werden. Ich hoffe, dass mir da jemand weiterhelfen kann.Vielen Dank schonmal im Voraus.
VlGRamin
14.08.2002 13:47:37
Thread-ID: 148517
7 Beiträge
Farbpalette in einer Symbolleiste
Mark

Hallo,ich habe ein macro geschrieben mit dessen Hilfe ich jede zweite zweite Zeile innerhalb eines markierten Bereiches farbig hinterlege. Dieses macro rufe ich über einen Button in einer Symbolleiste auf. Nun möchte ich erreichen, dass wie bei dem Steuerelement Hintergrundfarbe oder auch Schri...
02.09.2002 15:12:57
Thread-ID: 155419
2 Beiträge
Zelle mit Farbpalette färben ohne select?
ralph

Hallo zusammen,
ich habe aktuell eine Funktion, die mir eine Zelle nach Farbwunsch aus der Farbpalette einfärbt. _
Hierfür muss ich aber das Arbeitsplatt aktivieren und die Zelle selektieren, das würde ich _ gerne umgehen, weis aber nicht wie. Public Sub Fahrzeugfarbe_Click() 'Beim Au...
21.08.2017 16:58:10
Thread-ID: 1575624
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Farbpalette in Excel VBA nutzen

Schritt-für-Schritt-Anleitung

Um die Farbpalette in einem Excel VBA-Projekt zu nutzen, folge diesen Schritten:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

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

  2. Füge ein Userform hinzu:

    • Klicke mit der rechten Maustaste auf ein Projekt im Projektfenster und wähle Einfügen > UserForm.

  3. Füge ein Label hinzu:

    • Ziehe ein Label auf das Userform.

  4. Füge einen Button hinzu:

    • Ziehe einen Button auf das Userform und benenne ihn z.B. btnFarbe.

  5. Füge folgenden Code in das Click-Ereignis des Buttons ein:

    Private Sub btnFarbe_Click()
   Dim Farbe As Long
   Farbe = Application.Dialogs(xlDialogColorPalette).Show
   If Farbe <> False Then
       lbltest.BackColor = Farbe
   End If
End Sub

  6. Schließe den VBA-Editor und teste das Userform im Excel.

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004: Dieser Fehler tritt auf, wenn die Konstante xlDialogColorPalette nicht verfügbar ist oder nicht funktioniert. Stelle sicher, dass du die richtige Excel-Version verwendest und dass dein VBA-Code korrekt ist.

  • Dialog öffnet nicht: Wenn der Dialog für die Farbpalette nicht geöffnet wird, überprüfe, ob der Code in einer unterstützten Excel-Version (z.B. XL2007 oder XL2010) ausgeführt wird.

Alternative Methoden

Falls der Standarddialog nicht den gewünschten Effekt hat oder nicht funktioniert, könntest du eine eigene Farbpalette erstellen:

  1. Erstelle ein Userform mit Buttons für jede Farbe:

    • Erstelle 56 Buttons, die jede der Standardfarben repräsentieren.
    • Weise jedem Button den entsprechenden BackColor-Wert zu.

  2. Code-Beispiel für einen Button:

    Private Sub btnRed_Click()
   lbltest.BackColor = vbRed
End Sub

Praktische Beispiele

Hier ist ein Beispiel, wie du eine benutzerdefinierte Farbpalette in einem Userform erstellen kannst:

Private Sub UserForm_Initialize()
    ' Setze die Farben der Buttons
    btnRed.BackColor = vbRed
    btnBlue.BackColor = vbBlue
    btnGreen.BackColor = vbGreen
    ' ... weitere Farben
End Sub

Tipps für Profis

  • Verwende Farbcodes: Anstelle von vordefinierten Konstanten kannst du auch RGB-Werte verwenden, um spezifischere Farben zu erstellen.

  • Farbkombinationen speichern: Überlege dir, wie du die vom Benutzer ausgewählten Farben speichern kannst, um sie später wieder zu verwenden.

FAQ: Häufige Fragen

1. Warum funktioniert xlDialogColorPalette nicht in meiner Version von Excel?
Die Konstante xlDialogColorPalette ist möglicherweise nicht in allen Excel-Versionen verfügbar. Stelle sicher, dass du eine unterstützte Version verwendest.

2. Wie kann ich eine eigene Farbpalette erstellen?
Du kannst ein Userform mit Buttons für jede Farbe erstellen und den BackColor-Wert der Labels entsprechend setzen. Dies gibt dir die Flexibilität, jede gewünschte Farbe zu verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige