Was genau willst du den erreichen? Alles was ich sehe ist, dass du in Spalte BE einen Bereich ermittelst.
.Range(.Cells(3, "BE"), .Cells(.Rows.Count, "BE").End(xlUp))
-
Und nun?
-
Wozu eigentlich das Array?
Es gibt immer verschiedene Wege etwas zu lösen.
z.B.
Dim i As Long
With Worksheets("Tabelle1")
For i = 3 To .Cells(.Rows.Count, "BE").End(xlUp).Row
Debug.Print .Cells(i, "BE").Address, .Cells(i, "BF").Address
Next
End With
oder
Dim rngData As Excel.Range
Dim rngCell As Excel.Range
With Worksheets("Tabelle1")
Set rngData = .Range("BE3", .Cells(.Rows.Count, "BE").End(xlUp))
If rngData.Row < 3 Then Exit Sub
For Each rngCell In rngData.Cells
Debug.Print rngCell.Address, rngCell.Offset(0, 1).Address
Next
End With
oder wieder ganz anders.
Beides jedoch macht ergibt das selbe Ergebnis:
$BE$3 $BF$3
$BE$4 $BF$4
$BE$5 $BF$5
usw.
|