VBA: Spalte sortieren

Hallo zusammen,
das kann doch nicht so schwer sein...
Ich habe zig Codes im Netz gefunden, die aber alle nicht funktionieren oder nicht das machen, was ich brauche, der Makroeditor bringt mich auch nicht weiter wegen Fehlermeldung...
Ich habe einen Command Button eingefügt und will eine komplette Tabelle in Spalte F ab F4 aufsteigend sortieren lassen:

Private Sub CommandButton21_Click()
Range("A4").Select
Range(Selection, Selection.End(xlLastCell)).Select
Selection.Sort Key1:=Range("F4"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'ActiveWorkbook.Worksheets("Übersicht_Ertrag").AutoFilter.Sort.SortFields.Clear
'    ActiveWorkbook.Worksheets("Übersicht_Ertrag").AutoFilter.Sort.SortFields.Add _
'        Key:=Range("F4"), SortOn:=xlSortOnValues, Order:=xlDescending, _
'        DataOption:=xlSortTextAsNumbers
'    With ActiveWorkbook.Worksheets("Übersicht_Ertrag").AutoFilter.Sort
'        .Header = xlYes
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
'        .Apply
'    End With
End Sub

Der auskommentierte Block stammt aus dem Makroeditor, der obere Teil aus einem anderen Thread, funktioniert aber auch nicht.
Ich hab auch schon andere Codeschnipsel gefunden und probiert und bisher noch keine funktionierende Lösung gefunden.
Bitte bitte bitte helft mir bevor ich aus dem Fenster springe.
Danke vorab
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton21_Click() ActiveSheet.Rows(4).Resize(ActiveSheet.UsedRange.Rows.Count).Sort Key1:=Range("F4"), _ Order1:=xlAscending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

Private Sub CommandButton21_Click() Worksheets("Übersicht_Ertrag").Activate With ActiveSheets .Rows(4).Resize(ActiveSheet.UsedRange.Rows.Count).Sort Key1:=Range("F4"), _ Order1:=xlAscending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Worksheets("Übersicht_NGV").Activate With ActiveSheets .Rows(4).Resize(ActiveSheet.UsedRange.Rows.Count).Sort Key1:=Range("F4"), _ Order1:=xlAscending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Worksheets("Übersicht_Ertrag").Activate End Sub

Private Sub CommandButton21_Click() Call Sortierung("Übersicht_Ertrag") Call Sortierung("Übersicht_NGV") End Sub Sub Sortierung(strBlattname As String) With Worksheets(strBlattname) .Rows(4).Resize(.UsedRange.Rows.Count).Sort Key1:=.Range("F4"), _ Order1:=xlAscending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Spalte sortieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread