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