Bereich einer Tabelle nach Spalte mit markierter Zelle sortieren
09.01.2020 09:55:23
Maik
von VBA habe ich so gut wie keine Ahnung und war auch noch nie in diesem Forum aktiv, bräuchte aber für eine Tabelle eine VBA Funktion, welche einen bestimmten Bereich einer Tabelle nach immer anderen Spalten sortiert. Hierfür möchte ich gerne einen Code, der die zu wählende Spalte nach einer markierten Zelle in dieser Spalte auswählt. Gestartet wird der Vorgang über einen Button.
Aufgrund meiner schlechten VBA Kenntnisse, konnte ich im Archiv leider auch keinen Beitrag finden, welcher mir weiterhilft.
Ich habe meinen VBA - Code mittels "Makro aufzeichnen" erstellt
Sub Sortieren()
' Sortieren Makro
Range("H5:LE29").Select
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add2 Key:=Range( _
"AQ5:AQ29"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Übersicht").Sort
.SetRange Range("H5:LE29")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
wenn ich das richtig sehe, muss hier nur die "Range("AQ5:AQ29") angepasst werden. Vielen Dank im vorraus für jede Hilfe.