Private Sub CommandButton1_Click()
Range(ComboBox1.RowSource).AutoFilter Field:=1, Criteria1:=ComboBox1.Value
End Sub
Gruß Uwe
Private Sub CommandButton1_Click()
Range(ComboBox1.RowSource).AutoFilter Field:=1, Criteria1:=CInt(ComboBox1.Value)
End Sub
Gruß UwePrivate Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(ComboBox1.Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(ComboBox1.Value)
End Sub
Private Sub CommandButton2_Click()
Selection.AutoFilter Field:=2, Criteria1:=">=" & CDbl(ComboBox2.Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(ComboBox2.Value)
End Sub
Private Sub CommandButton3_Click()
Selection.AutoFilter Field:=3, Criteria1:=">=" & CDbl(ComboBox3.Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(ComboBox3.Value)
End Sub
Private Sub CommandButton5_Click()
Selection.AutoFilter Field:=4, Criteria1:=ComboBox4.Value
End Sub
Gruß Uwe
Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "0000")
End Sub
Private Sub ComboBox2_Change()
ComboBox2.Value = Format(ComboBox2.Value, "dd.mm.yyyy")
End Sub
Private Sub ComboBox3_Change()
ComboBox3.Value = Format((ComboBox3.Value), "00.00 €")
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(ComboBox1.Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(ComboBox1.Value)
End Sub
Private Sub CommandButton2_Click()
Selection.AutoFilter Field:=2, Criteria1:=">=" & CDbl(CDate(ComboBox2.Value)), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(CDate(ComboBox2.Value))
End Sub
Private Sub CommandButton3_Click()
Selection.AutoFilter Field:=3, Criteria1:=">=" & CDbl(ComboBox3.Value), _
Operator:=xlAnd, _
Criteria2:="<=" & CDbl(ComboBox3.Value)
End Sub
Private Sub CommandButton5_Click()
Selection.AutoFilter Field:=4, Criteria1:=ComboBox4.Value
End Sub
Private Sub CommandButton27_Click()
On Error GoTo fehler
ComboBox1.ListIndex = -1
ComboBox2.ListIndex = -1
ComboBox3.ListIndex = -1
ComboBox4.ListIndex = -1
ActiveSheet.ShowAllData
Range("A4").Select
Exit Sub
fehler:
MsgBox "Es wird schon alles angezeigt!"
End Sub
Gruß UwePrivate Sub CommandButton3_Click()
Dim strFilter$
strFilter = ComboBox3
strFilter = Replace(strFilter, ",", ".")
Selection.AutoFilter Field:=3, Criteria1:=">=" & strFilter, _
Operator:=xlAnd, _
Criteria2:="<=" & strFilter
End Sub
Gruß Tino