Office: (Office 2010) Nach dem Autofilter erste Zeile anwählen.

Hallo Leute!
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

:)

 

Hi Timo,

normalerweise bleibt beim (manuellen) Filtern die Zelle mit der Filterauswahl aktiv. Was Du beim VBA Filtern anstellst, kann hier keiner sehen. Das Einfachste wird wohl sein, wenn Du cells(1,1).select nimmst. Damit bist Du immer oben. Ansonsten müsstetst Du noch prüfen, ob der sichtbare Bereich A1, A24:A33.... oder A1:A12, Axxx usw... naja, eben Du müsstest schon ordentlich ermitteln welche die erste Zeile des sichtbaren Bereiches ist...

 

Hi,

meinst du so etwas:

Code:

 

Hallo Beverly,
das sieht schon sehr gut aus, aber wie bekomme ich das hin, dass das automatisch funktioniert, wenn ich über das Dropdown-Menü der Autofilterfunktion manuell einen Wert suche?
Wo und wie muss ich das in den VBA-Editor einfügen?
Kann man das außerdem so einstellen, dass immer die Spalte B in der obersten Filterzeile angewählt wird?

Gruß Timo

 

Hi Timo,

das Ändern des Autofilters löst kein Ereignis aus, welches man auswerten und somit den Code automatisch starten könnte. Du könntest aber z.B. das Doppelklick-Ereignis der Filterzelle verwenden.

Es stellt sich mir aber folgende Frage: wenn du den Autofilter in Spalte A betätigst, bist du doch bereits in der Filterzeile - wozu brauchst du da noch einen Code, um in die 1. gefilterte Zeile zu gelangen? Die ist doch unmittelbar unterhalb der Filterzeile - da sollte es doch ein Leichtes sein, den Cursor in die nächste sichtbare Zeile zu setzen.

 

Hallo Beverly,

wenn ich meine Datei öffne ist die Letzte Zeile in der Daten stehen angewählt, und wenn ich jetzt in Spalte A z.B. nach der Nummer 35 filtern lasse, werden mir die Zeilen angezeigt, bei der eine 35 vorkommt, was bei fast 4000 Datensätzen so 252 Stück sind.
Dann wird mir immernoch die letzte Zeile von unten angezeigt, oder die gefilterten Zeilen sind oberhalb der angezeigten Zeilen.
Wenn ich nun aber die Zeile mit der 35 in Spalte A haben will, und nicht die 3535 oder so, dann muss ich erst ganz nach oben scrollen.
Bei manchen suchen (z.B. 350) werden die gefilterten Zeilen nicht angezeigt, sondern erst wenn ich nach oben scrolle.
Das kann vielleicht damit zusammenhängen, das eine VBA-Code der vor beim schließen läuft immer die letzte Zeile anwählt, wo in Zeile F ein Eintrag vorhanden ist.

Gruß Timo *depressed

 

Hi Timo,

dann sag doch gleich, dass du einen Code in der Mappe hast, der das Problem auslöst. Wozu muss beim Schließen die letzte Zeile in Spalte F ausgewählt werden, wenn beim Öffnen eine andere aktiv sein soll????

 

Ich wollte mit dem Code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Letzte_In_F As Long

With ActiveWorkbook.ActiveSheet
If .FilterMode Then
.ShowAllData
End If
End With

Dim Letzte_In_A As Long

Letzte_In_F = Range("F65536").End(xlUp).Row
Rows(Letzte_In_F).Select

If Not Saved Then Save

On Error GoTo DispFehler
Application.DisplayAlerts = False
ChDir _
"\\nas2\Gesamt\PF-Werkzeuge User\Werkzeugverwaltung Profilfertigung\PF-Werkzeuge"
ActiveWorkbook.SaveAs Filename:= _
"\\nas2\Gesamt\PF-Werkzeuge User\Werkzeugverwaltung Profilfertigung\PF-Werkzeuge\PF-Messer.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True
ActiveWorkbook.SaveAs Filename:= _
"\\nas2\Gesamt\PF-Werkzeuge User\Werkzeugverwaltung Profilfertigung\PF-Werkzeuge\PF-Messer Unterfräse.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"\\nas2\Gesamt\PF-Werkzeuge User\Werkzeugverwaltung Profilfertigung\PF-Werkzeuge\PF-Messer - Kopie.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
"\\nas2\Gesamt\PF-Werkzeuge User\Werkzeugverwaltung Profilfertigung\PF-Werkzeuge\PF-Messer.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'-- AutoClose ----
On Error Resume Next
Call AutoCloseStop

DispFehler:
Application.DisplayAlerts = True


End Sub

erreichen dass die Tabelle in mehreren Versionen gespeichert wird, und das beim öffnen die unterste Zeile aktiviert ist, damit ich für die Eingabe neuer Zeilen nicht immer ans Ende scrollen muss.

 

Es wäre vielleicht einfacher wenn beim schließen automatisch die erste Zeile angewählt würde?

 

Du kannst nicht beides haben, die letzte Zeile und auch die erste gefilterte - entscheide dich für eine Variante.
Damit du zur ersten freien Zeile gelangst (um dort weiterschreiben zu können), würde ich z.B. das Doppelklick-Ereignis verwenden und beim Schließen (oder Öffnen) der Mappe die erste gefilterte Zeile.

 

Das wäre eine super Lösung!
Kann man das so einstellen, dass wenn ich Spalte E auf ein Feld doppelt klicke, automatisch die letzte freie Zeile angewählt wird, und beim schließen oder öffnen die erste Zeile?
Das wäre echt super!

 

Lösche die Zeilen

Code:

aus deinem Code.

Code zum Aktivieren der 1. gefilterten Zeile brauchst du nicht, da beim Schleißen der Autofilter aufgehoben wird - deshalb reicht es, wenn du im Workbook.Open-Ereignis einfach die Zelle B2 auswählst

Code:

 

Hallo Beverly,

das funzt sehr gut, ich habe den Code eingefügt,danke noch mal für deine Hilfe!


If Target.Column = 5 Then
Dim Letzte_In_F As Long
Letzte_In_F = Range("F65536").End(xlUp).Row
Rows(Letzte_In_F).Select
Cancel = True
End If


Kannst du mir auch sagen, wie ich den Code anpassen muss, damit der doppelklick bei allen Zellen in Spalte E außer in E1 funktioniert?
Da ich in der Zelle E1 den Pfeil für die Autofilterfunktion habe, und das Feld recht schmal ist, möchte ich verhindern das ich die Funktion aus versehen aktiviere.

Gruß Timo

 

Hi Timo,

einen Doppelklick führt man doch bewusst und nicht versehentlich aus... *wink.gif*

Ergänze den rot formatierten Teil

Code: