Ich komme leider an einem Punkt nicht weiter. Vielleicht könnte mir jemand dabei helfen.
Habe die Daten mit Hilfe von Array ins Datenfeld eingelesen und möchte sie nach Spalte 4 sortieren (dort stehen die E-Mail-Adressen, die ab Zeile D10 befüllt sind...
Hier ist erstmal mein Code zum Einlesen der Daten:
Public Const Column_E_Mail = 4
Public Const Column_KAPIS = 5
Public Const Column_Company = 6
Public Const Column_Comment = 7
Public Const Column_Reminder = 8
Public Const Column_Country = 9
Public Arr() As Variant
Sub Array_Einlesen()
Dim Temp As Variant
Sheets("Tabelle1").Select
i = 10: j = 4
Do Until Sheets("Tabelle1").Cells(i, 4) = ""
i = i + 1
Loop
Do Until Sheets("Tabelle1").Cells(10, j) = ""
j = j + 1
Loop
ReDim Arr(i - 2, j - 1)
i = 10: j = 4
Do Until Sheets("Tabelle1").Cells(i, 4) = ""
j = 4
Do Until Sheets("Tabelle1").Cells(10, j) = ""
Arr(i - 1, j) = Sheets("Tabelle1").Cells(i, j)
j = j + 1
Loop
i = i + 1
Loop
MsgBox (i - 10) & " Daten ins Array eingelesen!"
End Sub
Ich wäre für jeden Tipp sehr dankbar, wie ich noch ein Sortieralgorythmus hier einbauen könnte.
Vielen Dank im Voraus!
Gruß,
Julia