Folgendes kleineres Problem:
Diese Routine filtert eine Liste nach meinem Datumswunsch
Sub Makro_datum()
' Makro_datum Makro
' Makro am 29.09.2005 von IT-IM aufgezeichnet
ScreenUpdating = False
Sheets("Energiebilanzierung2005").Select
Range("c12").Select
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Dim datStart As Date
Dim datEnde As Date
On Error GoTo ERRORHANDLER
datStart = CDate(InputBox("Bitte Startdatum eingeben. Beispiel für Eingabe 17.12.04", "Startdatum", Date))
datEnde = CDate(InputBox("Bitte Enddatum eingeben. Beispiel für Eingabe 18.12.04", "Enddatum", Date + 3))
Range("c12").AutoFilter Field:=1, Criteria1:=">=" & Format(datStart, "YYYY-MM-DD"), Operator:= _
xlAnd, Criteria2:="<=" & Format(datEnde, "YYYY-MM-DD")
Exit Sub
ERRORHANDLER:
Rem If MsgBox("Kein gültiges Datum. Bitte wiederholen Sie Ihre Eingabe oder brechen sie ab." _
& vbLf & "Wiederholen?", vbOKCancel, "Weiter oder Abbruch?") = vbCancel Then
Exit Sub
Rem Resume
Rem Call Makro_back
End Sub
Frage! Wie komme ich zurück automatisch auf ein anderes Sheet (zB Tabelle1)? Habe das mal mit Makro_back bezeichnet. Folgendes passiert (daher auch das REM). Wenn ich automatisch am Ende der "Filterei" auf eine andere Tabelle springen will, bekomme ich erst gar nicht die "Datumseingabeaufforderung", sondern bleibe auf der Tabelle "Energiebilanzierung2005" stehen.
By the way! Der ERRORHANDLER läuft auch nicht (daher auch der hier Ge-REM-t). Welchen Grund kann das haben?
Hat jemand eine Idee?
Danke!
Martin