In VBA (Visual Basic for Applications) ist die `QBColor`-Funktion eine einfache Methode, um innerhalb von Office-Anwendungen wie Excel, Access oder Word Zugriff auf eine Reihe vordefinierter Farben zu erhalten. Die `QBColor`-Funktion wird verwendet, um eine Farbe anhand eines Index von 0 bis 15 zu bestimmen. Diese Farben stammen ursprünglich aus dem Farbschema, das in QuickBASIC verwendet wurde.
Hier ist eine Übersicht, wie du die `QBColor`-Funktion verwenden kannst:
Syntax
colorValue = QBColor(index)
- index: Ein ganzzahliger Wert von 0 bis 15, der die Farbe angibt.
Farb-Index und zugehörige Farben
- 0: Schwarz
- 1: Blau
- 2: Grün
- 3: Cyan (Türkis)
- 4: Rot
- 5: Magenta
- 6: Gelb
- 7: Weiß
- 8: Graues Schwarz
- 9: Hellblau
- 10: Hellgrün
- 11: Hellcyan (Helltürkis)
- 12: Hellrot
- 13: Hellmagenta
- 14: Hellgelb
- 15: Hellweiß
Beispiel
Hier ist ein einfaches Beispiel, das zeigt, wie man `QBColor` in einem VBA-Makro verwendet, um den Hintergrund einer Zelle in Excel zu ändern:
Sub SetCellColor()
' Zielt auf die Zelle A1 im aktiven Arbeitsblatt
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Passe den Name des Arbeitsblattes an
' Setzt die Hintergrundfarbe der Zelle A1 auf blau
ws.Range("A1").Interior.Color = QBColor(1)
End Sub
In diesem Beispiel wird die `QBColor`-Funktion verwendet, um die Farbe für die Zelle A1 auf Blau zu setzen. Stelle sicher, dass du den Namen des Arbeitsblattes bei Bedarf anpasst.
Hinweise
- Die `QBColor`-Funktion gibt das RGB-Farbäquivalent des angegebenen Farbenindexes zurück.
- Diese Funktion ist nützlich, wenn du schnell mit vordefinierten Basisfarben arbeiten möchtest. Beachte jedoch, dass der Farbraum begrenzt ist und nicht die volle Palette moderner Farben abdeckt.
Denke daran, dass `QBColor` eher für einfache und schnelle Farbänderungen gedacht ist. Falls du komplexere oder spezifischere Farben benötigst, solltest du die RGB-Funktion verwenden (`RGB(red, green, blue)`), bei der du den genauen Anteil jeder Farbkomponente festlegen kannst.
Unlock Your Potential
Excel
Access
Power BI
