mehrere Einträge im Kalender

Forumthread: mehrere Einträge im Kalender

13.10.2024 12:42:47

Marcus

Guten Morgen,

ich habe einen Kalender nach einem Youtube Video nachgebaut und funktioniert einwandfrei.

Leider habe ich im Vorfeld nicht beachtete, dass ich nur 1 Ereignis pro Tag eintragen lassen kann mit dem Kalender.

Ich bräuchte aber die Möglichkeit mehrere z.B. Geburtstage an einem Tag anzeigen zu lassen.

Hat jemand einen Tipp oder kann sonst wie weiterhelfen, bitte?

Danke im voraus
und einen schönen Sonntag
Marcus

https://www.herber.de/bbs/user/172857.xlsm

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ändere die Formel...

13.10.2024 13:06:29

Case
AW: mehrere Einträge im Kalender

13.10.2024 21:28:19

Marcus
AW: mehrere Einträge im Kalender

13.10.2024 21:51:45

Onur
Wenn du das möchtest,...

14.10.2024 10:29:51

Case
AW: Ändere die Formel...

13.10.2024 14:57:02

Onur
AW: Ändere die Formel...

13.10.2024 20:35:03

Marcus
AW: Ändere die Formel...

13.10.2024 20:38:30

Onur
AW: Ändere die Formel...

13.10.2024 20:33:37

Marcus
AW: Ändere die Formel...

14.10.2024 22:44:56

Marcus
Da muss man etwas...

15.10.2024 04:30:56

Case

Ändere die Formel...

13.10.2024 13:06:29

Case

Moin, :-)

... so ab: ;-)

=WENN(E8>"";TEXTVERKETTEN(", ";WAHR;FILTER(Termine!$B$6:$B$185;Termine!$D$6:$D$185=E8;""));"")&WENN(WOCHENTAG(E8)=2;" KW"&ISOKALENDERWOCHE(E8);"")

Servus
Case

AW: mehrere Einträge im Kalender

13.10.2024 21:28:19

Marcus

Hallo zusammen,

jetzt meinte mein Sohn es wäre noch cool, wenn der Eintrag Kalenderwoche KWxy farbig wäre.

Kann man das in der Formel einbauen? mit bedingter Formatierung komme ich nicht auf das KW mit Zahl runter und per VBA habe ich keinen Plan, wie.

Hier der z.B. Code

=WENN(W34>"";TEXTVERKETTEN(", ";WAHR;FILTER(Termine!$B$6:$B$1850;Termine!$D$6:$D$1850=W34;""));"")&WENN(WOCHENTAG(W34)=2;" KW"&ISOKALENDERWOCHE(W34);"")

Danke im voraus Marcus

AW: mehrere Einträge im Kalender

13.10.2024 21:51:45

Onur

"Kann man das in der Formel einbauen?" ? Eine Formel kann keine Zellen färben.
Ginge über bedingte Formatierung, aber immer nur für die GANZE Zelle, nicht nur für den Eintrag "KWxy".

Wenn du das möchtest,...

14.10.2024 10:29:51

Case

Moin Marcus, :-)

... musst du auf VBA zurückgreifen. ;-)

Allerdings ändert das ein paar Dinge. Es kommt auch darauf an, wie mit dem Kalender gearbeitet wird. ;-)

Servus
Case

AW: Ändere die Formel...

13.10.2024 20:35:03

Marcus

@Onur, funktioniert auch perfekt - wo liegt der Unterschied? zwischen den 2 Formeln?

Dankeschön
Marcus

AW: Ändere die Formel...

13.10.2024 20:38:30

Onur

Keine Ahnung - warum soll ich mir jetzt noch andere Lösungsmöglichkeiten anschauen? Es gibt bestimmt Tausende davon. :)

AW: Ändere die Formel...

13.10.2024 20:33:37

Marcus

besten Dank funktioniert einwandfrei.

AW: Ändere die Formel...

14.10.2024 22:44:56

Marcus

@case

bei deinem Code wo muss ich das (10) für Zeilenumbruch einfügen?

=WENN(A4>"";TEXTVERKETTEN(", ";WAHR;FILTER(Termine!$B$6:$B$1850;Termine!$D$6:$D$1850=A4;""));"")&WENN(WOCHENTAG(A4)=2;" KW"&ISOKALENDERWOCHE(A4);"")

Danke
Marcus

Da muss man etwas...

15.10.2024 04:30:56

Case

Moin Marcus, :-)

... aufpassen, ob nur KW oder KW plus Geburtstage/Feiertage in der Zelle steht: ;-)

=WENN(M14>"";TEXTVERKETTEN(ZEICHEN(10);WAHR;FILTER(Termine!$B$6:$B$185;Termine!$D$6:$D$185=M14;""));"")&WENN(WOCHENTAG(M14)=2;WENN(LÄNGE(TEXTVERKETTEN(ZEICHEN(10);WAHR;FILTER(Termine!$B$6:$B$185;Termine!$D$6:$D$185=M14;"")))>0;ZEICHEN(10);"")&"KW"&ISOKALENDERWOCHE(M14);"")

Oder, wenn du die KW am Anfang willst: ;-)

=WENN(WOCHENTAG(M14)=2;"KW"&ISOKALENDERWOCHE(M14)&WENN(M14>"";ZEICHEN(10);"");"")&WENN(M14>"";TEXTVERKETTEN(ZEICHEN(10);WAHR;FILTER(Termine!$B$6:$B$185;Termine!$D$6:$D$185=M14;""));"")

Bereiche anpassen.

Servus
Case

Forumthread: mehrere Einträge im Kalender

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread