Hallo G.,
Du kannst es doch so machen....
Hierbei kommt ein Variant-Typ zum Tragen, dessen kleinster Index1 ist und nicht wie bei den andren Arrays von Haus aus 0.
Die WITH-Klausel habe ich hier extra mal eingebaut, falls Du nicht das aktive Blatt, sondern sonst eins nehmen wolltest, kannst Du das dort einmalig angeben. Die führenden Punkte beziehen sich dann darauf.
Code:
1
2
3
4
5
6
7
8
9 |
|
Sub Test()
Dim vArr As Variant
With ActiveSheet
vArr = .Range("A2:F" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With
Debug.Print vArr(1, 1), vArr(10, 4)
End Sub
|
_________
viele Grüße
Karl-Heinz
|