2tes Kriterium bei Autofilter
14.02.2006 12:09:40
Lorenz
Mit anschließendem Code wird mit +30 ein theoretisches Monatsende simuliert(was auch funktioniert).
Es sollen aber statt die +30 das jeweilige Monatsende ausgegeben werden.
Me.Range("B6").AutoFilter Field:=intIndex, Criteria1:=strCrit & CLng(CDate(TBox.Object.Text)), Operator:=xlAnd, _
Criteria2:=strCrit & CLng(CDate(TBox.Object.Text)) + 30
Ähnlich so:
DatumsWert=CLng(CDate(TBox.Object.Text))
=DATUM(JAHR(DatumsWert);MONAT(DatumsWert)+1;1)-1
Danke im Voraus & Grüsse
Lorenz