Auswahl von bis in Userform

Sub Quartal_und_Jahr_autofilternTabelle1UF() Dim vonDatum As Long, bisDatum As Long Dim Quartal, Jahr ' Quartal = Application.InputBox("Quartal eingeben") ' Jahr = Application.InputBox("Jahr eingeben") Quartal = UF_Datum_filtern.TextBox3 Jahr = UF_Datum_filtern.TextBox4 If Not IsNumeric(Quartal) Or Not IsNumeric(Jahr) Then Exit Sub Select Case Quartal Case Is < 5 vonDatum = DateSerial(Jahr, Quartal * 3 - 2, 1) bisDatum = DateSerial(Jahr, Quartal * 3 + 1, 1) - 1 Case Else: Exit Sub End Select With Tabelle4 'anpassen! On Error Resume Next If .FilterMode Then .ShowAllData On Error GoTo 0 .Range("$A$1:$G$3001").AutoFilter Field:=1, Criteria1:=">=" & vonDatum, Operator:=xlAnd, _ Criteria2:="<=" & bisDatum End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
diesen Code habe ich bereits der funktioniert, aber nur indem alle 6 Daten eingeben werden:

Sub Tag_Monat_und_Jahr_autofilternTabelle1UF1()
Dim vonDatum As Long, bisDatum As Long
Dim Jahrvon As Integer '(von 100 - 9999) oder ein numerischer Ausdruck.
Dim Monatvon As Integer '. Numerischer Ausdruck.
Dim Tagvon As Integer '. Numerischer Ausdruck.
Dim Jahrbis As Integer '(von 100 - 9999) oder ein numerischer Ausdruck.
Dim Monatbis As Integer '. Numerischer Ausdruck.
Dim Tagbis As Integer '. Numerischer Ausdruck.
Tagvon = Application.InputBox("Tag eingeben")
Monatvon = Application.InputBox("Monat eingeben")
Jahrvon = Application.InputBox("Jahr eingeben")
Tagbis = Application.InputBox("Tag eingeben")
Monatbis = Application.InputBox("Monat eingeben")
Jahrbis = Application.InputBox("Jahr eingeben")
If Not IsNumeric(Tagvon) Or Not IsNumeric(Monatvon) Or Not IsNumeric(Jahrvon) Then Exit Sub
Select Case Tagvon
Case Is < 32
vonDatum = DateSerial(Jahrvon, Monatvon, Tagvon)
bisDatum = DateSerial(Jahrbis, Monatbis, Tagbis)
Case Else: Exit Sub
End Select
With Tabelle4 'anpassen!
On Error Resume Next
If .FilterMode Then .ShowAllData
On Error GoTo 0
.Range("$A$1:$G$3001").AutoFilter Field:=1, Criteria1:=">=" & vonDatum, Operator:=xlAnd, _
Criteria2:="<=" & bisDatum
End With
End Sub

Wie kann ich es erreichen, dass ich in TextBox1 Datum von und TextBox2 Datum bis eingebe.
Danke für Eure Mühe
Gruss Peter

Sub Makro7() ' Makro7 Makro Application.Goto Reference:="FilterA" '= Range("$A$1:$G$3000") Selection.AutoFilter ActiveSheet.Range("$A$1:$G$3000").AutoFilter Field:=1, Criteria1:="<>" ActiveSheet.Range("$A$1:$G$3000").AutoFilter Field:=1, Criteria1:= _ ">=01.01.2015", Operator:=xlAnd, Criteria2:="<=01.05.2015" End Sub

Sub tilerUF() Dim Filterdatumvon As Date Dim Filterdatumbis As Date Application.Goto Reference:="FilterA" '= Range("$A$1:$G$3000") Filterdatumvon = UF_Datum_filtern.TextBox1 Filterdatumbis = UF_Datum_filtern.TextBox2 Selection.AutoFilter Field:=1, Criteria1:=">=" & Format(Filterdatumvon, "0"), Operator:= _ xlAnd, Criteria2:="<=" & Format(Filterdatumbis, "0") End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Auswahl von bis in Userform

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread