Problem mit Arrays
02.11.2017 10:58:08
Dennis
ich habe mal wieder ein Problem:
Ich habe mir ein Array gebastelt und versuche nun, den mit dem Makrorecorder aufgenommenen Befehl, in dem ein Array vorkommt, durch mein Array zu ersetzen, um es dynamisch zu gestalten.
Ihr seht unten den auskommentierten Befehl "ActiveSheet.Shapes.Range(Array("1","2",)).Select.
Dieser Befehl funktioniert. Ich möchte ihn aber durch den Befehl darüber ersetzen, indem ich mein Array y nutze. Wenn ich beide Arrays anzeigen lasse, sehen sie absolut identisch aus. Die Fehlermeldung sagt jedoch: Laufzeitfehler '1004': Der Index in der angegebenen Sammlung ist außerhalb des zulässigen Bereichs.
Hier der Code:
Dim y As Variant
x = ActiveSheet.ChartObjects.Count
y = Array(0)
ReDim Preserve y(x - 1)
For i = 0 To x - 1
y(i) = i + 1
Next
a = Array("1", "2", "3", "4", "5")
MsgBox Join(y, vbLf)
MsgBox Join(a, vbLf)
ActiveSheet.Shapes.Range(y).Select
'ActiveSheet.Shapes.Range(Array("1", "2", "3", "4", "5")).Select
Selection.Copy
Vielen Dank schon einmal für eure Hilfe.
LG,
Dennis