Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter öffnen mit VBA

Forumthread: Filter öffnen mit VBA

Filter öffnen mit VBA
16.06.2015 17:00:28
Pseydo
Hallo,
um eine benutzerfreundliche Arbeitsdatei zu erstellen, möchte ich, dass sich beim Starten der Datei ein Fenster öffnet, in das man den gesuchten Namen für den Filter in Spalte B schreiben kann und sich die Tabelle dementsprechend automatisch filtert.
Userbild

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter öffnen mit VBA
16.06.2015 19:09:06
Sepp
Hallo Pseudo,
das geht nur "schmutzig" per SendKey mit all seinen Risiken.
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Activate()
  If Me.AutoFilterMode Then
    Range("B3").Activate
    Application.SendKeys "%{down}"
    Application.SendKeys "{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}"
  End If
End Sub

Gruß Sepp

Anzeige
AW: Filter öffnen mit VBA
16.06.2015 23:11:53
Ramses
Hallo
Ohne "schmutzige" Tricks:
Wenn dein Anwender den Wert in z.B. Zelle E1 schreibt, filtert das Makro nach dem entsprechenden WErt
Und wenn du den Code in der Tabelle wo das funktionieren soll ablegst (Rechte Maustaste auf Register > Code anzeigen), geht das ganze sogar automatisch
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E1" Then
If Target.Value = "" Then
'Wenn kein Wert eingegeben, oder gelöscht, wird, wird der Autofilter zurückgesetzt
Selection.AutoFilter
Else
'Ansonsten wird dem Wert in E1 entsprechend gefiltert
ActiveSheet.Range("$A$1:$C$4").AutoFilter Field:=1, Criteria1:=Range("E1").Value,  _
Operator:=xlAnd
End If
End If
End Sub
Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige