Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Markieren von Auswahlbereichen

Gruppe

Markieren

Problem

Über die Markieren-Schaltfläche sollen Einzel- oder Mehrfachauswahlbereiche in den jeweilgen Spalten markiert oder demarkiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn Schaltflächen zu.

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