VBA Schriftfarbe ändern
05.06.2018 11:18:18
Willi
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
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