Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel-Termine via Makro in Outlook importieren

Excel-Termine via Makro in Outlook importieren
25.07.2007 14:41:45
Markus
Hallo!
Gibt es eine Möglichkeit via Makro (ich wollte nen Button einbauen), Termine in Outlook zu importieren.
Derzeit gehe ich den Schritt über Outlook direkt (Datei -> Daten importieren -> aus Excel ...). Dabei soll die Option "Dublikate durch importierte Elemente ersetzen" gelten. Eine entsprechende Bereichszuordnung in der Excel-Tabelle ist unter dem Namen "Kalender" von Zelle A1 bis F103 bereits definiert.
Wäre recht angenehm wenn das klappen würde.
Dabei habe ich folgende Zuordnung der Spaltenüberschriften für die Outlook-Termine:
[Outlook Feldname] --> [Excel Spaltenüberschrift]
Betreff --> Bezeichnung 1
Beginnt am --> Datum (Datum)
Beginnt um --> Uhrzeit von (Zeit)
Endet um --> Uhrzeit bis (Zeit)
Erinnerung Ein/Aus --> Erinnerung
Ort --> Bezeichnung 2
Zur Info: Von VBA habe ich leider nicht wirklich die Ahnung - eigentlich gar keine. Fall hier jemand ein Code postet, den ich dann einfach über Copy&Paste für den Button hinterlegen muss, wäre ich SEEEHR DANKBAR!
Viele Grüße
Markus

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Termine via Makro in Outlook importieren
27.07.2007 11:58:00
gerwas
Hallo Markus
Dein Problem könnte eventuell hiermit gelöst sein.
Es gibt aber einige Bedingungen.
1. Deine Termine stehen im Bereich A1:F103 in der Order wie du sie angegeben hast.
2. Die erste Zeile ist die Überschrift
3. In den Zellen Beginnt am steht ein ordentliches Datum 01.06.07 z.B.
4. In den Zewllen Beginnt um und Endet um steht eine ordentliche Uhrzeit 13:00 z.B.
5. Endet um liegt nicht im nächsten Tag
6. Die Tabelle mit deinen Terminen ist "active"
7. in spalte Erinnerung ein/aus steht Wahr oder Falsch
Viel Spaß
GerWas

Sub termin_einlesen()
Dim apti As Outlook.AppointmentItem
zl = Cells(2, 1).Value
k = 2 'beginne in zeile 2
Do While zl &lt &gt "" And k &lt 104 'sobald nichts mehr drinsteht aufhören
Set apti = CreateObject("Outlook.application").CreateItem(olAppointmentItem)
apti.Subject = Cells(k, 1) 'betreff
apti.Start = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 3).Value)) 'beginn
apti.End = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 4).Value)) 'endet
apti.ReminderSet = Cells(k, 5).Value
'apti.ReminderMinutesBeforeStart = 60 'erinnerung in minuten
apti.Location = Cells(k, 6).Value
'apti.Display  ' wenn du den termin noch ansehen willst das ' vorn wegnehmen
apti.Save
k = k + 1
Loop
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel-Termine in Outlook importieren


Schritt-für-Schritt-Anleitung

Um Termine aus Excel in Outlook zu importieren, kannst Du ein einfaches VBA-Makro verwenden. Hier sind die Schritte, die Du befolgen solltest:

  1. Vorbereitung der Excel-Tabelle: Stelle sicher, dass Deine Excel-Tabelle die folgenden Spaltenüberschriften in Zeile 1 hat:

    • Bezeichnung 1 (für den Betreff)
    • Datum (für das Startdatum)
    • Uhrzeit von (für den Startzeitpunkt)
    • Uhrzeit bis (für den Endzeitpunkt)
    • Erinnerung (Wahr/Falsch)
    • Bezeichnung 2 (für den Ort)
  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Neues Modul erstellen:

    • Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  4. VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub termin_einlesen()
       Dim apti As Outlook.AppointmentItem
       zl = Cells(2, 1).Value
       k = 2 'beginne in Zeile 2
       Do While zl <> "" And k < 104 'sobald nichts mehr drinsteht aufhören
           Set apti = CreateObject("Outlook.application").CreateItem(olAppointmentItem)
           apti.Subject = Cells(k, 1) 'betreff
           apti.Start = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 3).Value)) 'beginn
           apti.End = CDate(Cells(k, 2).Value & " " & CDate(Cells(k, 4).Value)) 'endet
           apti.ReminderSet = Cells(k, 5).Value
           apti.Location = Cells(k, 6).Value
           apti.Save
           k = k + 1
           zl = Cells(k, 1).Value
       Loop
    End Sub
  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Du kannst das Makro jetzt über Entwicklertools > Makros ausführen.

  6. Button hinzufügen (optional): Wenn Du einen Button hinzufügen möchtest, kannst Du dies unter Entwicklertools > Einfügen tun und das Makro dem Button zuordnen.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht erkannt

    • Stelle sicher, dass das Datum im richtigen Format (z.B. TT.MM.JJJJ) in den Zellen steht.
  • Fehler: Makro läuft nicht

    • Überprüfe, ob Du die richtigen Berechtigungen hast, um Makros auszuführen. Möglicherweise musst Du die Makrosicherheitseinstellungen anpassen.
  • Fehler: Outlook öffnet sich nicht

    • Stelle sicher, dass Outlook auf Deinem Computer installiert und konfiguriert ist.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch manuell Termine in Outlook importieren:

  1. Öffne Outlook und gehe zu Datei > Öffnen und Exportieren > Importieren/Exportieren.
  2. Wähle Aus anderen Programmen oder Dateien importieren.
  3. Wähle Microsoft Excel aus und folge den Anweisungen, um Deine Excel-Datei auszuwählen.
  4. Mappe die Excel-Spalten mit den Outlook-Feldern entsprechend der oben genannten Zuordnung.

Praktische Beispiele

Nehmen wir an, Du hast folgende Daten in Excel:

Bezeichnung 1 Datum Uhrzeit von Uhrzeit bis Erinnerung Bezeichnung 2
Meeting 01.06.2023 09:00 10:00 Wahr Konferenzraum
Arzttermin 02.06.2023 15:00 16:00 Falsch Arztpraxis

Mit dem oben genannten VBA-Code werden diese Termine automatisch in Deinen Outlook-Kalender importiert.


Tipps für Profis

  • Makro optimieren: Du kannst das Makro anpassen, um zusätzliche Felder wie Notizen oder Kategorien hinzuzufügen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen im VBA-Code, um sicherzustellen, dass das Makro auch bei Problemen nicht abstürzt.
  • Automatisierung: Du kannst den Import-Prozess automatisieren, indem Du das Makro bei bestimmten Ereignissen ausführen lässt (z.B. beim Öffnen der Datei).

FAQ: Häufige Fragen

1. Kann ich auch Termine aus Outlook nach Excel exportieren?
Ja, Du kannst die Funktion Outlook Kalender als Excel exportieren verwenden, um Deine Termine in eine Excel-Datei zu exportieren.

2. Muss ich Outlook geöffnet haben, während ich das Makro ausführe?
Ja, Outlook muss geöffnet sein, damit das Makro die Termine importieren kann.

3. Funktioniert das Makro auch in älteren Excel-Versionen?
Der VBA-Code sollte in den meisten Excel-Versionen funktionieren, aber teste es am besten in der Version, die Du verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige