Office: In fixierter Liste mit Makro nach oben scrollen

Hallo zusammen!
Ausgangssituation:
Ich habe in Excel 2007 eine kleine Datenbank erstellt. Auf dem ersten Blatt ist eine Art Menü in dem ich Autofilter für die eigentliche Datenbank setzen kann und noch mehr. Wenn die Filter gesetzt sind und alle Voreinstellungen ausgewählt wurden kann man mit einem Button in das Tabellenblatt mit der Datenbank springen.
Das Tabellenblatt mit der Datenbank ist in der vierten Zeile (mit den Spaltenüberschriften)fixiert. Durch die Filter werden unrelevante Zeilen ausgeblendet.
Das Problem:
Ich möchte, dass beim Öffnen dieses Tabellenblattes immer der erste gefilterte Eintrag angezeigt wird, sprich das Fenster einfach nach oben gescrollt wird. Das Ganze soll beim Betätigen des oben genannten Buttons geschehen.

Mit welchem VBA Code kann man das lösen? Habe nichts passendes über die Suchfunktion gefunden und bin über jede Hilfe dankbar.

Gruß, Taxischeria

:)

 

Hi,

Range("A1:A40").SpecialCells(xlCellTypeVisible).Areas(2).Cells(1).Select

 

Danke für die schnelle Antwort!
Der Code war mir bisher unbekannt. Habe deshalb noch Schwierigkeiten ihn anzupassen...
Spalte A ist bei mir leer, deshalb Range("B1:B1000") aber was bewirken die Parameter bei Areas und Cells.
Bekomme nämlich Kompilierungsfehler, wenn ich die so lasse.

 

Hab irgendwie das Gefühl, das könnte mit einem "ActiveWindow.SmallScroll Down:=-22" Befehl gehen, jedoch soll nicht um 22 oder "X" Zeilen gescrollt werden, sondern ganz nach oben...

 

Hi,

AutoFilter.Range ist der gesamte Filterbereich SpecialCells(xlCellTypeVisible) sind die darin enthaltenen sichtbaren Zellen darin wiederum ist Areas(1) die Überschriftenzeile und Areas(2) die erste gefilterte Zeile Cells(1) ist die erste sichtbare Zelle in der Areas.

Eine andere Möglichkeit ohne Select an irgendeine Position zu springen wäre: Application.Goto Reference:=Range("A1"), Scroll:=True

 

Ahh, jetzt passt´s!
Vielen Dank für die Hilfe

 

Hallo,
ich würde das Thema gerne aufgreifen!
Ich habe eine Tabelle mit 26 Spalten, wie kann ich es erreichen, dass wenn ich in einer der Spalten die Autofilter-Funktion nutze, automatisch die erste der gefilterten Zeilen sichtbar und angewählt ist?
Wenn ich meine Tabelle öffne ist immer die letzte Zeile angewählt in der in Spalte F etwas steht, wenn ich nun in Spalte A über die Autofilterfunktion nach der 35 suche (in Spalte A stehen Zahlen von 1 bis 6000), werden mir alle Zeilen mit 35 drin angezeigt (was eine ganze Menge ist), aber die letzte Zeile ist noch aktiviert.
Wenn ich aber jetzt zu der Zeile mit der 35 in Spalte A möchte, muss ich erst ganz nach oben scrollen, deshalb möchte ich das die Tabelle nach dem Filtern automatisch nach oben scrollt, und die erste Zeile unter der Überschrift aktiviert ist.
Es wäre super wenn ihr mir da weiter helfen könnt, da ich was VBA angeht noch nicht so gut bin.
Vielen Dank im Voraus!
Gruß Timo