Zellen färben mit Checkbox?

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

mit dem nachfolgenden Code kann ich mit einer Checkbox aus der Steuerelemente-Toolbox die Zelle A1 bei gesetztem Häkchen rot einfärben.

Was muß hinzufügen, um zusätzlich die Farbe der Schrift
zu verändern? (weiss z.B.)

Option Explicit

Private Sub CheckBox1\_Click()
'Beispiel für Zelle A1
 If CheckBox1.Value = True Then
 Cells(1, 1).Interior.ColorIndex = 3

 Else
 Cells(1, 1).Interior.ColorIndex = 0
 End If
End Sub

Gruß und danke schonmal
Rolf

2

mit dem nachfolgenden Code kann ich mit einer Checkbox aus der
Steuerelemente-Toolbox die Zelle A1 bei gesetztem Häkchen rot
einfärben.

Was muß hinzufügen, um zusätzlich die Farbe der Schrift
zu verändern? (weiss z.B.)

Hallo Rolf,

probier mal diese Schreibweise mit IIf:

Private Sub CheckBox1_Click()
'Beispiel für Zelle A1
Cells(1, 1).Interior.ColorIndex = IIf(CheckBox1.Value = True,3,0)
End Sub

Cells(1, 1).Interior.ColorIndex = IIf(CheckBox1.Value,3,0)
geht auch.

Die Schriffarbe legt man damit fest:
Cells(1, 1).font.ColorIndex =

Gruß
Reinhard

Option Explicit

Private Sub CheckBox1_Click()
'Beispiel für Zelle A1
If CheckBox1.Value = True Then
Cells(1, 1).Interior.ColorIndex = 3

Else
Cells(1, 1).Interior.ColorIndex = 0
End If
End Sub

Gruß und danke schonmal
Rolf

3

mit dem nachfolgenden Code kann ich mit einer Checkbox aus der
Steuerelemente-Toolbox die Zelle A1 bei gesetztem Häkchen rot
einfärben.

Was muß hinzufügen, um zusätzlich die Farbe der Schrift
zu verändern? (weiss z.B.)

Hallo Rolf,

probier mal diese Schreibweise mit IIf:

Private Sub CheckBox1_Click()
'Beispiel für Zelle A1
Cells(1, 1).Interior.ColorIndex = IIf(CheckBox1.Value =
True,3,0)
End Sub

Cells(1, 1).Interior.ColorIndex = IIf(CheckBox1.Value,3,0)
geht auch.

Die Schriffarbe legt man damit fest:
Cells(1, 1).font.ColorIndex =

Hallo Reinhard,

yep, das haut hin.
danke für die schnelle Hilfe.
…).FONT.ColorIndex … - klar…
ärgert mich immer, dass ich da nicht
selbst drauf komme.

Danke nochmal

Gruß
Rolf

Option Explicit

Private Sub CheckBox1_Click()
'Beispiel für Zelle A1
If CheckBox1.Value = True Then
Cells(1, 1).Interior.ColorIndex = 3

Else
Cells(1, 1).Interior.ColorIndex = 0
End If
End Sub

Gruß und danke schonmal
Rolf