Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA-Filter

VBA-Filter
Thomas
Hallo zusammen,
ich habe einen komplexen VBA-Filter in dem man u. a. nach Datum filtern kann.
Der Filter nach Datum (von/bis) kann mit anderen Filterkriterien verknüpft sein.
Bisher (mit Office 2003) hat der Filter nach Datum auch funktioniert.
Wenn ich jetzt nach Datum filter, wird zwar gefiltert aber nicht nach dem angegebenem Datum.
Kommt das Problem von der Umstellung auf Office 2010 oder muss ich den Fehler wo anders suchen.
Gelöst habe ich das damals so:
Gebildet wird das Datum in einer Userform mit 3 Textboxen (tt; mm; jj) für das "Datum von" und 3 für das "Datum bis"
Die Werte fasse ich in je einer Variablen zusammen, darin steht dann z. B. >=01.08.12 bzw. In Spalte P stehen die Daten (Datum) nach denen gefiltert werden soll, hier steht auch das "von-Datum"
am Spaltenende der Tabelle steht dann das "bis-Datum" (mit der gleichen Überschrift).
Im Forum habe darüber ich nichts gefunden.
Gruß
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA-Filter - Datum
28.08.2012 14:29:34
fcs
Hallo Thomas,
VBA und Filtern von Datumsangaben stehen leider etwas auf Kriegsfuß.
Soweit ich weiss hat das aber auch unter Excel 2003 nicht ordentlich funktioniert.
Auch die Formatierung des datums kann einem einen Strich durch die Rechnung machen.
Zum Filtern muss das über die Textboxen einegegeben Datum in eine Zahl umgewandelt werden.
Dann kann man auch per VBA den Datumsfilter setzen.
Gruß
Franz
Beispiel-Makro:
Sub Datum_Filter_von_bis()
' Datum_Filter_von_bis Makro
Dim varDatumVon As Variant
Dim varDatumBis As Variant
varDatumVon = CLng(CDate("01.04.2004"))
varDatumBis = CLng(CDate("31.12.2004"))
ActiveSheet.ShowAllData
With ActiveSheet.AutoFilter.Range
.AutoFilter Field:=3, Criteria1:=">=" & varDatumVon, Operator:=xlAnd, _
Criteria2:="

Anzeige
AW: VBA-Filter - Datum
29.08.2012 06:01:29
Thomas
Hallo Franz,
vielen Dank für den Vorschlag.
Ich versuch das umzusetzen.
Falls das nicht klappt melde ich mich nochmals.
Schönen Tag noch
Gruß
Thomas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige