Back- Fore Color bei vielen Checkboxen verändern
01.03.2019 10:14:08
Gerd
----------------------------------
Private Sub CheckBox401ÄD_Click()
1 Dim lngRed As Long
2 Dim lngBla As Long
3 Dim lngBack As Long
4 Dim lngWhi As Long
5 lngRed = RGB(255, 0, 0)
6 lngBla = RGB(0, 0, 0)
7 lngBack = RGB(212, 208, 200)
8 lngWhi = RGB(255, 255, 255)
9 If CheckBox401ÄD.Value = True Then
10 CheckBox401ÄD.ForeColor = lngBla
11 CheckBox401ÄD.BackColor = lngBack
12 Sheets("Tabelle4").Range("P26").Value = 2
13 Else
14 CheckBox401ÄD.ForeColor = lngRed
15 CheckBox401ÄD.BackColor = lngWhi
16 CheckBox401ÄD.Value = False
17 Sheets("Tabelle4").Range("P26").Value = 5
18 End If
19 End Sub
-----------------------------
Nun möchte ich wissen, wie ich die ersten 8 Zeilen so "Auslagere", das ich in das Macro für die Checkboxen nur noch die Zellen 10+11 sowie 14+15 einfügen muss.
Vielen Dank schon mal für eure Hilfe
MfG
Gerd