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

RGB Werte von Commandbutton Hintergrundfarbe in Caption

Forumthread: RGB Werte von Commandbutton Hintergrundfarbe in Caption

RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 16:29:44
Dieter(Drummer)
Guten Tag an alle.

Per Code werden die RGB Hintergundwerte des Commandbutton1 in Caption angezeigt. Das funktioniert.
In Caption wird es dann so angezeigt: RGB: -241, -255, -255.

Frage: Warum wird vor der Zahl das Minuszeichen angezeigt und wie bekomme ich das weg?

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)

Musterdatei:
https://www.herber.de/bbs/user/179706.xlsm

Code in Modul1 
Sub ZeigeRGBWerteAufCaption()

  Dim r As Integer

  Dim g As Integer

  Dim b As Integer



  ' RGB-Werte der Hintergrundfarbe auslesen

  r = (Tabelle1.CommandButton1.BackColor \ 65536) Mod 256

  g = (Tabelle1.CommandButton1.BackColor \ 256) Mod 256

  b = Tabelle1.CommandButton1.BackColor Mod 256



  ' RGB-Werte in der Caption anzeigen

  Tabelle1.CommandButton1.Caption = "RGB: " & b & ", " & g & ", " & r & vbNewLine & "Textfarbe: " & _

    "(R=" & (Tabelle1.CommandButton1.ForeColor \ 65536) Mod 256 & "," & _

    "G=" & (Tabelle1.CommandButton1.ForeColor \ 256) Mod 256 & ", " & _

    "B=" & Tabelle1.CommandButton1.ForeColor Mod 256 & ")"

End Sub
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 17:08:30
Kuwer
Hallo Dieter, 

Sub ZeigeRGBWerteAufCaption()

  Dim r As Integer

  Dim g As Integer

  Dim b As Integer



  ' RGB-Werte der Hintergrundfarbe auslesen

  r = -(Tabelle1.CommandButton1.BackColor \ 65536) Mod 256

  g = -(Tabelle1.CommandButton1.BackColor \ 256) Mod 256

  b = -Tabelle1.CommandButton1.BackColor Mod 256



  ' RGB-Werte in der Caption anzeigen

  Tabelle1.CommandButton1.Caption = "RGB: " & b & ", " & g & ", " & r & vbNewLine & "Textfarbe: " & _

    "(R=" & -(Tabelle1.CommandButton1.ForeColor \ 65536) Mod 256 & "," & _

    "G=" & -(Tabelle1.CommandButton1.ForeColor \ 256) Mod 256 & ", " & _

    "B=" & -Tabelle1.CommandButton1.ForeColor Mod 256 & ")"

End Sub
Gruß, Uwe
Anzeige
AW: RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 17:22:43
Dieter(Drummer)
Danke Uwe,

klappt perfekt!

Noch eine Zusatzfrage: Wie müsste der Code lauten, wenn im Code der Name des CommandButton, hier CommandButton1, der markierte Commandbutton genommen wird.
Wäre toll, wenn du da auch eine Löung für mich hast.

Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Anzeige
AW: RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 22:07:10
Kuwer
Hallo Dieter,

z.B. so: 
'Modul Tabelle1

Private Sub CommandButton1_Click()

  ZeigeRGBWerteAufCaption CommandButton1

End Sub



'Modul Modul1

Sub ZeigeRGBWerteAufCaption(ByRef myCB As MSForms.CommandButton)

  With myCB

    .Caption = "RGB: " & _

    -.BackColor Mod 256 & ", " & _

    -(.BackColor \ 256) Mod 256 & ", " & _

    -(.BackColor \ 65536) Mod 256 & _

    vbNewLine & "Textfarbe: " & _

    "(R=" & -(.ForeColor \ 65536) Mod 256 & "," & _

    "G=" & -(.ForeColor \ 256) Mod 256 & ", " & _

    "B=" & -.ForeColor Mod 256 & ")"

  End With

End Sub
Gruß, Uwe
Anzeige
AW: RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 23:01:17
Dieter(Drummer)
Danke Uwe,

perfekte Lösung.

Gruß,
Dieter(Drummer)
AW: RGB Werte von Commandbutton Hintergrundfarbe in Caption
25.11.2025 17:55:32
Dieter(Drummer)
Hallo Uwe,

habe den Code jetzt noch gekürzt. Diese Zeilen habe ich abgeklemmt, da sie sonst auch im Caption eingefügt werden.
So klappt es prima und deine Änderungen konnte auch sehen. Danke!

Gruß,
Dieter(Drummer)

Jetziger Code:
'Herber: Kuwer(Uwe)25.11.2025 16:08:30
Sub ZeigeRGBWerteAufCaption2()
Dim r As Integer
Dim g As Integer
Dim b As Integer

' RGB-Werte der Hintergrundfarbe auslesen
r = -(Tabelle1.CommandButton1.BackColor \ 65536) Mod 256
g = -(Tabelle1.CommandButton1.BackColor \ 256) Mod 256
b = -Tabelle1.CommandButton1.BackColor Mod 256

' RGB-Werte in der Caption anzeigen
Tabelle1.CommandButton1.Caption = "RGB: " & b & ", " & g & ", " & r '& vbNewLine & "Textfarbe: " & _
"(R=" & -(Tabelle1.CommandButton1.ForeColor \ 65536) Mod 256 & "," & _
"G=" & -(Tabelle1.CommandButton1.ForeColor \ 256) Mod 256 & ", " & _
"B=" & -Tabelle1.CommandButton1.ForeColor Mod 256 & ")"
End Sub
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum