Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1128to1132
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1128to1132
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum nach Quartalen filtern

Datum nach Quartalen filtern
Ben
Hallo zusammen,
hab jetzt über 2 Stunden im Forum gesucht, aber nichts hat funktioniert.
Folgendes Problem:
Ich habe eine Spalte mit mehreren Daten (TT/MM/JJJJ).
Nun möchte ich, mit Hilfe eines Command Buttons (VBA) nach einem Quartal filtern (z.B. Quartal I, 2009), so dass nur noch die Daten die in diesem Quartal liegen angezeigt werden.
Ich weiß, dass es einen Datumsfilter bei Excel gibt. Aber wenn ich den Vorgang mit Makro aufzeichne und dann ausführen will, wird mir plötzlich gar kein Datum mehr angezeigt (alle Daten gefiltert).
Kann mir da bitte jmd. behilflich sein?
Danke im Voraus!
Gruß
Ben

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
..vielleicht mit Pivot?...
21.01.2010 20:01:06
robert
hi,
da kannst du unter Gruppierung verschiedene möglichkeiten
auswählen.
gruß
robert
AW: ..vielleicht mit Pivot?...
21.01.2010 20:15:44
Ben
Habe leider noch nie mit Pivot gearbeitet.
Gibt es keine Lösung mit VBA?
Gruß
Ben
AW: Datum nach Quartalen filtern
21.01.2010 20:24:07
Tino
Hallo,
hier mal ein einfaches Beispiel.
Sub BeispielFiltern()
Dim vonDatum As Long, bisDatum As Long
Dim Quartal, Jahr
Quartal = Application.InputBox("Quartal eingeben")
Jahr = Application.InputBox("Jahr eingeben")
If Not IsNumeric(Quartal) Or Not IsNumeric(False) Then Exit Sub

Select Case Quartal
  Case 1
    vonDatum = DateSerial(Jahr, 1, 1)
    bisDatum = DateSerial(Jahr, 3, 31)
  Case 2
    vonDatum = DateSerial(Jahr, 4, 1)
    bisDatum = DateSerial(Jahr, 6, 30)
  Case 3
    vonDatum = DateSerial(Jahr, 7, 1)
    bisDatum = DateSerial(Jahr, 9, 30)
  Case 4
    vonDatum = DateSerial(Jahr, 10, 1)
    bisDatum = DateSerial(Jahr, 12, 31)
  Case Else: Exit Sub
End Select


With Tabelle1
 On Error Resume Next
  If .FilterMode Then .ShowAllData
 On Error GoTo 0
 .UsedRange.AutoFilter Field:=1, Criteria1:=">=" & vonDatum, Operator:=xlAnd, Criteria2:="<=" & bisDatum
End With
Gruß Tino
Anzeige
AW: Datum nach Quartalen filtern
21.01.2010 21:33:32
Ben
Danke funktioniert!
Genial ;)
AW: Datum nach Quartalen filtern
21.01.2010 23:02:48
Beate
Hallo Ben und Tino,
Tinos Code könnte man so verkürzen:
Sub Quartal_und_Jahr_autofiltern()
    Dim vonDatum As Long, bisDatum As Long
    Dim Quartal, Jahr
    Quartal = Application.InputBox("Quartal eingeben")
    Jahr = Application.InputBox("Jahr eingeben")
    If Not IsNumeric(Quartal) Or Not IsNumeric(False) Then Exit Sub
    Select Case Quartal
        Case Is < 5
            vonDatum = DateSerial(Jahr, Quartal * 3 - 2, 1)
            bisDatum = DateSerial(Jahr, Quartal * 3 + 1, 1) - 1
        Case Else: Exit Sub
    End Select
    With Tabelle1 'anpassen!
        On Error Resume Next
        If .FilterMode Then .ShowAllData
        On Error GoTo 0
        .UsedRange.AutoFilter Field:=1, Criteria1:=">=" & vonDatum, Operator:=xlAnd, Criteria2:="<=" & bisDatum
    End With
End Sub
Gruß,
Beate
Anzeige
Gute Idee...
21.01.2010 23:32:07
Tino
Hallo,
ist mir aber erst jetzt aufgefallen in der Zeile
If Not IsNumeric(Quartal) Or Not IsNumeric(False) Then Exit Sub
ist noch ein Fehler, sollte eigentlich so stehen
If Not IsNumeric(Quartal) Or Not IsNumeric(Jahr) Then Exit Sub
Gruß Tino

305 Forumthreads zu ähnlichen Themen

VBA: Autofilter auf "0" setzen
David

Hallo zusammen.
Wenn in der Datei ein Autofilter gesetzt ist und auch in einem beliebigen Feld ein Kriterium gesetzt ist, wie bekomme ich per VBA die Anzeige ALLER Elemente hin.
Mein Versuch mit Range(XYZ).Autofilter
löscht diesen komplett, was aber nciht gewollt ist. Und .Autofi...
27.08.2009 09:53:08
Thread-ID: 1098941
3 Beiträge
Anzeige
VBA Autofilter zurücksetzen wenn!
Thomas

Hallo zusammen!
Ich habe per VBA den Autofilter in meiner Tabelle gesetzt und es funktioniert auch wenn ich in A1 den Suchbegriff eintrage aber ich muss wenn ich alles sehen möchte den Filter von Hand zurücksetzten.
Wie kann man das auch per Code erreichen wenn A1 = "" oder aber "alle"...
16.05.2014 14:55:57
Thread-ID: 1361949
6 Beiträge
In VBA Autofilter mit spitzer Klammer setzen
Chris

Hallo allerseits,
in einer Tabelle habe ich eine Spalte mit Autofilter. Die Werte des Autofilters sind Höhenangaben wie z.B. "1 m", "2 m", aber es kommt auch der Wert "> 5 m" vor, sprich größer wie 5 Meter.
In VBA setze ich den Autofilter mit der Variable "wert"
ActiveSheet.Range...
05.12.2014 11:21:09
Thread-ID: 1396296
3 Beiträge
Anzeige
Filtern nach Datum in Userform
Andrea
Hallo liebes Forum,
ich habe mal eine Datei angehängt. Diese habe ich mir mal hier in diesem Forum gesucht. Nun habe ich diese ein wenig erweitert, und ich möchte nach Datum Filtern.
Also auf Übersicht dann Userform öffnen. Dann auf Beleg / Auswertungen und Rechnungsjournal gehen. Und da is...
29.12.2015 06:18:17
Thread-ID: 1466267
5 Beiträge
VBA-mehrere Filter setzen
Fred

Guten Morgen Excel-Region,
meine ersten Versuche mit VBA.
Ich habe im spartanisch gehaltenen Userform 3 Optionsbutton, welche mir TabellenDaten (A7:E15) sortiertieren. Zudem setzen/entfernen der Autofilter nochmals 1 Button
Die 5 codes: Public Sub Autofilter1() Range("A6:E15").Aut...
10.11.2016 09:09:16
Thread-ID: 1523984
2 Beiträge
VBA - Filter setzen mit Arrays
Ole

Hallo zusammen,
ich komme an einer Stelle nicht weiter und bitte deswegen um Hilfe.
Ich habe eine Spalte, in die Termine eingetragen werden. Es werden manchmal auch Dummy-Termine eingetragen, falls ein Termin noch nicht feststeht.
Ich möchte die Spalte Filtern: es sollen keine
...
25.01.2017 18:33:55
Thread-ID: 1537370
3 Beiträge
VBA Filter merken und wieder setzen
WalterK

Guten Morgen,
ich wollte in einer gefilterten Liste per Code Spalten verschieben. Es kommt dann der Hinweis "Dies kann nicht mit einer Mehrfachauswahl ausgeführt werden". Auch "händisch" kommt dieser Hinweis.
Gibt es eine Möglichkeite per Makro die Filterkriterien zu speichern (es könne...
09.09.2018 08:53:14
Thread-ID: 1644272
7 Beiträge
Datum sortieren nach Monat und Tag, nicht Jahr
Andreas

Hallo Excel-Experten,ich habe in den Zellen B1 bis B5 Geburtstage mit Jahreseingabe (also 03.02.80
09.06.75 usw.) von Personen eingetragen.Nun möchte ich diese Personen nach Geburtstag sortieren,
(Januar, Februar, März, usw.) ohne das Geburtsjahr zu berücksichtigen.Geht das mit Exce...
11.10.2002 19:53:17
Thread-ID: 168626
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
8
5
2
9
4
1
2
6
1
1
5
6
2
15
1
1
6
2
8
13
7
2
3
15