Gruppe
Allgemein
Problem
Über die Markieren-Schaltfläche sollen Einzel- oder Mehrfachauswahlbereiche in den jeweilgen Spalten markiert oder demarkiert werden.
StandardModule: Modul1
Sub Markieren()
Dim iCol As Integer
Dim rng As Range
iCol = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
For Each rng In Selection.Areas
If rng.Column = iCol Then
With rng.Interior
If .ColorIndex = 15 Then
.ColorIndex = xlColorIndexNone
Else
.ColorIndex = 15
End If
End With
End If
Next rng
End Sub