Supportnet Computer
Planet of Tech

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

Antwort von



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: