habe ein funktionierendes Makro zum Filtern von Datum heute mit absteigendenr Sortierung.
Code:
'Sub filtern_click()
'Dim Datum As Date
'On Error Resume Next
' With ActiveSheet
' If .FilterMode Then
' .ShowAllData
' End If
' End With
'Datum = Format(Now(), "DD.MM.YYYY")
'Range("A2").AutoFilter Field:=9, Criteria1:=" 'End Sub möchte aber nicht mit Autofilter arbeiten sondern in einer Userform mit Listbox und Optionsbutton mein Versuch ist kläglich gescheitert
Code:
Private Sub opt_sort4_Click() 'Datum aktuell
Tabelle1.Cells.Sort Key1:=Tabelle1.Range("I2"), Criteria1:="
könnte mir bitte jemand behilflich sein.Vielen Dank
Richard