Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
Screenshot zu MsgBox	MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Combobox als Filterkriterium | Herbers Excel-Forum

• Combobox als Filterkriterium von Space vom 22.01.2010 11:13:07
• AW: Combobox als Filterkriterium - von Rudi Maintaire am 22.01.2010 11:18:16
  • AW: Combobox als Filterkriterium - von Space am 22.01.2010 11:26:33
    • AW: Combobox als Filterkriterium - von Luschi am 22.01.2010 11:57:46
      • AW: Combobox als Filterkriterium - von Space am 22.01.2010 12:48:04

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"