---

Kalender.zip

Hallo zusammen,

ich habe einen Kalender in dem die Feiertage, Geburtstage und weitere Termine eingetragen werden.
Das funktioniert auch so weit ganz gut aber mein Problem ist jetzt das es für einen Tag mehrere Einträge gibt und nur einer angezeigt wird! 

Wie muss das Makro geändert werden das alle Einträge zu einem Tag angezeigt werden?

LG aus Hof

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo guentam,

in welcher Zelle ist das beispielsweise der Fall? (Habe keine Lust, 366 Zellen per Hand zu durchforsten - SCNR)

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tamara

Du musst da, wo du den Feiertag,Geburtstag und Termin einträgst, eine Abfrage einbauen, ob die Zelle noch leer ist.

zB. für den Geburtstag so

Code:

---

If Cells(t, m + 2) = "" Then
    Cells(t, m + 2) = namg(e)                      ' Geburtstag eintragen
Else
    Cells(t, m + 2) = Cells(t, m + 2) + Chr(10) + namg(e)  ' Geburtstag hinzufügen
End If

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

z.b. am 21.03. habe ich 2 Geburtstage!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

An welcher Stelle muss ich den Code eintragen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi, im Modul Termine, hier:

Code:

---

' Geburtstage eintragen
For e = 3 To zg
    For t = 3 To 33                                            ' Schleife für Tage pro Monat
        For m = 1 To 49 Step 4                                  ' Schleife für Monate
            If Left(Cells(t, m), 6) = Left(termg(e), 6) Then    ' Datum im Kalenderblatt mit dem eingelesenen Datum vergleichen
                Cells(t, m + 2).Font.ColorIndex = 5            ' Farbe der Schrift = blau
                'Cells(t, m + 2) = namg(e) ersetzen mit Henrys Code                      ' Geburtstag eintragen
            End If                                              ' Ende der Bedingung
        Next m
    Next t
Next e

---

Also die Zeile, die den Eintrag vornimmt, erweitern um

Code:

---

If Cells(t, m + 2) = "" Then
    Cells(t, m + 2) = namg(e)                      ' Geburtstag eintragen
Else
    Cells(t, m + 2) = Cells(t, m + 2) + Chr(10) + namg(e)  ' Geburtstag hinzufügen
End If

---

Ungetestet! Viel Glück.

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, hat geklapt ! 

Was muss ich ändern damit ich auch noch die Termine und die Feiertage angezeigt bekomme wenn z.B. schon ein Geburtstag drinnen steht?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tamara

Das kannst du analog machen.

Für Feiertage

Code:

---

Cells(t, m + 2) = feiert(e)              ' ...Name des Feiertags aus Tabelle Termine

---

ersetzen mit

Code:

---

If Cells(t, m + 2) = "" Then
    Cells(t, m + 2) = feiert(e)                    ' ...Name des Feiertags aus Tabelle Termine
Else
    Cells(t, m + 2) = Cells(t, m + 2) + Chr(10) + feiert(e)
End If

---

Für Termine

Code:

---

Cells(t, m + 2) = termin(e)                    ' ...Termin eintragen

---

ersetzen mit

Code:

---

If Cells(t, m + 2) = "" Then
    Cells(t, m + 2) = termin(e)                      ' Termin eintragen
Else
    Cells(t, m + 2) = Cells(t, m + 2) + Chr(10) + termin(e)  ' Termin hinzufügen
End If

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

XL2003Kalender_mitgeb_in_Kommentaren.zip

oder die Geb-Daten in den Kommentar reinschreiben.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, danke für die Hilfe 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP