Supportnet / Forum / Tabellenkalkulation
Problem bei Makro zum Filtern von Datum
Frage
Hallo,
ich habe ein Makroproblem für die VBA - Experten. Nachfolgendes Makro filtert nach Eingabe von Tag und Monat den Tag mit den Uhrzeiten und Werten aus einer Tabelle. Funktionierte ein Jahr lang einwandfrei und zwar nur mit den Datum des aktuellen Jahres. Wenn ich aber 2007 in die Tabelle mit den Werten des Jahres 2006 gehe funktioniert es nicht mehr. Wäre sehr dankbar, wenn mir jemand helfen könnte !
[code]Public Sub CopyDate()
Dim MB As Variant
Dim rngStart As Range
Dim rngend As Range
MB = InputBox("Bitte Tag und Monat im Format 'TT.MM' eingeben!")
On Error Resume Next
If Not (IsDate(CDate(MB))) Then MsgBox "Sie haben kein gültiges Datumsformat eingegeben!"
If Not (IsDate(CDate(MB))) Then Exit Sub
Sheets("Tabelle2").Activate
With ActiveSheet
Set rngStart = .Columns(1).Find(CDate(MB), after:=.Range("A4"), _
LookIn:=xlValues, lookat:=xlPart, searchdirection:=xlNext)
Set rngend = .Columns(1).FindPrevious
If rngStart Is Nothing Then MsgBox " Das eingegebene Datum liegt nicht im Auswahlbereich!Bitte Anwendung Schließen und Eingabe wiederholen !"
If Not rngStart Is Nothing Then
Range(rngStart, Cells(rngend.Row, "F")).Copy[/code]
Das Datum steht in der Spalte A im Format TT.MM.JJJJ hh:mm.
In den Spalten B bis F stehen die dazugehörigen Werte.
Gruß Thomas