30.09.2021, 16:11
Hallo,
ich möchte aus meinem Excel per Button den Outlook Kalender aufmachen, um einen Termin zu vereinbaren.
Outlook soll sich Vollbild öffnen, es soll die Wochenansicht der aktuellen Woche angezeigt werden und im Idealfall wird das gewählte Datum & Uhrzeit im Excel angezeigt werden (ob in einer Zelle oder zwei, soll mir egal sein :D)
Ein kleines "Legerl" gibt es noch: es sind mehrere Kalender verfügbar, ich möchte den vom Chef sehen ("Karl")
Kann mir jemand helfen? Ich hab schon ein paar Sachen in meiner Google-Suche gefunden, aber meine Anforderungen erfüllt keiner so recht, ich versteh den Code aber zu wenig, um ihn selbst anzupassen..
Hier der Code, der die Sache am Nähesten trifft:
Danke!
ich möchte aus meinem Excel per Button den Outlook Kalender aufmachen, um einen Termin zu vereinbaren.
Outlook soll sich Vollbild öffnen, es soll die Wochenansicht der aktuellen Woche angezeigt werden und im Idealfall wird das gewählte Datum & Uhrzeit im Excel angezeigt werden (ob in einer Zelle oder zwei, soll mir egal sein :D)
Ein kleines "Legerl" gibt es noch: es sind mehrere Kalender verfügbar, ich möchte den vom Chef sehen ("Karl")
Kann mir jemand helfen? Ich hab schon ein paar Sachen in meiner Google-Suche gefunden, aber meine Anforderungen erfüllt keiner so recht, ich versteh den Code aber zu wenig, um ihn selbst anzupassen..
Hier der Code, der die Sache am Nähesten trifft:
Code:
Sub ShowCalendar()
Dim olApp As Outlook.Application
Dim olNs As Namespace
On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")
If Err.Number = 429 Then
Set olApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olNs = olApp.GetNamespace("MAPI")
If olApp.ActiveExplorer Is Nothing Then
olApp.Explorers.Add _
(olNs.GetDefaultFolder(olFolderCalendar)).Activate
Else
Set olApp.ActiveExplorer.CurrentFolder = _
olNs.GetDefaultFolder(olFolderCalendar)
olApp.ActiveExplorer.Display
End If
Set olNs = Nothing
Set olApp = Nothing
End SubDanke!
