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)
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen