mit folgendem Code wird bei Click auf einen CommanButton eine Farbpallette aufgerufen, der User kann eine Farbe wählen und diese wird in die Variable schriftfarbe gespeichert:
Private Sub CB_Schriftfarbe_Click()
Dim schriftfarbe As Long
Application.Dialogs(xlDialogEditColor).Show (56)
schriftfarbe = ActiveWorkbook.Colors (56)
End Sub
Ich möchte die Schriftfarbe einer Zelle mit genau dieser Farbe versehen.Bei Cells(1, 1).Font.ColorIndex = schriftfarbe bekomme ich den Fehler Index außerhalb des gültigen Bereichs.
Wie kann ich das hinbekommen?
Gruß,
Willi