Ich möchte mir eine Liste mit den Hintergrundfarben erstellen. Zusätzlich die entsprechenden FarbCodes und Farbbezeichnungen. Vielen Dank im Voraus
Lieber User*in,
hier ein Makro von Bernd Held aus dem VBA-Tanker (Link siehe unten) mit der Nummer 11515. Mit diesem Makro werden in Excel nicht nur die Farben und der Farbcode ausgelesen, sondern mit der eingebauten Funktion auch die Farbezeichnungen!
Sub FarbenEinfuegen()
Rem JS 23.02.2024 Quelle VBA-Tanker
Dim i As Integer
With Tabelle1
For i = 1 To 56
.Range(„A“ & i).Value = i
.Range(„B“ & i).Interior.ColorIndex = i
Next i
End With
End Sub
Function FktFarbName(ByVal intNr As Integer) As String
Dim strFarbe As String
Select Case intNr
Case 1: strFarbe = „Schwarz“
Case 2: strFarbe = „Weiß“
Case 3: strFarbe = „Rot“
Case 4: strFarbe = „Hellgrün“
Case 5: strFarbe = „Blau“
Case 6: strFarbe = „Gelb“
Case 7: strFarbe = „Rosa“
Case 8: strFarbe = „Türkis“
Case 9: strFarbe = „Dunkelrot“
Case 10: strFarbe = „Grün“
Case 11: strFarbe = „Dunkelblau“
Case 12: strFarbe = „Dunkelgelb“
Case 13: strFarbe = „Violett“
Case 14: strFarbe = „Seegrün“
Case 15: strFarbe = „Grau-25%“
Case 16: strFarbe = „Grau-50%“
Case 17: strFarbe = „Immergrün“
Case 18: strFarbe = „Pflaume“
Case 19: strFarbe = „Elfenbein“
Case 20: strFarbe = „Helles Türkis“
Case 21: strFarbe = „Dunkelpurpur“
Case 22: strFarbe = „Koralle“
Case 23: strFarbe = „Meeresblau“
Case 24: strFarbe = „Eisblau“
Case 25: strFarbe = „Dunkelblau“
Case 26: strFarbe = „Rosa“
Case 27: strFarbe = „Gelb“
Case 28: strFarbe = „Türkis“
Case 29: strFarbe = „Violett“
Case 30: strFarbe = „Karminrot“
Case 31: strFarbe = „Seegrün“
Case 32: strFarbe = „Blau“
Case 33: strFarbe = „Himmelblau“
Case 34: strFarbe = „noch helleres Türkis“
Case 35: strFarbe = „Pastelgrün“
Case 36: strFarbe = „Hellgelb“
Case 37: strFarbe = „Blassblau“
Case 38: strFarbe = „Hellrosa“
Case 39: strFarbe = „Lavendel“
Case 40: strFarbe = „Gelbbraun“
Case 41: strFarbe = „Hellblau“
Case 42: strFarbe = „Aquablau“
Case 43: strFarbe = „Gelbgrün“
Case 44: strFarbe = „Gold“
Case 45: strFarbe = „Helles Orange“
Case 46: strFarbe = „Orange“
Case 47: strFarbe = „Blaugrau“
Case 48: strFarbe = „Grau-40%“
Case 49: strFarbe = „Grünblau“
Case 50: strFarbe = „Meeresgrün“
Case 51: strFarbe = „Dunkelgrün“
Case 52: strFarbe = „Olivegrün“
Case 53: strFarbe = „Braun“
Case 54: strFarbe = „Pflaume“
Case 55: strFarbe = „Indigoblau“
Case 56: strFarbe = „Grau-80%“
Case Else: strFarbe = „(Unbekannt)“
End Select
FktFarbName = strFarbe
End Function
Mit freundlichen Grüßen
Josef Schreiner
NS: Link zum VBA-Tanker (kostenpflichtig) von Bernd Held: Der Excel-Tanker beschleunigt Ihre Projekte | Held-Office-Shop
Hier nun die Excel-Liste mit Farbcode, Hintergrundfarbe und Farbbezeichnung zum Makro von Bernd Held.
Herzliche Grüße
Josef Schreiner
Vielen Dank, die Antwort entspricht meinen Vorstellungen!
Mit freundlichen Grüßen
Wolfgang Rauch