ich habe von Euch mal das untere Makro bekommen, das aus meiner Tabelle einen bestimmten Zeitraum rausfiltert.
Sub Datum_filtern()
Dim datAnfang
Dim datEnde
Dim Blatt As Object
Set Blatt = ActiveSheet
On Error GoTo Errorhandler
datAnfang = InputBox("Hier das ANFANGSDATUM eingeben:" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & _
"Bitte Datum im Zahlenformat (z.B. 1.1.03 oder 01.01.03) eingeben", "Sortieren nach Datum")
If datAnfang = ("") Then Exit Sub
If IsDate(datAnfang) = False Then GoTo Errorhandler
datEnde = InputBox("Hier das ENDDATUM eingeben:" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & _
"Bitte Datum im Zahlenformat (z.B. 31.1.03 oder 09.01.03) eingeben", "Sortieren nach Datum")
If datEnde = ("") Then Exit Sub
If IsDate(datEnde) = False Then GoTo Errorhandler
Range("G4").AutoFilter Field:=7, Criteria1:=">=" & _
CDbl(DateValue(datAnfang)), Operator:=xlAnd, _
Criteria2:="<=" & CDbl(DateValue(datEnde))
ActiveWindow.ScrollRow = 9
End
Errorhandler:
Beep
MsgBox "Keine zulässiges Datum! Try again!!", , "Falsche Eingabe"
End Sub
Nun soll das Makro so erweitert werden, dass es die gefiltertet Zeilen zählt und als Meldung auf den Bildschirm ausgibt.
Könnt Ihr mir helfen?
Grüße
Bettina