✔ Daten aus Tabelle in Array übertragen

[mercany]

Daten aus Excel-Tabellenspalte in Array übertragen

Guten Abend,

ich würde gerne Daten aus einer Spalte meiner Tabelle in ein Array übertragen.
Diese sollen dann anschließend in diesem Array sortiert und ausgegeben werden können.

Die Sortierung findet mittels dem Bubble-Sort-Algorithmus statt.


Folgenden Code habe ich bis jetzt:

Private Sub cmd_häufigkeit_Click()


Dim Feld
Feld = Worksheets("Ziehungen").Range("B3:B51")

' # Bubble-Sort-Algorithmus (der müsste so richtig sein, nur evntl. nicht richtig ans Array angepasst) #

Dim i As Integer, k As Integer
Dim zwischenablage As Integer

For k = 1 To 48
        For i = 1 To 48
            If Feld(i + 1) > Feld(i) Then
                zwischenablage = Feld(i)
                Feld(i) = Feld(i + 1)
                Feld(i + 1) = zwischenablage
            End If
        Next i
Next k

' # Bubble-Sort-Algorithmus (der müsste so richtig sein, nur evntl. nicht richtig ans Array angepasst) #
        
For i = 1 To 49
    Worksheets("Ziehungen").Cells(i + 1, 2).Value = Feld(i)
Next i


End Sub

Kann mir da vielleicht jemand einen Tipp geben?



Grüße, mercany