Beiträge zum Thread: über Text Monat - Datum filtern
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
01.08.2026 13:37:31
über Text Monat - Datum filtern
Hey all,
Ich habe Monatsnamen von Q3-Q14 stehen ( Januar, Februar, März, usw. )
Jetzt möchte ich per DoubleClick auf dem Monatsnamen das er mir die Tabelle
filtert nach dem Geburtstag für den Monat.
Die Geburtstage sind aber im Datum zB. 01.01.1990 formatiert.
Muster: Code der funktioniert für Januar
ich müsste in Codezeile
zB. dann auf
usw.
Dann filtert er mir auch die anderen Monate genau.
Ich würde das gerne ohne die Änderungen in der Codezeile haben.
Was und wie müsste geändert werden ???
Hoffe konnte mich gut genug ausdrücken.
Ich sage jetzt schon mal vielen Dank für die Hilfe und Bemühungen bei der Änderung von dem Code.
Mfg
Dieter
Ich habe Monatsnamen von Q3-Q14 stehen ( Januar, Februar, März, usw. )
Jetzt möchte ich per DoubleClick auf dem Monatsnamen das er mir die Tabelle
filtert nach dem Geburtstag für den Monat.
Die Geburtstage sind aber im Datum zB. 01.01.1990 formatiert.
Muster: Code der funktioniert für Januar
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("Q3:Q14")) Is Nothing Then
With Target
Cancel = True
MsgBox "Zelle " & Target.Address & " wurde doppelgeklickt." ' das kann weg, ist nur zum Test
Range("F:F").AutoFilter Field:=1, _
Operator:=xlFilterDynamic, _
Criteria1:=xlFilterAllDatesInPeriodJanuary
' hier Aktionen mit der Zelle
End With
' Call Filtern
'Makroaufruf
End If
End Sub
ich müsste in Codezeile
Criteria1:=xlFilterAllDatesInPeriodJanuaryzB. dann auf
Criteria1:=xlFilterAllDatesInPeriodMaiCriteria1:=xlFilterAllDatesInPeriodAugustusw.
Dann filtert er mir auch die anderen Monate genau.
Ich würde das gerne ohne die Änderungen in der Codezeile haben.
Criteria1:=xlFilterAllDatesInPeriodJanuaryWas und wie müsste geändert werden ???
Hoffe konnte mich gut genug ausdrücken.
Ich sage jetzt schon mal vielen Dank für die Hilfe und Bemühungen bei der Änderung von dem Code.
Mfg
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
01.08.2026 13:57:27
AW: über Text Monat - Datum filtern
Hey,
Ich habe sowas gefunden im Netz, aber weiß nicht ob oder wie man das einsetzen könnte.
keine Ahnung ob ich sowas für meinen Code gebrauchen könnte
Ich habe sowas gefunden im Netz, aber weiß nicht ob oder wie man das einsetzen könnte.
Sub MonatInZahl2()
Dim monatText As String
Dim monatZahl As Integer
monatText = "Mai"
Select Case LCase(monatText)
Case "januar", "jan": monatZahl = 1
Case "februar", "feb": monatZahl = 2
Case "märz", "mär": monatZahl = 3
Case "april", "apr": monatZahl = 4
Case "mai": monatZahl = 5
Case "juni", "jun": monatZahl = 6
Case "juli", "jul": monatZahl = 7
Case "august", "aug": monatZahl = 8
Case "september", "sep": monatZahl = 9
Case "oktober", "okt": monatZahl = 10
Case "november", "nov": monatZahl = 11
Case "dezember", "dez": monatZahl = 12
Case Else: monatZahl = 0 ' Ungültig
End Select
MsgBox monatZahl ' Gibt 6 aus
End SubDim aMonthName, aMonthNumber 'Array
Cancel = True
aMonthName = Array("Januar", "Februar", "März", "April", "May", "Juni", "July", "August", "September", "October", "November", "December")
aMonthNumber = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
sMonth = Left(sDate, 3)
For i = 0 To UBound(aMonthName)
If aMonthName(i) = sMonth Then
sMonth = aMonthNumber(i)
End If
Next i
keine Ahnung ob ich sowas für meinen Code gebrauchen könnte
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Case
01.08.2026 14:19:53
Im Prinzip kannst...
Moin Dieter, :-)
... du es berechnen: ;-)
https://www.herber.de/bbs/user/180945.xlsb
Habe nur mal Januar, Februar und August drin. Aber ich denke du verstehst das Prinzip. ;-)
Doppelklick auf Q2 (Monate) setzt den Filter wieder zurück. ;-)
Servus
Case
... du es berechnen: ;-)
https://www.herber.de/bbs/user/180945.xlsb
Habe nur mal Januar, Februar und August drin. Aber ich denke du verstehst das Prinzip. ;-)
Doppelklick auf Q2 (Monate) setzt den Filter wieder zurück. ;-)
Servus
Case
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:25:58
AW: Im Prinzip kannst...
Hallo Case,
Danke für Deinen Code, bis auf kleine Änderung läuft er prima wie ich wollte.
vielen Dank dafür.
MfG
Dieter
Danke für Deinen Code, bis auf kleine Änderung läuft er prima wie ich wollte.
vielen Dank dafür.
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
RPP63
02.08.2026 10:24:26
Mal außer Konkurrenz
Mit Excel 365 oder auch Excel Online (kostenlos) kann man so etwas mittels einer einzigen Formelzelle lösen.
Auswahl des Monats erfolgt über Zelldropdown in G1, die Filterung erfolgt dann automatisch ab F3 (ohne VBA)
Auswahl des Monats erfolgt über Zelldropdown in G1, die Filterung erfolgt dann automatisch ab F3 (ohne VBA)
| A | B | C | D | E | F | G | H | I | J | K | |
| 1 | Nachname | Vorname | GebDat | Alter | Monat | August | Januar | ||||
| 2 | NN_01 | VN_01 | 15.08.1992 | 33 | Nachname | Vorname | GebDat | Alter | Februar | ||
| 3 | NN_02 | VN_02 | 01.04.1968 | 58 | NN_05 | VN_05 | 02.08.1995 | 31 | März | ||
| 4 | NN_03 | VN_03 | 22.06.1991 | 35 | NN_07 | VN_07 | 06.08.1974 | 51 | April | ||
| 5 | NN_04 | VN_04 | 29.06.1963 | 63 | NN_01 | VN_01 | 15.08.1992 | 33 | Mai | ||
| 6 | NN_05 | VN_05 | 02.08.1995 | 31 | NN_09 | VN_09 | 19.08.1961 | 64 | Juni | ||
| 7 | NN_06 | VN_06 | 31.01.1992 | 34 | Juli | ||||||
| 8 | NN_07 | VN_07 | 06.08.1974 | 51 | August | ||||||
| 9 | NN_08 | VN_08 | 25.05.1968 | 58 | September | ||||||
| 10 | NN_09 | VN_09 | 19.08.1961 | 64 | Oktober | ||||||
| 11 | NN_10 | VN_10 | 11.02.1982 | 44 | November | ||||||
| 12 | NN_11 | VN_11 | 20.12.1976 | 49 | Dezember | ||||||
| 13 | NN_12 | VN_12 | 17.06.2010 | 16 | |||||||
| 14 | NN_13 | VN_13 | 14.04.1979 | 47 | |||||||
| 15 | NN_14 | VN_14 | 29.07.1966 | 60 | |||||||
| 16 | NN_15 | VN_15 | 05.11.1996 | 29 |
| Zelle | Formel |
| D2 | =DATEDIF(C2;HEUTE();"y") |
| F3 | =LET(
f;FILTER(A2:.D1000;TEXT(C2:.C1000;"MMMM")=G1;""); SORTIERENNACH(f;TAG(SPALTENWAHL(f;3)))) |
| Zelle | Gültigkeitstyp | Operator | Wert1 | Wert2 |
| G1 | Liste | =$K$1:$K$12 |
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:39:25
AW: Mal außer Konkurrenz
hallo RPP63,
Danke für Deinen Beitrag und Bemühung,
aber ich wollte meine Tabelle nicht noch
weiter ausdehnen.
MfG
Dieter
Danke für Deinen Beitrag und Bemühung,
aber ich wollte meine Tabelle nicht noch
weiter ausdehnen.
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Oberschlumpf
03.08.2026 08:09:33
AW: über Text Monat - Datum filtern
Hi,
bei deinem ersten Code
Ciao
Thorsten
bei deinem ersten Code
...
MsgBox monatZahl ' wird bei mir 5 ausgegeben; also alles wie von dir gewünscht
Ciao
Thorsten
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Ulf
01.08.2026 14:32:20
AW: über Text Monat - Datum filtern
Hi,
xlFilterAllDatesInPeriodJanuary ist eine Enumeration = 21 und dann folgen die anderen Monate; angenommen du hast die Monate aufsteigend:
ansonsten must du die gefundenen Codes anpassen auf 21(Jan)..
hth
Ulf
xlFilterAllDatesInPeriodJanuary ist eine Enumeration = 21 und dann folgen die anderen Monate; angenommen du hast die Monate aufsteigend:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const cMonatskonstante = 21
Dim lngMonat As Long
If Not Intersect(Target, Range("Q3:Q14")) Is Nothing Then
lngMonat = Target.Row - 2 + cMonatskonstante
With Target
Cancel = True
MsgBox "Zelle " & Target.Address & " wurde doppelgeklickt." ' das kann weg, ist nur zum Test
Range("F:F").AutoFilter Field:=1, _
Operator:=xlFilterDynamic, _
Criteria1:=lngMonat 'xlFilterAllDatesInPeriodJanuary
' hier Aktionen mit der Zelle
End With
' Call Filtern
'Makroaufruf
End If
End Subansonsten must du die gefundenen Codes anpassen auf 21(Jan)..
hth
Ulf
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:31:07
AW: über Text Monat - Datum filtern
Hey Ulf,
Danke für Deinen Code, der ist genauso gut wie von Case.
MfG
Dieter
Danke für Deinen Code, der ist genauso gut wie von Case.
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
RPP63
01.08.2026 15:00:52
Just for fun
Moin!
Um die Langform eines Monatsnamens in die Monatszahl umzuwandeln, braucht es keine manuelle Auflistung, denn dies hat VBA build-in!
Application.GetCustomListsContents(8) ist Januar … Dezember
Folglich liefert folgende UDF
bei Übergabe von "September" die 9
Aufruf als Test z.B. so:
Ulf hat dankenswerterweise ja die entsprechende Konstanten-Enumeration aufgedröselt.
Gruß Ralf
Um die Langform eines Monatsnamens in die Monatszahl umzuwandeln, braucht es keine manuelle Auflistung, denn dies hat VBA build-in!
Application.GetCustomListsContents(8) ist Januar … Dezember
Folglich liefert folgende UDF
Function Monatszahl&(Monatsname$)
With Application
Monatszahl = .Match(Monatsname, .GetCustomListContents(8), 0)
End With
End Functionbei Übergabe von "September" die 9
Aufruf als Test z.B. so:
Sub Test()
Debug.Print Monatszahl("September")
End SubUlf hat dankenswerterweise ja die entsprechende Konstanten-Enumeration aufgedröselt.
Gruß Ralf
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Alwin Weisangler
01.08.2026 15:18:36
AW: Just for fun
@Ralf
das klappt aber nur so lang niemand da in den benutzerdefinierten Listen drin rum gepfuscht hat. Ich hatte das schon an meinem ehemaligen Arbeitstelle im Sekretariat erlebt.
Gruß Uwe
das klappt aber nur so lang niemand da in den benutzerdefinierten Listen drin rum gepfuscht hat. Ich hatte das schon an meinem ehemaligen Arbeitstelle im Sekretariat erlebt.
Gruß Uwe
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
RPP63
01.08.2026 15:24:04
AW: Just for fun
Moin Uwe!
.GetCustomListsContents(8) ist keine änderbare benutzerdefinierte Auflistung:
Gruß Ralf
.GetCustomListsContents(8) ist keine änderbare benutzerdefinierte Auflistung:
Gruß Ralf
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
RPP63
01.08.2026 15:33:58
Zur Verdeutlichung
Ich habe mal eine "echte" benutzerdefinierte Liste (hier 9) hinzugefügt.
Diese kann ich natürlich editieren oder löschen:
Diese kann ich natürlich editieren oder löschen:
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Alwin Weisangler
01.08.2026 16:18:36
AW: Zur Verdeutlichung
Stimmt, da hast du völlig recht. Man kann nur seine selbst erzeugen Listen manipulieren.
Gruß Uwe
Gruß Uwe
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:28:43
AW: Zur Verdeutlichung
Hallo Uwe,
Danke Deiner Antwort, aber damit habe ich mich noch nicht befasst.
Werde es mal versuchen.
Trotzdem Danke für Deine Ausführung
MfG
Dieter
Danke Deiner Antwort, aber damit habe ich mich noch nicht befasst.
Werde es mal versuchen.
Trotzdem Danke für Deine Ausführung
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
snb
01.08.2026 21:09:27
AW: Just for fun
warum nicht ?
Sub M_snb()
MsgBox Month(CDate("01-" & "September"))
End Sub
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:33:14
AW: Just for fun
Hallo,
Danke Deiner Hilfe, aber das reicht nicht für das was ich möchte.
MfG
Dieter
Danke Deiner Hilfe, aber das reicht nicht für das was ich möchte.
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
snb
01.08.2026 15:23:08
AW: über Text Monat - Datum filtern
Warum kein Pivottabelle ??
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:35:03
AW: über Text Monat - Datum filtern
Hallo snb,
Leider habe ich von einer Pivottabelle keine Ahnung
MfG
Dieter
Leider habe ich von einer Pivottabelle keine Ahnung
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
Dieter
02.08.2026 15:42:20
AW: über Text Monat - Datum filtern
Hallo an Alle,
Vielen Dank nochmals an alle
die an meinem Thema mitgewirkt haben
MfG
Dieter
Vielen Dank nochmals an alle
die an meinem Thema mitgewirkt haben
MfG
Dieter
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
snb
02.08.2026 15:43:01
AW: über Text Monat - Datum filtern
Dann lade mal bitte deine Beispieltabelle hoch.
Forumbeitrag
Excel-Version des Fragestellers:
2016
Erfahrungslevel des Fragestellers:
Excel gut - VBA gut
daniel
03.08.2026 09:46:34
AW: über Text Monat - Datum filtern
Hi
erweitere die Tabelle um eine Hilfsspalte mit der Formel, welche dir den Monatsnamen anzeigt
=TEXT(F2;"MMMM")
dann kannst du in dieser Spalte nach dem konkreten Monatsnamen filtern.
Gruß Daniel
erweitere die Tabelle um eine Hilfsspalte mit der Formel, welche dir den Monatsnamen anzeigt
=TEXT(F2;"MMMM")
dann kannst du in dieser Spalte nach dem konkreten Monatsnamen filtern.
Gruß Daniel