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

Tabelle filtern über UserForm

Forumthread: Tabelle filtern über UserForm

Tabelle filtern über UserForm
25.01.2021 14:43:39
Marco
Hallo zusammen
Ist es möglich eine Tabelle zu filtern über eine UserForm? Das geht bestimmt jedoch bekomme ich dies nicht hin.
Ich möchte eine UserForm in der ich die entsprechenden Kriterien eintragen oder auswählen kann. anschliessend soll die Tabelle entsprechend den Kriterien gefiltert werden.
In der Beispiel Datei möchte ich z.b. die folgenden Spalten Filtern.
AI
D
A
B
Wenn ich die Einträge in der UserForm lösche soll die Tabelle wieder ohne Filter dargestellt sein.
Kann mir da jemand auf die Sprünge helfen wie ich dies hinbekommen?
https://www.herber.de/bbs/user/143308.xlsx
Gruss Marco
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle filtern über UserForm
25.01.2021 14:51:45
Nepumuk
Hallo Marco,
eine Datei mit Userform wäre hilfreich.
Gruß
Nepumuk
AW: Tabelle filtern über UserForm
26.01.2021 11:29:13
Marco
Hallo Nepumuk
Danke dir das funktioniert ja super. Was muss ich alles anpassen wenn ich dies nun im meine Datei einpflegen möchte und der Tabellen Name sich ändert.
Gruss Marco
AW: Tabelle filtern über UserForm
26.01.2021 11:33:42
Nepumuk
Hallo Marco,
im Initialize-Event des Userforms wird die Tabelle und deren Listobjekt festgelegt:
Set ListObject = Tabelle1.ListObjects("TechStörungen")
auf das sich alles bezieht. Wenn die Spalten übereinstimmen, dann musst du nur das anpassen.
Gruß
Nepumuk
Anzeige
AW: Tabelle filtern über UserForm
26.01.2021 12:25:45
Marco
Hallo Nepumuk
Wenn ich dies Anpasse auf
Set ListObject = Tabelle7.ListObjects("TechStörungen")
oder
Set ListObject = ThisWorkbook.Worksheets("Technische Störungen").ListObjects("TechStörungen")
oder
Set ListObject = Worksheets("Technische Störungen").ListObjects("TechStörungen")
dann bekomme ich immer einen Laufzeitfehler.
Gruss Marco
Anzeige
AW: Tabelle filtern über UserForm
26.01.2021 12:29:52
Nepumuk
Hallo Marco,
kann ich ohne die Mappe nicht nachvollziehen. Lösch mal in einer Kopie der Mappe alle anderen Tabellen und lade die hoch.
Gruß
Nepumuk
AW: Tabelle filtern über UserForm
26.01.2021 12:51:33
Marco
Hallo Nepumuk
Ich hoffe es ist so ok.
Gruss Marco
https://www.herber.de/bbs/user/143324.xlsm
Anzeige
AW: Tabelle filtern über UserForm
26.01.2021 13:12:36
Nepumuk
Hallo Marco,
das klappt in deiner Liste:
Set ListObject = Tabelle7.ListObjects("TechStörungen")
ich bekomme nur einen Fehler durch die beiden #NV in Spalte P
Gruß
Nepumuk
AW: Tabelle filtern über UserForm
26.01.2021 13:41:25
Marco
Hallo Nepumuk
Danke für deine Hilfe. Es Funktioniert, jedoch nur wenn ich diesen Teil von der Programmierung ausschliesse. 
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Call HookMouse(ListBox1)
End Sub
Wofür ist dies und wird es benötigt?
Gruss Marco
Anzeige
AW: Tabelle filtern über UserForm
26.01.2021 13:49:13
Nepumuk
Hallo Marco,
dazu benötigst du das Modul1 aus meiner hochgeladenen Mappe, damit kannst du mit dem Mausrad in der Listbox scrollen. Zudem benötigst du dieses Event:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Set ListObject = Nothing
    Call UnhookMouse
End Sub

Gruß
Nepumuk
Anzeige
AW: Tabelle filtern über UserForm
26.01.2021 14:42:43
Marco
Hallo Nepumuk
Super danke dir, es geht alles wie ich es mir erhofft habe.
Gruss Marco
;

Beliebteste Forumthreads (12 Monate)

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