Spezielles Sortieren über VBA
04.10.2022 07:12:23
Jem
ich hatte schonmal eine Anfrage gestartet hier im Forum, kann jedoch auf den alten Thread nicht antworten (Cookie-Fehler).
Also zu meinem Problem:
Eine Tabelle mit 5 Spalten soll mit Werten aus der Spalte A sortiert werden, absteigend.
Jedoch sollen z.B. 3 -Stellige Zellen nach oben sortiert werden und 4 Stellige Zellen darunter.
Wichtig ist auch das es dynamisch funktionieren muss. Also die Anzahl der Reihen kann variieren.
Beispiel:
Spalte A | Spalte B | Spalte C | Spalte D | Spalte E
1-005 | 06:00 Uhr | 14:00 Uhr | Adresse1 | Adresse 2
001 | 12:00 Uhr | 20:00 Uhr | Adresse1 | Adresse 2
101 | 09:00 Uhr | 15:00 Uhr | Adresse1 | Adresse 2
103 | 09:00 Uhr | 15:00 Uhr | Adresse1 | Adresse 2
003 | 12:00 Uhr | 20:00 Uhr | Adresse1 | Adresse 2
1-006 | 06:00 Uhr | 14:00 Uhr | Adresse1 | Adresse 2
Ich habe einen Ansatz aus dem ersten Thread, dieser ist leider nicht dynamisch und sortiert nur die erste Spalte (A)
Option Explicit
Option Base 1
Sub sort()
Dim arr3(9), arrX(9), x&, a&, b&
x = 1: a = 1: b = 1
For x = 1 To 9
If Len(Cells(x, 1)) = 3 Then
arr3(a) = Cells(x, 1)
a = a + 1
End If
If Len(Cells(x, 1)) > 3 Then
arrX(b) = Cells(x, 1)
b = b + 1
End If
Next x
Range("A1").Resize(a - 1) = WorksheetFunction.Transpose(arr3)
Cells(a, 1).Resize(b - 1) = WorksheetFunction.Transpose(arrX)
End Sub