Office: Userform

Hallo,
ich habe eine Datei mit einer Userform.Diese wird mit Daten aus Tabelle1 gefüllt und gefiltert.
Aktuell jedoch nur über die Combox1. Wer kann mir bitte helfen und die Filterung auf Combobox2 und 3 Erweitern?

Später möchte ich die Auswahl aus Listbox in die TabelleXX aus der das Makro gestartet würde in die erste Freie Zeile übertragen.
Gruß und Danke

:)

 

Code:

Warum 3 comboxen für die gleiche Aufghabe muss mir nicht klar sein.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo und Danke,
hab mich nicht so richtig ausgedrückt,sorry.
Im Beispiel: Combobox1 filtert nach spalte 1
Die Combobox2 soll nach Spalte 2 filtern und die Combobox3 nach Spalte 3.
Ich möchte die Möglichkeit haben nach allen drei zu Filtern egal welche den Anfang macht, gefiltert nach allen 3 soll es dann max ein Ergebnis geben.

 

ändere Field:=1 auf die entsprechende Spalte.

 

Hallo,

warum willst du etwas, das Excel als Standard anbietet (Autofilter, ggf. Datenschnitt) in VBA nachbilden?

 

Weil Tabelle1 meine Quelle ist, es ist doch viel einfacher mit userform aus der Zieltabelle(n) zu starten als die Ständig hin und her zu switchen.

 

Irgendwie passiert nichts.*frown.gif*

 

Hi,

danke für die ausführliche Fehlerbeschreibung.

Somit ist es einfach den Fehler zu finden.

MfG
Rainer

 

Hallo,
die Datei kann geladen werden.
Ich habe den obigen Code von Hajo_Zi kopiert, es wird weiterhin nur die combobox1 mit Daten gefüllt und gefiltert combobox2 und 3 haben keine Funktion
Gruß

 

Hallo,

die Daten für die Combobox wird im Modul mod_Tools in der Prozedur Sub UF1_Standard(xUF As UserForm, xOK As Boolean) bereitgestellt. Da du in deinem Beispiel 3 Comboboxen befüllen möchtest, habe ich eine Schleife mit drei Durchläufen hinzugefügt, damit bei jedem Durchlauf eine Combobox befüllt wird.
Einziges Problem ist noch, die Spalte B, da hier Zahlen stehen. Hier kommt ein Laufzeitenfehler, welchen ich mit der Zeile On Error Resume Next erstmal übergehe. Vielleicht weiß hier jemand Rat, wieso Zahlen beim Typ Variant hier nicht funktionieren. In Spalte C habe ich mit den obigen Werte die Zahlen ersetzt, sonst käme hier der selbe Fehler.

 

Hallo,

habe noch festgestellt, das ich die letzte Speicherung nicht übernommen hatte. Tausche mal folgende Zeilen aus.

Aus
Code:

wird
Code:

Wenn du Spalte B vor dem eintragen von Werten als "Text" formatierst, ist das Problem gelöst.

 

Hallo Hubert,
vielen Dank das du mir zu helfen versucht.
Leider wie du siehst meldet sich keine wegen spalte B.
Habe das gemacht was du mir oben geschrieben hast.
Ist es möglich den Filter zu erweitern?
also zb. ich wähle:
Spalte B= 10 Ergebnisse
danach :
Spalte A: bleiben noch 3
anschliessend Spalte C:
bleibt nur noch ein Ergebnis.
Also wie normaler Autofilter.
Anfangen kann ich mit jedem beliebigem und am ende werden es immer weniger.
Gruß und Danke nochmals.

 

Hallo,

wie soll dein Ergebnis denn aussehen?

 

Hallo Klaus-Dieter,
in der Datei ist ja ein Filter auf 9-Spalten angelegt.
In dem Fall kann ich:
a: mit jeder beliebigen Spalte anfangen
b: so weit filtern bis am ende nur noch wenige bzw. ein Ergebnis bleibt
was auch der Sinn sein sollte denke ich.
Die gleiche Filterung möchte ich in der UF haben, allerdings brauche ich nicht nach allen 9 Spalten zu filtern, drei reichen mir.
ist es einfacher den Filter so wie er (9 Spalten) ist in die UF zu übernehmen?
hätte damit auch kein problem.
Gruß

 

Hallo,

wie ich unter #5 schon geschrieben hatte, verstehe ich nicht, warum du die Filterfunktion in einem UserForm nachbilden willst.