Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Combobox als Filterkriterium | Herbers Excel-Forum


Betrifft: Combobox als Filterkriterium von: Space
Geschrieben am: 22.01.2010 11:13:07

Hallo,

habe ein Problem: Ausgangslage - ich habe in einer Userform 2 ComboBoxen (1 und 2). Das Filterkriterium steht in ComboBox2. Aber er schmeißt mir nicht die richtigen bzw. keine Ergebnisse in der Excel Liste aus.

Hier mein Code:

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

If ComboBox1 = "" Then
    MsgBox ("Bitte treffen Sie Ihre Angaben in beiden Wahlfeldern")
    Exit Sub
End If

If ComboBox1 = "ab dem Jahr" Then
   Selection.AutoFilter Field:=15, Criteria1:=">=*ComboBox2*", Operator:=xlAnd
End If

UserForm14.Hide ' UserForm14 schliessen
Application.ScreenUpdating = True
End Sub

Wie schaffe ich es, dass die ComboBox2 ein Filterkriterium ist?

Vielen Dank für eure Hilfe!
Gruß
Space

  

Betrifft: AW: Combobox als Filterkriterium von: Rudi Maintaire
Geschrieben am: 22.01.2010 11:18:16

Hallo,
was steht in CB2? Das Jahr?
versuch mal

Criteria1:=">=" & CDate("1.1." &ComboBox2), Operator:=xlAnd
Gruß
Rudi


  

Betrifft: AW: Combobox als Filterkriterium von: Space
Geschrieben am: 22.01.2010 11:26:33

Hallo Rudi,

ja richtig, in CB2 steht das Jahr. Dein Tipp hat geholfen. Dennoch funktioniert es nicht. Ich kriege nur eine leere Tabelle angezeigt und der Autofilter über dem Datum ist blau. Wenn ich dann mal auf den Autofilter gehe und benutzerdefiniert anklicke steht genau das richtige Suchkriterium (größer/gleich - 01.01.20xx) drinnen. Wenn ich dann auf o.k. drücke funktioniert es. Über meinen Button allerdings nicht...

Woran kann das liegen?

Gruß
Space


  

Betrifft: AW: Combobox als Filterkriterium von: Luschi
Geschrieben am: 22.01.2010 11:57:46

Hallo Space,

so sollte es klappen:

Criteria1:=">=" & CLng(CDate("1.1." &ComboBox2)), Operator:=xlAnd

Ich habe die Erfahrung gemacht, das bei Vba - Filtern - Datum
der Datumswert in eine Zahl umgewandelt werden muß.

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Combobox als Filterkriterium von: Space
Geschrieben am: 22.01.2010 12:48:04

Vielen Dank Luschi,
so hats geklappt!!


Beiträge aus den Excel-Beispielen zum Thema "Combobox als Filterkriterium"