Option Explicit
 
Private Sub CommandButton1_Click()
    Dim iSpalte% ' Integer
    Dim lx&, lZeile& ' Long
    Dim sInhalt$() ' String-Array
    ReDim sInhalt(0)
    ' für die angegebene Spalte (hier Spalte C)
    iSpalte = 3
    ' ab der angegebenen Zeile
    lZeile = 2
    While Cells(lZeile, iSpalte).Value <> ""
        ' Zellinhalt in Array aufnehmen
        sInhalt(UBound(sInhalt)) = Cells(lZeile, iSpalte).Value
        ' Array dynamisch erweitern
        ReDim Preserve sInhalt(UBound(sInhalt) + 1)
        ' Zeile um 1 erhöhen
        lZeile = lZeile + 1
    Wend
    ' wenn dem Array einträge hinzugefügt wurden
    If UBound(sInhalt) > 0 Then
        ' letztes leeres Feld des Arrays wieder löschen
        ReDim Preserve sInhalt(UBound(sInhalt) - 1)
    End If
    ' ______________________________________
    ' Abfrage des Arrays
    ' Anzahl der Datenfelder
    MsgBox "Anzahl der Datenfelder = " & UBound(sInhalt) + 1
    For lx = 0 To UBound(sInhalt)
        ' Inhalt der Datenfelder wiedergeben
        Debug.Print sInhalt(lx)
    Next lx
End Sub