Sub main()
Dim b As Integer
Dim a(15) As Integer
Dim msg As String
For b = 1 To 15
a(b) = 66
msg = msg & "a(" & Str$(b) & ")= " & Str$(a(b)) & vbNewLine
Next
MsgBox msg
End Sub
[Edit]
Dazu muss man noch sagen, dass Dim a(15) nicht 15 sondern 16 Elemente definiert, da ohne weitere Angabe immer bei 0 angefangen wird zu zählen, also a(0) ... a(15) = 16 Elemente. Bei dir bleibt jetzt a(0) ungenutzt. Schadet in diesem Fall nicht, wird aber üblicherweise nicht so gemacht.
Ach ja, noch eins: a4 ist nicht gleich a(4), das sind zwei komplett unterschiedliche Variablen.
Beim Programmieren gibt's hier keine Fuzzy-Logik. D.h. der VBA-Interpreter liest nicht deine Gedanken sondern hält sich strikt an das, was du schreibst.
[/Edit]
Schöne Feiertage und einen guten Rutsch!
------------------
Klaus
www.al-ko.com | mein Gästebuch
[Diese Nachricht wurde von KMassler am 18. Dez. 2015 editiert.]
[Diese Nachricht wurde von KMassler am 18. Dez. 2015 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP