Kunsmann Individual-Software - Code Beispiele - Excel VBA

Kontakt Anfahrtplan Datenschutzerklärung Impressum Englisch

Leistungen
Kundenservice
Software
Kunden

Suchen:

www.kunsmann.de

Das ganze Web

Service: Excel-VBA: Mehrere Zellbereiche behandeln

Will man in Excel mit mehreren unabhängigen Bereichen arbeiten, kann man das problemlos mit der Maus erledigen. Etwa so :

Aber wie arbeitet man mit unabhängigen Bereichen aus VBA heraus?

    Dim rg1 As Range
    Set rg1 = Range(Cells(1, 1), Cells(2, 2))

    Dim rg2 As Range
    Set rg2 = Range(Cells(3, 3), Cells(4, 5))

    Dim rg3 As Range
    Set rg3 = Range(Cells(6, 6), Cells(7, 8))

    Dim rgMerged As Range
    Set rgMerged = Union(rg1, rg2, rg3)

    Dim cl As Range
    For Each cl In rgMerged
        cl = cl.Row & cl.Column
    Next

Anmerkung:

Union nimmt beliebig viele Parameter vom Type 'Range' an. Deswegen ist die Anzahl der Bereiche, die man auf diese Weise zusammenfassen kann (im Prinzip) unbegrenzt.