Farbpaletten-Problem
Bruno
Mit nachstehendem Code ermittle ich den Farbindex vorhandener Zellfarben:
Sub Farbpalette()
Dim b As Boolean
Dim I As Integer
b = Application.Dialogs(xlDialogPatterns).Show
If b = True Then
I = ActiveCell.Interior.ColorIndex
MsgBox "Farbindex dieser Zelle = " & I
Else
I = xlNone
MsgBox "Dialog Farbindex abgebrochen"
End If
End Sub
Ist eine markierte Zelle mit einer Hintergrundfarbe belegt, klappt die Anzeige wie gewünscht.
Ist die Zelle ohne Hintergrundfarbe und wird im Palettendialog «abbrechen» angeklickt, bleibt der Zellenhintergrund im Originalzustand, also farblos, bestehen. Wird der Dialog aber wird mit «OK» quittiert, ist die markierte Zelle anschliessend weiss hinterlegt, was unerwünscht ist.
Kann mir jemand Tipps zur erforderlichen Anpassung des vorstehenden Codes geben?
Besten Dank und Gruss, Bruno