Hallo VBA Profis,
habe eine Bitte.
Würde mich sehr freuen wenn mir jemand helfen könnte.
Ich möchte gerne ein Array sortieren und weiß nicht welches ich anwenden kann.
Habe zwar eine gute seite gefunden in dem mehere Beispiele enthalten sind um array zu sortieren aber ich weiß nicht wie ich es umstellen soll das es für mich funktioniert.
Hier meine Makros bis jetzt
'______________________ Mit diesem Makro fülle ich das erste array
With obj_datenbank.Worksheets(1)
x1 = .Cells(.Rows.Count, 2).End(xlUp).Row
'Letzte Spalte mit Daten ermitteln
y1 = .Cells(1, .Columns.Count).End(xlToLeft).Column
'For y1 = .Columns.Count To 1 Step -1
' If Application.WorksheetFunction.CountA(.Columns(y1)) > 0 Then Exit For
'Next y1
'Array füllen über Spalten in Datenbank mit Daten
arrTmp1 = .Range(.Cells(3, 2), .Cells(x1, y1))
arrTmp1 = WorksheetFunction.Transpose(arrTmp1)
End With
'______________________ Mit diesem Makro das zweite.Das hat dann mehere Dimensionen.(Dises möchte ich sortieren nach Spalte A .)
For i = 1 To x1 - 2
If UCase(Left(arrTmp1(1, i), 1)) = UCase(strSuch) Then
n = n + 1
'arrTmp2(n) = UCase(arrTmp1(welche_suche, i))
arrTmp2(n, 0) = UCase(arrTmp1(welche_suche, i))
arrTmp2(n, 1) = UCase(arrTmp1(106, i))
arrTmp2(n, 2) = UCase(arrTmp1(108, i))
End If
Next
Bis jetzt habe ich es mit Quick Sort versucht aber das geht nur bei einer dimension.
Würde mich sehr über Hilfe freuen.
Danke und schönen Tag an alle.