Exel Kalender Datum immer oben

[RPP63]

Moin Günter!
Du berücksichtigst nicht die Spalten ab E
Aus der Threaderöffnung:

Aber ich möchte es so haben das wenn ich den Kalender öffne das heutige Datum und Ereignisse in der ersten Reihe stehen , weil es ja sonst immer weiter nach unten wandert .
Im Moment lösche ich die vergangenen Ereignisse einfach .
Nur da kann ich auch nicht zurückschauen .

Gruß Ralf

[redeagle56]

Hallo,
der User schreibt nicht, was in den Spalten ab "E" eingetragen werden soll.
Er sagt auch nicht, wie weit er zurückschauen will.
Eine genauere Beschreibung des Users wäre hilfreich.
Für diese Spalten könnte man Extra-Arbeitsblätter anlegen und diese Daten
dann in den Kalender holen.
Was heißt "Entsorgen"?

MfG Günter

[Egon12]

Hallo Wolfgang,

3 Wege ohne VBA:

1. den Filter nutzten auf dem aktuellen Tabellenblatt
2. Auf anderen Tabellenblatt Ausgabe via Funktion FILTER()
3. Auf anderen Tabellenblatt Ausgabe per Power Querry

2 Wege mit VBA:

1. Alle Zeilen vor aktuellen Datum Ausblenden/Einblenden per Button auf dem aktuellen Tabellenblatt
2. Ausgabe ab aktuelles Datum auf anderes Tabellenblatt

Was ist dein bevorzugter Weg?

Ich würde es so machen:
-Neues Tabellenblatt anlegen --> Kopfzeile aus Blatt "Kalender" kopieren und in neues Blatt einfügen --> Formel in A2:

Code:

=LET(xA;FILTER(Kalender!A2:K10000;(Kalender!C2:C10000<>"")*(Kalender!C2:C10000>=HEUTE()));WENN(xA=0;"";xA))

Gruß Uwe

[RPP63]

@Uwe:
Ich habe gerade bemerkt, dass (abseits des ABSCHNBEREICH()-Punktes) mittlerweile die Kopfzeile übernommen wird, obwohl die Filterbedingung dies "eigentlich" ausschließt.
(gilt für mein 365)
Die Spalte C formatiere ich als Datum, die anderen benutzerdefiniert mit Standard;;;@
=FILTER(Kalender!A:.K;Kalender!C:.C>=HEUTE())

	A	B	C
1	KW	Tag	Datum
2		Samstag	02.05.2026
3	19	Sonntag	03.05.2026
4		Montag	04.05.2026
5		Dienstag	05.05.2026
6		Mittwoch	06.05.2026

Zelle	Format	Wert
A2	Standard;;;@	0
C2	TT.MM.JJJJ	02.05.2026

Zelle	Formel
A1	=FILTER(Kalender!A:.K;Kalender!C:.C>=HEUTE())

Gruß Ralf

[Egon12]

@Ralf,

Das schaue ich mir an, nachdem ich meinen knurrenden Magen beruhigt bekommen habe.

Gruß Uwe

[Wolfgang Hille]

Danke Euch allen.
Hat geklappt mit VBA
Schönes Wochenende

[RPP63]

Nachtrag zum Thema FILTER() und Überschriftenzeile.
Diese wird nur dann übernommen, wenn die Überschrift (immer Text) ein anderes Format wie der Rest der Kriterienspalte hat.
(Datum oder Zahl)

Dies übernimmt die Überschrift:

	A	B	C	D	E
1	Name	Wert		Name	Wert
2	A	9		A	9
3	B	-6		F	6
4	C	-7		L	5
5	D	-13		M	11
6	E	-8		O	8
7	F	6
8	G	-15
9	H	-11
10	I	-1
11	J	-14
12	K	-7
13	L	5
14	M	11
15	N	0
16	O	8

Zelle	Formel
D1	=FILTER(A:.B;B:.B>0)

Dies nicht (weil Spalte A komplett Text ist):

	A	B	C	G	H
1	Name	Wert		L	5
2	A	9
3	B	-6
4	C	-7
5	D	-13
6	E	-8
7	F	6
8	G	-15
9	H	-11
10	I	-1
11	J	-14
12	K	-7
13	L	5
14	M	11
15	N	0
16	O	8

Zelle	Formel
G1	=FILTER(A:.B;A:.A="L")

[Egon12]

@Ralf,
 
Ich war zu faul die Überschrift zu formatieren, deshalb hatte ich FILTER() ab Zeile 2 gesetzt. Die Formel von mir übernimmt natürlich die Überschriften mit, wenn ab Zeile 1 gefiltert wird.
Ach so, und natürlich reicht da schon:
=FILTER(Kalender!A:K;Kalender!C:C>=HEUTE())
 
Gruß Uwe