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:
Kann mir da vielleicht jemand einen Tipp geben?
Grüße, mercany
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:
Code:
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
Zuletzt bearbeitet: