Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach Datum filtern

Forumthread: nach Datum filtern

nach Datum filtern
21.06.2005 12:34:41
Uwe
Hallo,
ich möchte in einer Tabelle mit den Tageswerten eines Jahres per makro die Daten eines beliebigen Monats herausfiltern, um sie in einer neuen Tabelle zusammenzustellen. Als Beispiel eine verkürzte Datei anbei.
https://www.herber.de/bbs/user/24045.xls
Vielen Dank
Uwe
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Datum filtern
21.06.2005 13:01:18
Harald
Hallo Uwe,
unter Daten / Filter / Autofilter kannst Du per benutzerdefiniert u.a. das Datum eingrenzen
Gruß
Harald
AW: nach Datum filtern
21.06.2005 13:20:22
Uwe
Hallo Harald,
das habe ich mir auch mit dem Recorder aufgezeichnet, nur jetzt hier im makro meine Variable für das Datum einzusetzen, gelingt mir nicht. Das funktioniert nur bei Zahlen oder Text, nicht beim Datum.
Gruß,
Uwe
Anzeige
AW: nach Datum filtern
21.06.2005 13:44:32
Harald
Hi Uwe,
per vba (Grundlage: die höchst empfehlenswerte Herber Excel-CD) sähe das so aus.
Field:=2 ist in diesem Fall Spalte B
Range("Datum1")bzw Datum 2 sind Anfangs- und Enddatum in benannten Zellen.

Sub Filtern()
Range("A1").Select
Selection.AutoFilter Field:=2, Criteria1:=">" & _
CDbl(DateValue(Range("Datum1").Text)), Operator:=xlAnd, _
Criteria2:="<" & CDbl(DateValue(Range("Datum2").Text))
End Sub

Hoffe das hilft ;-))
Gruß
Harald
Anzeige
AW: nach Datum filtern
21.06.2005 13:46:06
Nepumuk
Hi Uwe,
VBA spricht / versteht nur englisch / amerikanisch. Benötigt also das Datum im Format MM/DD/YYYY damit es als Datum erkannt wird.
Gruß
Nepumuk
AW: nach Datum filtern
21.06.2005 15:52:29
Uwe
Hallo Nepumuk,
aber wie kann ich mein Datum umwandeln?
Beispiel meiner Datei siehe oben.
Gruß
Uwe
AW: nach Datum filtern
21.06.2005 16:00:44
Nepumuk
Hi,
mal ein Beispiel. Der Autofilter befindet sich in Zeile 1 ab Spalte A in der Tabelle1.
Sub Makro1()
    'Filter Datumsbereich
    Dim crit1 As String, crit2 As String, dat1 As Date, dat2 As Date
    dat1 = "01.01.2003"
    dat2 = "31.12.2003"
    crit1 = ">=" & Month(dat1) & "/" & Day(dat1) & "/" & Year(dat1)
    crit2 = "<=" & Month(dat2) & "/" & Day(dat2) & "/" & Year(dat2)
    Worksheets("Tabelle1").Cells(1, 1).AutoFilter Field:=1, Criteria1:=crit1, _
        Operator:=xlAnd, Criteria2:=crit2
End Sub

Es weden alle Daten des Jahres 2003 herausgefiltert.
Gruß
Nepumuk
Anzeige
;

Forumthreads zu verwandten Themen

Format(etwas, "sonstwas") wird nicht erkannt
Mike

Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...
20.08.2008 11:13:00
Thread-ID: 1003138
16 Beiträge
Code wird nicht richtig erkannt
Reinhard

Hallo Wissende,
wegen einer Anfrage hier (irgendwas mit Lottozahlen) habe ich mir
https://www.herber.de/bbs/user/55214.xls
heruntergeladen.
In Blatt1 steht Zeilenweise der nachstehende Code, den habe ich in den VB-Editor in einem Modul eingefügt.
Die Zeilen
Sub Lotto_...
06.09.2008 19:00:21
Thread-ID: 1007881
8 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Anzeige
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Auto open funktioniert nicht richtig
Bodo

Guten Tag.
Ich versuche diesen Code hier zum Laufen zu bringen.
Sub Auto_open() ' Auto_öffnen Makro ' Blatt "Grundwerte" ausblenden. Unnötiges ausblenden. Blatt "Hinweise" aktivieren. In Vollbild- _ Modus schalten. Sheets("Grundwerte").Visible = False Sheets("Hinweise").Select ActiveW...
25.02.2009 14:31:35
Thread-ID: 1053941
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige