Array auslesen - mit Komma getrennt
30.09.2003 16:11:37
Christoph
meine Frage ist die folgende:
kann man alle Einträge eines Array in eine Zelle (oder MSgBox)schreiben und die einzelnen Einträge durch Kommata trennen? Das folgende Bsp gibt die Ergebnisse von SpalteA ab Zeile3 einzeln in je einer Msgbox aus. Ich möchte aber alle Werte
in einer gemeinsamen Msgbox haben.
kann mir jemand helfen
vielen Dank schon vorab
Christoph
Sub Array_Test()
Dim arr() As Variant
Dim i As Long
Dim ZeilenAnz As Long
ZeilenAnz = Cells(Rows.Count, 1).End(xlUp).Row
ReDim arr(ZeilenAnz - 3)
For i = 3 To ZeilenAnz
arr(i - 3) = Cells(i, 1)
Next i
For i = 1 To UBound(arr)
MsgBox arr(i)
Next i
End Sub
Anzeige