Excel: Zellen & Range

Gepostet am: Aug 21, 2013 1:32:55 PM

Es gibt zwei Möglichkeiten alle Zellen einer Range zu durchlaufen.

Möglichkeit 1:

Moeglichkeit 1-1

For i = 1 To Range_Source.Rows.Count

    For j = 1 To Range_Source.Columns.Count

        Set currCell = Range_Source.Cells(i, j)

        Debug.Print currCell.Address

    Next

Next

Moeglichkeit 1-2

bzw. nach der selben Methode aber andere Reihenfolge

For i = 1 To Range_Source.Columns.Count

    For j = 1 To Range_Source.Rows.Count

        Set currCell = Range_Source.Cells(j, i)

        Debug.Print currCell.Address

    Next

Next

Moeglichkeit 1-3

oder auch in die andere Richtung

For i = Range_Source.Rows.Count To 1 Step -1

    For j = Range_Source.Columns.Count To 1 Step -1

        Set currCell = Range_Source.Cells(i, j)

        Debug.Print currCell.Address

    Next

Next

Moeglichkeit 1-4

For i = Range_Source.Columns.Count To 1 Step -1

    For j = Range_Source.Rows.Count To 1 Step -1

        Set currCell = Range_Source.Cells(j, i)

        Debug.Print currCell.Address

    Next

Next

Möglichkeit 2:

For Each currCell In Range_Source

        Debug.Print currCell.Address

Next