Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige