Excelarete

VBAProject

Forms

Bereiche

Info: Click the code lines to check out for further explanations

  Sub BereicheZusammenfassen()

      Dim Bereiche As Variant

      Dim Zusammen As Range

      Dim i As Long

      ' Bereiche als Array definieren

      Bereiche = Array("A1:A5", "C1:C5", "A10:A15", "C10:C15")

      With Tabelle1

          ' Alle Bereiche in einer Schleife zuweisen

          For i = LBound(Bereiche) To UBound(Bereiche)

              If Zusammen Is Nothing Then

                  Set Zusammen = .Range(Bereiche(i))

              Else

                  Set Zusammen = Union(Zusammen, .Range(Bereiche(i)))

              End If

          Next i

      End With

      ' Markierte Zellen einfärben

      If Not Zusammen Is Nothing Then Zusammen.Interior.ColorIndex = 4

  End Sub