ich möchte per VBA eine Tabelle (tbl_Lager) per AutoFilter aufsteigend sortieren. Sortiert werden soll nach Spalte B.
Ich nutze den AutoFilter an verschiedenen Stellen, bekomme aber oft die gleiche Fehlermeldung (Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt). Folgender Code funktioniert an anderer Stelle einwandfrei, hier dann auf einmal nicht mehr. Wie müsste ich den Code anpassen, damit er funktioniert? Könnt ihr mir weiterhelfen?
Sub Bestandstabelle_aktualisieren()
tbl_Lager.Select
tbl_Lager.Columns("A:H").AutoFilter
tbl_Lager.AutoFilter.Sort.SortFields.Clear
tbl_Lager.AutoFilter.Sort.SortFields.Add Key:=Range("B1", "B" & tbl_Lager.UsedRange.Rows.Count), _
_
_
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With tbl_Lager.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Dieser hier (andere Tabelle, anderes Modul) funktioniert ebenfalls nicht:
tbl_Vorschau.Columns("A:H").AutoFilter
tbl_Vorschau.AutoFilter.Sort.SortFields.Clear
tbl_Vorschau.AutoFilter.Sort.SortFields.Add Key:=Range("C1", "C" & tbl_Vorschau.UsedRange.Rows. _
Count), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With tbl_Vorschau.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Viele GrüßeLisa