Hallo zusammen.
Wie kann ich per VBA einen bestimmten Kalender auswählen, und die Auswahl in $A$1 Speichern?
Danke und Gruss
Werner
Option Explicit
Sub GetOutlookCalendar()
Dim objOlApp As Object, objOlNS As Object
Dim objOlFldr As Object, objSubFldr As Object
Dim k As Long
Set objOlApp = CreateObject("Outlook.Application")
Set objOlNS = objOlApp.GetNamespace("MAPI")
k = 1
For Each objOlFldr In objOlNS.Folders
For Each objSubFldr In objOlFldr.Folders
If objSubFldr.Name = "Kalender" Then
Sheets("Tabelle1").Cells(k, 1) = objOlFldr.Name
Sheets("Tabelle1").Cells(k, 2) = objSubFldr.Name
k = k + 1
End If
Next
Next
Set objOlNS = Nothing
Set objOlApp = Nothing
End Sub
Um einen bestimmten Outlook-Kalender per VBA auszuwählen und die Auswahl in einer Excel-Zelle zu speichern, kannst du folgendes Vorgehen nutzen:
ALT + F11, um den VBA-Editor zu öffnen.Option Explicit
Sub GetOutlookCalendar()
Dim objOlApp As Object, objOlNS As Object
Dim objOlFldr As Object, objSubFldr As Object
Dim k As Long
Set objOlApp = CreateObject("Outlook.Application")
Set objOlNS = objOlApp.GetNamespace("MAPI")
k = 1
For Each objOlFldr In objOlNS.Folders
For Each objSubFldr In objOlFldr.Folders
If objSubFldr.Name = "Kalender" Then
Sheets("Tabelle1").Cells(k, 1) = objOlFldr.Name
Sheets("Tabelle1").Cells(k, 2) = objSubFldr.Name
k = k + 1
End If
Next
Next
Set objOlNS = Nothing
Set objOlApp = Nothing
End SubTabelle1 anzuzeigen.Problem: Das Makro findet keinen Kalender.
Problem: Der Zugriff auf Outlook wird verweigert.
Falls du nicht mit VBA arbeiten möchtest, kannst du die Outlook-Kalender auch manuell in Excel importieren:
Ein praktisches Beispiel könnte sein, einen Geburtstagskalender in Outlook zu erstellen und diesen über das VBA-Skript auszulesen. Du kannst die Geburtstage dann in Excel verwalten und vielleicht auch Erinnerungen für diese Termine setzen.
Debug.Print-Funktion im VBA-Code, um die Namen der Kalender und deren Struktur zu überprüfen.Items.Add-Methode von Outlook verwendest.1. Wie kann ich einen Termin in einen bestimmten Outlook-Kalender eintragen?
Du kannst die Items.Add-Methode in VBA verwenden, um einen neuen Termin in den gewünschten Kalender einzufügen.
2. Wie kann ich die Kalenderwochen (KW) in Outlook anzeigen? In Outlook kannst du die Kalenderwochen in den Einstellungen aktivieren. Gehe dazu auf "Optionen" und aktiviere die Anzeige der Kalenderwochen in der Kalenderansicht.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen