Fehler im Autofilter ?

Sub Heim() 'ActiveSheet.Unprotect Application.ScreenUpdating = False Range("A29:D64").Select Selection.AutoFilter Field:=4, Criteria1:="Heim" Range("A3").Select ActiveWindow.SmallScroll Down:=6 Range("A29:D64").Select ActiveWindow.SmallScroll Down:=-12 Selection.Sort Key1:=Range("C29"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal 'ActiveSheet.Protect Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
wenn du den Autorfilter auf eine Tabelle anwedest, dann ist die erste Zeile die Überschrift (in deinem fall Zeile 29) und bleibt immer stehen. (das ist die Zeile, in der die Dreieckle drin sind)
Excel geht halt davon aus, daß alle Tabellen in der 1. Zeile eine Spaltenüberschrift haben, die beim Filtern immer stehen bleibt und auch nicht mitsortiert wird (beim Sortieren kann man es über Option HEADER beeinflussen, Beim autofilter bleibt die Überschriftenspalte immer stehen, sonst wären die Häkchen ja weg)
btw wenn du in einer gefilterten Liste sortierts, musst du aufpassen, es könnte sein daß nur der sichtbare Teil sortiert wird.
also lieber erst sortieren und dann filtern.
Gruß, Daniel

Sub Heim() 'ActiveSheet.Unprotect Application.ScreenUpdating = False ActiveWindow.SmallScroll Down:=0 Selection.Sort Key1:=Range("C29"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A28:D64").Select Selection.AutoFilter Field:=4, Criteria1:="Heim" Range("A3").Select 'ActiveSheet.Protect Application.ScreenUpdating = True End Sub

Hi
kann nicht funktioniern, da Excel versucht, den selektierten Bereich zu sortieren, aber dieser nicht definiert ist. Verzichte lieber auf Select und arbeite so:


Sub Heim()
'ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=0
Range("A28").Sort Key1:=Range("C29"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A28:D64").AutoFilter Field:=4, Criteria1:="Heim"
Range("A3").Select
'ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub

Bei .SORT und AUTOFILTER reicht es normalerweise, die Linke obere Ecke der Tablle anzugeben.
wenn nur eine Zelle angegeben ist, versucht Excel automatisch den Bereich auf die ganze Tabelle zu erweitern (dh. der Bereich wird vergrössert, bis er vollständig von Leerzellen oder Rand umschlossen ist)
wird dagegen ein mehrzellige Zellbereich angegeben, so wird genau dieser Sortiert oder gefiltert.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread