Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme mit dialogs(xldialogeditcolor).show

Forumthread: Probleme mit dialogs(xldialogeditcolor).show

Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 17:06:15
helmut
Hallo Zusammen,
habe mal wieder ein Problem, wo ich zur Zeit nicht weiterkomme (trotz stundenlangem probieren).
Ich möchte gerne einen Dialog von Excel - in diesem Fall den Dialog xldialogeditcolor - nutzen um einer Textbox in einer Userform eine neue Hintergrundfarbe zu verpassen. Nachdem ich einige verzweifelte Versuche damit verbracht habe über den Befehl application.dialogs(xldialogeditcolor).show diesen Dialog über einen Button zu öffnen - mann muss wissen, das in diesem Fall das erste von unzähligen Attributen von .show auf true gesetzt werden muss, also richtigerweise lautet der Ausdruck "application.dialogs(xldialogeditcolor).show True" - gelingt es mir nicht, den ausgewählten Farbton auf die userform1.textbox1.backcolor zu übertragen. In der Hilfe zu editcolor steht zwar, dass die Übergabewerte R, G und B abzufragen sind, aber ich komme nicht darauf wie der Rückgabewert nach der Auswahl in dem Dialog mit ok an meine Textbox möglich ist.
In diesem Zusammenhang habe ich noch eine weitere Frage:
Im Objektkatalog findet man unter der Eigenschaft .show unten die 30 verschiednenen Argumente (Attribute) aufgeführt. Wer kann mir sagen wo ich Infos erhalte welches Attribut was veranlasst?!!! (Das Erste auf True setzen bedeutet das der Dialog angezeigt wird, weiter bin ich mit experimentieren nicht gekommen)
Würde mich über eine kompetente Hilfe freuen!
Mit freundlichen Grüßen,
Helmut Palmen
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 17:37:33
Peter
Servus,
zu 1: am Bsp. eines CommandButtons so
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogEditColor).Show True
Me.CommandButton1.ForeColor = xlDialogEditColor
End Sub

zu 2: k.a.
MfG Peter
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 17:40:32
Fred
Hi,
zu2 findest du in der Hilfe unter "Listen der integrierten Dialogfeldargumente"
mfg Fred
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 19:35:54
Helmut
Hallo Peter,
werde Deinen Lösungsansatz gleich mal testen. Trotzdem habe ich noch eine Frage: Wie komme ich an die Werte für R,G,B? Ich möchte diese Werte in einer Excel Tabelle speichern und die Textbox (oder auch den Button) über eine separate Schleife dann als Wert setzen : Beispiel: textbox.forecolor=RGB(255,125,200). Hast Du darauf eventuell eine Antwort parat?! Würde mich über eine Antwort freuen!
Gruß,
Helmut
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 17:55:39
Ralf
Hallo Helmut,
das 'True' kannst Du getrost weglassen.
Beim Aufruf des Farbdialogs kannst Du die Farbe des Dialogfeldes nicht direkt der Zelle zuweisen. Du kannst lediglich den Farbwert des Colorindexes verändern (sind, glaube ich, 56). Diesen Colorindex kannst Du dann der Zelle zuweisen. Bsp.:

Sub Farbe_ändern()
'Erster Farbindex soll verändert werden...
'Hier wird erst einmal Rot als Standard gesetzt.
Application.Dialogs(xlDialogEditColor).Show 1, 255, 0, 0 'jetzt Deine Wunschfarbe 'auswählen
ActiveCell.Interior.ColorIndex = 1 'Jetzt die Farbe an die Zelle übergeben.
End Sub

Die Argumente zu den einzelnen Dialogs findest Du, wenn Du im Pbjektkatalog mal 'Dialogs' eingibst, auf den Hilfebutton klickst und Dir von dort die Liste der Argumente (Hyperling ist ziemlich weit unten) anzeigen lässt.
Ciao, Ralf
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 18:08:00
Fred
Hi,
"den ausgewählten Farbton auf die userform1.textbox1.backcolor zu übertragen"
mfg Fred
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 20:39:25
Ralf
Hallo Helmut,
sorry, hatte überlesen, dass Du die Farbe einer Textbox zuweisen willst. xlDialogEditColor ist aber vorrangig für die Tabellen in Excel gedacht, weniger für VBA. Hier müßtest Du mit API schon etwas tiefer in die Trickkiste greifen. Da das aber ziemlich aufwendig ist und wenn Dir mit einem kleinen Trick auch geholfen ist (die Farbe erst einer Zelle zuweisen und diese Farbe dann für BackColor Deiner Textbox übergeben), dann folgender Vorschlag (hier mit Button, ist aber das Gleiche in grün und funktioniert).

Sub Farbe_ändern()
'Farbdialogfeld wird aufgerufen, Colorindex 1 wird auf Rot gesetzt
'Nach Aufruf des Dialogfeldes kann die Farbe des Colorindex 1 im Dialogfenster geändert werden
Application.Dialogs(xlDialogEditColor).Show 1, 255, 0, 0
ActiveCell.Interior.ColorIndex = 1 'und hier wird die Farbe der aktiven Zelle zugewiesen
'Zuweisen der Farbe an einen Button als Hintergrundfarbe
CommandButton1.BackColor = ActiveCell.Interior.Color
End Sub

Ob und wenn ja wie man die RGB-Werte aus dem Farbdialog auslesen kann, kann ich Dir leider auch nicht sagen.
Ciao, Ralf
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 21:10:40
Fred
Hi,
ich hab die Frage nicht gestellt, nur den Hinweis auf die Userform gegeben.
mfg Fred
AW: Probleme mit dialogs(xldialogeditcolor).show
23.09.2005 21:52:56
Ralf
Hallo Helmut,
sorry, hatte überlesen, dass Du die Farbe einer Textbox zuweisen willst. xlDialogEditColor ist aber vorrangig für die Tabellen in Excel gedacht, weniger für VBA. Hier müßtest Du mit API schon etwas tiefer in die Trickkiste greifen. Da das aber ziemlich aufwendig ist und wenn Dir mit einem kleinen Trick auch geholfen ist (die Farbe erst einer Zelle zuweisen und diese Farbe dann für BackColor Deiner Textbox übergeben), dann folgender Vorschlag (hier mit Button, ist aber das Gleiche in grün und funktioniert).

Sub Farbe_ändern()
'Farbdialogfeld wird aufgerufen, Colorindex 1 wird auf Rot gesetzt
'Nach Aufruf des Dialogfeldes kann die Farbe des Colorindex 1 im Dialogfenster geändert werden
Application.Dialogs(xlDialogEditColor).Show 1, 255, 0, 0
ActiveCell.Interior.ColorIndex = 1 'und hier wird die Farbe der aktiven Zelle zugewiesen
'Zuweisen der Farbe an einen Button als Hintergrundfarbe
CommandButton1.BackColor = ActiveCell.Interior.Color
End Sub

Ob und wenn ja wie man die RGB-Werte aus dem Farbdialog auslesen kann, kann ich Dir leider auch nicht sagen.
Ciao, Ralf
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
helmut
Hallo Zusammen,
habe nun wieder einiges dank Eurer Hilfe dazugelernt! Danke! Habe trotzdem die Frage als noch offen markiert um eine eventuelle Antwort auf meine Zusatzfrage noch zu erhalten:
Wie kann ich die Werte für R,G,B aus xldialogeditcolor erhalten? Hat dazu jemand eine Idee?
Gruß,
Helmut
Anzeige
AW: Probleme mit dialogs(xldialogeditcolor).show
25.09.2005 02:22:08
Hubert
Hallo,
wozu brauchst du die RGB-Werte?
mfg Hubert
AW: Probleme mit dialogs(xldialogeditcolor).show
27.09.2005 16:32:10
Helmut
Hallo Hubert,
ich möchte gerne die Zuweisung der Hintergrundfarbe von Textfeldern über RGB(variabel1, variabel2, variabel3) zuweisen. Außerdem ist für den Nutzer der Anwendung die Zuordnung über die RGB Zahlenwerte einfacher.
Gruß,
Helmut
Anzeige
;
Anzeige

Infobox / Tutorial

Probleme mit dem xldialogeditcolor in Excel

Schritt-für-Schritt-Anleitung

Um den Dialog xldialogeditcolor in einer Userform zu verwenden und die Hintergrundfarbe einer Textbox zu ändern, gehe wie folgt vor:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel.
  2. Füge einen CommandButton in die Userform ein.
  3. Verwende den folgenden Code im Click-Event des CommandButtons:
Private Sub CommandButton1_Click()
    Dim FarbIndex As Long
    Dim R As Long, G As Long, B As Long

    FarbIndex = Application.Dialogs(xlDialogEditColor).Show(True)

    ' Hier wird die Farbe der Textbox als Hintergrundfarbe gesetzt
    If FarbIndex <> -1 Then
        Me.TextBox1.BackColor = ActiveCell.Interior.Color
    End If
End Sub
  1. Um die RGB-Werte zu speichern, kannst du eine separate Funktion erstellen, die die Werte in einer Tabelle ablegt.

Häufige Fehler und Lösungen

  • Problem: Der Farbton wird nicht auf die Textbox übertragen.

    • Lösung: Vergewissere dich, dass der Dialog richtig aufgerufen wird und dass du die ActiveCell verwendest, um die Farbe zu setzen.

  • Problem: Die Werte für R, G und B können nicht abgerufen werden.

    • Lösung: Der xldialogeditcolor gibt keinen direkten Zugriff auf RGB-Werte. Stattdessen kannst du die ActiveCell.Interior.Color verwenden, um die Farbe in RGB zu extrahieren.

Alternative Methoden

Wenn du die RGB-Werte direkt verwenden möchtest, kannst du die API-Funktion in VBA nutzen. Diese Methode erfordert jedoch tiefere Kenntnisse in der Programmierung und ist komplexer.

Ein einfacherer Ansatz besteht darin, die Farbe einer Zelle zu ändern und diese Farbe dann der Textbox zuzuweisen, wie im obigen Beispiel gezeigt.

Praktische Beispiele

Hier ein Beispiel, wie du die RGB-Werte speichern und verwenden kannst:

Sub Farbe_ändern()
    Dim R As Long, G As Long, B As Long

    ' Farbwahl im Dialogfeld
    Application.Dialogs(xlDialogEditColor).Show

    ' Beispielhafte Zuweisung von RGB-Werten
    R = 255
    G = 125
    B = 200

    ' Färbung der Textbox
    Me.TextBox1.BackColor = RGB(R, G, B)
End Sub

Tipps für Profis

  • Experimentiere mit verschiedenen Farbtönen und speichere diese in einer Tabelle, um sie später wiederverwenden zu können.
  • Nutze die ColorIndex-Eigenschaft, um die Farben von Zellen effizient zu verwalten.
  • Halte dich mit den integrierten Dialogfeldargumenten auf dem Laufenden, indem du die Hilfe im VBA-Editor nutzt.

FAQ: Häufige Fragen

1. Wie kann ich die RGB-Werte aus dem Farbdialog auslesen?
Leider gibt es keine direkte Möglichkeit, die RGB-Werte aus dem xldialogeditcolor zu extrahieren. Du musst die ActiveCell.Interior.Color verwenden, um die Farbe abzurufen.

2. Was muss ich beachten, wenn ich den Dialog aufrufe?
Stelle sicher, dass du die True-Option verwendest, um den Dialog sichtbar zu machen, und dass die Benutzeroberfläche nicht blockiert wird.

3. Gibt es eine Möglichkeit, die Hintergrundfarbe einer Textbox ohne xldialogeditcolor zu ändern?
Ja, du kannst die BackColor-Eigenschaft direkt in deinem Code festlegen, indem du die RGB-Werte manuell angibst, z. B. TextBox1.BackColor = RGB(255, 0, 0).

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