Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1204to1208
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
Termine ins Outlook eintragen
Pascal
Guten Tag allerseits
Ich habe mir - anhand eines Lösungsansatzes hier aus dem Forum - eine kleine Funktion zusammengebastelt die folgendes tun soll:
Auf einer Excel-Arbeitsmappe hab ich verschiedene Knöpfe für verschiedene Schichten
Je nachdem welchen "Schicht-Knopf" ich nun drücke, soll ein Pop-Up kommen in welchem der User das von und bis-Datum eintippt.
nach OK wird die entsprechende Zeitspanne im Outlook mittels einem entsprechenden Termineintrag versehen.
Im Moment sieht mein Code wie folgt aus:
Sub Term_Outl_1()
Dim myOLApp As Object
Dim myItem As Object
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(1)
With myItem
.Subject = "S01: Hotline früh, 06:00-15:00"
.Location = "Büro SCSW"
.Start = Format(Range("A1").Value, "dd.mm.yyyy") & " " & Format(Range("B1").Value, "hh:mm")
.Duration = "540"
'.ReminderMinutesBeforeStart = 10
'.ReminderPlaySound = True
'.ReminderSet = True
.Save
End With
MsgBox "Schicht wurde in Outlook eingetragen !"
Set myOLApp = Nothing
Set myItem = Nothing
End Sub
Wie könnte ich nun also noch die Abfrage einbauen, um den User aufzufordern, noch die von- bis- Datums einzutippen ?
Ich dachte da irgendwie an eine Inputbox (mit der Möglichkeit abzubrechen).
doch da hört leider mein VBA - Wissen bald schon auf :-(
Danke für Eure Hilfe mit Vorschlägen !!!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Termine ins Outlook eintragen
25.03.2011 18:06:17
Dennis
Bau Dir eine Userform, die geöffnet wird. Auf der zwei Textboxen für Start und Ende setzen, einen Button mit Abbrechen und einen für OK.
Auf den OK Button eine If-Abfrage, ob die Textboxen befüllt sind und wenn ja, dann Deinen o.a. Code ausführen lassen.
AW: Termine ins Outlook eintragen
26.03.2011 07:30:59
Pascal
Hi !
Danke schon mal für die Idee mit der UserForm...
werde nun mal versuchen sowas zu bauen.
ggf. komm ich dann mit weiteren Fragen hier :-)
AW: Termine ins Outlook eintragen
26.03.2011 10:08:38
Martin
Hallo Pascal,
hier als Ansatz. Sicherlich nicht die eleganteste Lösung aber es funktioniert. Im Forum findest du raus wie man die Eingabe eines Datums erzwingen kann. Du wirst auch Falschangaben abfangen müssen.
https://www.herber.de/bbs/user/74130.xls
Gruß
Martin
Anzeige
AW: Termine ins Outlook eintragen
26.03.2011 10:16:39
Pascal
Besten Dank !
das schau ich mir gleich mal in Ruhe an :-)
AW: Termine ins Outlook eintragen
26.03.2011 12:36:55
Pascal
Danke für All Eure Hilfe !
Ich glaube mein Makro läuft eigentlich schon recht gut, oder zumindst etwa so wie ich ich es mir vorgestellt habe.
Einzig hab ich noch folgende Unschönheit, bei der ich leider nicht weiterkomme.
Und zwar rufe ich eine Inputbox auf, in welche der User das Datum eintragen muss.
Die Inputbox hat die Schaltflächen OK und Abbrechen
Wenn man OK drückt, läuft das Makro korrekt weiter
Wenn ich Abbrechen drücke, so bricht das Makro mit einem Laufzeitfehler 13 ab:
Datumsvariable = InputBox$("Bitte geben Sie das Datum der " & CommandButton1.Caption & "-Schicht ein !", "Datum eingeben")
was mach ich noch falsch ?
oder ... wie kann ich bewerkstelligen, dass wenn jemand Abbrechen drückt, das Makro auch korrekt beendet wird (ohne Laufzeitfehler ?)
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige