Kalender. Anzeige eines falschen Datums

Hallo,
ich habe folgendes Problem mit meinem Kalender (dieser wurde von Hajo programmiert, ich habe es nur an meinen Fall etwas angepasst). Und zwar:
Wenn ich auf eine Zelle in der Spalte Termin einen Rechtsklick tätige, dann tut der Kalender das, was er tun soll: Er öffnet sich und markiert das heutige Datum gelb.
Wenn sich jedoch in der Zelle der Spalte "Thema" in gleicher Höhe ein Text befindet, dann springt er plötzlich in ein Datum des Jahres 2017. (Das Programm sieht vor, dass sich die Spalte Termin auch über die Spalte "Thema" bearbeiten lässt, es öffnet sich bei Rechtsklick eine Userform, deshalb ist hier eine Verknüpfung zwischen beiden Spalten.
Hat jemand eine Idee, woran dies liegen könnte?
Ohne Text:
Userbild

Mit Text:

Vielen Dank im voraus
Gruß
Datei:
https://www.herber.de/bbs/user/121504.xlsm
Idence
Anm: Ich habe aus der Datei alle Dinge entfernt, die nichts der Beantwortung der Frage beitragen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris & Idence,
Dein Korrekturvorschlag ist zwar am Ende wirkungsvoll, aber nicht die Ursache des Problems
In der Routine 'UserForm_Activate' löst dieser Befehl:
Cbo_Jahr = Year(DaDatumUe)
die Ereignis-Routine: Cbo_Jahr_Change() aus
Darin soll 'If Cbo_Jahr.Tag = "" Then' soll dabei verhindern, daß der Inhalt der Ereignis-Routine gestartet wird, wenn noch nicht alle Bedingungen erfüllt sind (z.B. CB-Box 'Monat' noch nicht gefüllt).
Leider wurde diese Eigenschaft vorher aber auf '1' gesetzt und somit wird der Kalender erstellt mit folgendem Datum: 1.12.2017.
Das selbe Spiel beim Setzen der CB-Box 'Monat'. Richtig funktioniert es mit folgenden Änderungen im
'UserForm_Activate'-Ereignis:
Cbo_Jahr.Tag = "1" ' damit Erstellen bei Change nicht auslöst
Cbo_Jahr = Year(DaDatumUe) ' Anzeige des Jahres
Cbo_Jahr.Tag = "" ' damit Erstellen bei Change ausgelöst wird
und
Cbo_Monat.Tag = "1" 'damit Erstellen bei Change nicht auslöst
Cbo_Monat = Format(DaDatumUe, "MMMM") 'Anzeige des aktuellen Monats
Cbo_Monat.Tag = "" 'damit Erstellen bei Change ausgelöst wird
Damit wird verhindert, das die Erstellung des Kalender während der Initialisierung des Kalender-Forlumars 2 mal sinnlos mit falschen Daten ausgelöst wird.
Erst der nachfolgende Befehl löst dann die Erstellung mit den richtigen Daten (z.Z. 01.05.2018) aus:
Erstellen DateSerial(Cbo_Jahr, Cbo_Monat.ListIndex + 1, 1).
Gruß von Luschi
aus klein-Paris

If Target.Column = 4 And Target.Row > 2 Then Eingabetool.Termin = ActiveCell.Offset(0, 6) Call Eingabetool.Show Cancel = True ElseIf Target.Column = 10 And Target.Row > 2 Then Eingabetool.Termin = ActiveCell.Offset(0, -6) Cancel = True End If

Beliebteste Forumthreads (12 Monate)

Kalender. Anzeige eines falschen Datums

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kalender. Anzeige eines falschen Datums

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread