Dim CBU(101)
Dim n As Variant
For n = 1 To 101
CBU(n) = [Q5] ' --- die Zelle soll aber dynamisch angesprochen werden, also erst Zelle Q5, dann R5, dann S5 usw.
Next n
wie muss ich den Code anpassen?
= Cells(5, 16 + n)
Sub Kapaberechnungen()
Dim CBU(101)
Dim n As Variant
For n = 1 To 3
CBU(n) = Cells(5, 16 + n)
Next n
MsgBox (CBU1) --- mueste einen Wert anzeigen, Box sagt aber leer
MsgBox (CBU2) --- mueste einen Wert anzeigen, Box sagt aber leer
MsgBox (CBU3) --- mueste einen Wert anzeigen, Box sagt aber leer
End Sub
Die Zuweisung des Wertes in die Variablen geschieht nicht, warum nicht?
MsgBox CBU(1)
MsgBox CBU(2)
MsgBox CBU(3)