Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Reminder per Variable setzen

Reminder per Variable setzen
14.12.2021 12:18:24
Selina
Guten Tag zusammen
ich hoffe, jemand von Euch Profis hier kann mir bei meinem Vorhaben behilflich sein?
Und zwar gehts um Folgendes:
mittels einer UserForm trage ich diverse Termine nach Outlook in den Kalender ein.
Auf der Userform gibt u.a. auch eine Checkbox (Checkbox5) die dem User ermöglichen soll zu bestimmen, ob zu einem bestimmten Termin ein
Reminder zum Termin in Outlook gesetzt werden soll oder nicht.
Leider aber schaffte ich es bisher nicht, mittels der Checkbox meine Variable für den Reminder korrekt zu befüllen.
die Variable ReminderSet_Vormitag hab mich mittels Dim (ohne Wert) deklariert.
wie kann ich den Zustand der Checkbox5 als True oder False in die Variable ReminderSet_Vormittag korrekt übergeben?
geht das überhaupt?
vielen lieben Dank für Eure Unterstützung
Grüsse: Selina
anbei ein Auschnitt des Codes:

Dim ReminderSet_Vormittag
'es wird ermittelt ob ein Reminder erwünscht ist oder nicht
If CheckBox5.Value = True Then ReminderSet_Vormittag = True Else
ReminderSet_Vormittag = False
If CheckBox1.Value = True Then GoTo Mittagspause:
'Vormittags-Pause eintragen in Outlook
With myItem
.Subject = Bezeichnung_Termin
.Location = "Pausenraum"
.Categories = "Pause"
.Start = Format(MyDate, "dd.mm.yyyy") & " " & Format(Zeitvariable1, "hh:mm")
.Duration = "15"
.ReminderSet = ReminderSet_Vormittag
.ReminderMinutesBeforeStart = 5
.Sensitivity = olPrivate
.Save
End With

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Reminder per Variable setzen
14.12.2021 13:33:44
Yal
Hallo Selina,
Du kannst auch direkt

.ReminderSet = CheckBox5.Value
schreiben, denn CheckBox5.Value schon ein Boolean ist (True oder False).
VG
Yal
AW: Reminder per Variable setzen
14.12.2021 14:00:12
Selina
Hallo Yal
vielen Dank für Deinen Hinweis. Das scheint so zu funktionieren.
wie kann ich nun aber die Zeile "ReminderMinutesBeforeStart" so steuern, dass wirklich kein Reminder gesetzt wird, wenn die Checkbox5.Value false ist?
kann ich das auch irgendwie steuern?
denn aktuell ist es so dass der Reminder durch die Checkbox5 zwar gesetzt oder eben nicht gesetzt wird; dann aber unabhängig von der Checkbox5 gleichwohl ein Reminderminutesbeforstart gesetzt wird:

With myItem
.Subject = Bezeichnung_Termin
.Location = "Pausenraum"
.Categories = "Pause"
.Start = Format(MyDate, "dd.mm.yyyy") & " " & Format(Zeitvariable1, "hh:mm")
.Duration = "15"
.ReminderSet = CheckBox5.Value
.ReminderMinutesBeforeStart = 5
.Sensitivity = olPrivate
.Save
End With
vielen lieben Dank für die Unterstützung!
Anzeige
AW: Reminder per Variable setzen
14.12.2021 14:28:40
Rudi
Hallo,
geraten:

With myItem
.Subject = Bezeichnung_Termin
.Location = "Pausenraum"
.Categories = "Pause"
.Start = Format(MyDate, "dd.mm.yyyy") & " " & Format(Zeitvariable1, "hh:mm")
.Duration = "15"
If CheckBox5 Then
.ReminderSet = True
.ReminderMinutesBeforeStart = 5
End If
.Sensitivity = olPrivate
.Save
End With
Gruß
Rudi
AW: Reminder per Variable setzen
14.12.2021 14:56:56
Yal
Hallo zusammen,
die Lösung von Rudi sieht gut aus. Nicht klar, ist ob der Reminder nicht per Default an ist. Dann müsste man ihn auf False setzen.

If CheckBox5 Then
.ReminderSet = True
.ReminderMinutesBeforeStart = 5
Else
.ReminderSet = False
End If
Deiner Frage nach ist es so zu verstehen, dass das Setzen von einem "ReminderMinutesBeforeStart" dazu führt, dass der "ReminderSet" wieder an gesetzt wird.
Dann müsstest Du zuerst den "ReminderMinutesBeforeStart" und anschliessend den "ReminderSet " setzen. Der letzte, der spricht ...

.ReminderMinutesBeforeStart = 5
.ReminderSet = CheckBox5
VG
Yal
Anzeige
AW: Reminder per Variable setzen
14.12.2021 15:56:38
Selina
Funktioniert nun prima!
vielen lieben Dank Euch allen für Eure Unterstützung!
einen schönen Restnachmittag noch:
Selina
AW: Reminder per Variable setzen
14.12.2021 18:03:57
Luschi
Hallo Selina,
auch wenn es funktioniert, sollte man den korrekten Datentyp übergeben:
.Start = CDate(Format(MyDate, "dd.mm.yyyy") & " " & Format(Zeitvariable1, "hh:mm"))
.Duration = 15
Gruß von Luschi
aus klein-Paris

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige