For Each Problem
04.05.2021 09:53:25
Thomas
ich habe ein Problem mit der For Each Loop.
Mit der nachfolgenden Schleife hätte ich erwartet, dass nacheinander Zelle für Zelle selektiert wird. Stattdessen wird aber immer immer der komplette Bereich selektiert:
Option Explicit
Sub LoopCells()
Dim c As Range
With ThisWorkbook.Sheets(1).Range("A1")
With Range(.Offset(0), .End(xlToRight)).Resize(2)
.Select ' the complete range will be selected
For Each c In .Cells
.Select ' expected: select cell by cell
Next
End With
End With
End Sub
Wo könnte das Problem liegen?Es handelt sich hier nur ein Beispiel. Mir ist bewusst, dass ich den Bereich zum Beispiel viel einfacher mit Range("A1").Currentregion oder was auch immer auswählen kann. Es ist halt nur ein Beispiel, herausgegriffen aus einem größeren Makro. Deshalb die etwas kompliziertere Art der Definition des Ranges.
Vielen Dank!
Gruß,
Thomas