ich habe eine Frage bezgl. des Auto-Filters.
Ich nutze eine Excel immer als "Sammelplatz" um CSV-Dateien einzuspielen,
das Problem ist das der Name der CSV-Datei immer ein anderer ist.
Wie kann ich folgendes Makro so umschreiben, damit es generell das vorhandene Arbeitsblatt unabhängig vom Namen nach u.s. Kriterien filtert?
Sub Filtern()
' Filtern Makro
Columns("F:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:D").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
Range("A3").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("DB.csv").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DB.csv").AutoFilter.Sort.SortFields.Add2 Key:= _
Range("A1:A4910"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("DB.csv").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Angezeigt wird immer der "Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt".Habe nur begrenzte VBA-Kenntnisse...
Vielen Dank im Voraus für eure Hilfe!