Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Markieren von festgelegten Bereichen

Gruppe

Markieren

Problem

Über die Markieren-Schaltfläche sollen die im Data-Blatt festgelegten Bereiche in den jeweilgen Spalten markiert oder demarkiert werden.

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

StandardModule: Modul1

Sub Markieren()
   Dim iCol As Integer, iRow As Integer
   Dim rng As Range
   iCol = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Column
   iRow = 1
   With Worksheets("Data").Columns(iCol)
      Do Until IsEmpty(.Cells(iRow))
         With Range(.Cells(iRow).Value)
            If .Interior.ColorIndex = 15 Then
               .Interior.ColorIndex = xlColorIndexNone
               .ClearContents
            Else
               .Interior.ColorIndex = 15
               .Value = Worksheets("Grundlagen").Range("B4").Value
            End If
         End With
         iRow = iRow + 1
      Loop
   End With
End Sub