Zellenformatieren über UserForm-Checkboxen
18.02.2016 13:29:06
Ulf
der Task, den mein Code leisten soll, steht im Betreff.
Hier der Code, der beim Compiler zwar keinen Fehler hervorruft, aber auch nicht die vorher markierten Zellen einfärbt:
Sub variantSpec_Click()
Dim auswahl As Range
For Each auswahl In Selection
If variantSpec.CheckBox1.Value = True Then
With auswahl.Font
.Color = vbGreen
.TintAndShade = 0
End With
With auswahl.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next auswahl
End Sub
Anzeige