"Mackie" hat mir in einem vorherigen Beitrag folgenden Code erstellt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim z, s, c
z = Target.Row: s = Target.Column
If Cells(z, s).Interior.Color = 4697456 Then
With Cells(z, s)
.Font.Name = "Wingdings" 'Zelle in Schriftart "Wingdings" formatieren
.Font.Size = 22 'Hier die Grösse anpassen !
.Value = IIf(.Value = Chr(168), Chr(254), Chr(168)) 'Wechselt zwischen leerem und angehaktem Kästchen
End With
End If
Cancel = True
End Sub
Hier der Beitrag:
http://www.vba-forum.de/Forum/View.aspx?ziel=44594-Checkboxen_-_VBA
Nur anstatt der Farbe grün würde ich die Farbe Grau mit RG 218 218 218 als Felder nehmen, wo eine Checkbox erstellt werden soll. Dementsprechend bräuchte ich den geänderten Interior.Color Wert :)
Danke vorab!
|