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

Geburtstage in Outlook importieren

Forumthread: Geburtstage in Outlook importieren

Geburtstage in Outlook importieren
27.03.2003 13:38:57
Boris
Hi Leute,

ist es möglich, aus eine Exceldatei Geburtstage in den Outlook-Kalender zu importieren?
In "Kundendatei.xls" Blatt 1 stehen in Spalte A die Namen, in Spalte B die Geburtsdaten im Format TT.MM.JJJJ.

Habe von Outlook-VBA nicht die geringste Ahnung - daher weiss ich auch nicht, welche Angaben - wenn es denn grundsätzlich möglich ist - von Nöten sind.

Die Recherche gibt zwar zum Thema "Geburtstag" ne Menge her - allerdings nicht in Verbindung mit Outlook.

Gruß Boris



Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Geburtstage in Outlook importieren
27.03.2003 14:19:48
FCH

Hi Boris,

daran beiße ich mir auch schon lange die Zähne aus. Man kann offensichtlich mit Excel-VBA nicht auf die Serienfunktion in Outlook zugreifen. Im Augenblick helfe ich mir mit einer Krüke und mache einen Umweg über den Kontakteordner:

Option Explicit

Sub hindamit()
Dim olApp As Outlook.Application
Dim olGeb As Outlook.ContactItem
Set olApp = New Outlook.Application
Set olGeb = olApp.CreateItem(olContactItem)
olGeb.LastName = "Muster"
olGeb.FirstName = "Boris"
olGeb.Birthday = "12.03.1977"
olGeb.Display
‘olGeb.Save
End Sub

Der Verweis auf die Outlook-Bibliothek muss gesetzt werden.

Es wird automatisch der Geburtstag auch in den Kalender eingetragen

Gruß
FCH

Anzeige
Jau, das haut hin!
27.03.2003 14:33:45
Boris

Hi FCH (soll ich dich eigentlich so oder so nennen?),

charmant, wie jung du mich doch machst;-))

Das funktioniert prima.
Geht das dann auch mit ner Schleife genauso (hab´s noch nicht probiert)? (sind so ca. 2000!)

Gruß Boris


Re: Jau, das haut hin!
27.03.2003 14:39:39
FCH

Hi Boris,

FCH :-)

Klas geht das auch innerhalb einer Schleife. Da bietet sich For Each geradezu an.

Gruß
FCH

Anzeige
Merci, FCH!!!
27.03.2003 14:40:33
Boris

Dann werd ich das Ding gleich mal laufen lassen;-))

Gruß Boris

bei 2000 nimm dir Zeit o.T.
27.03.2003 14:49:05
FCH

.

Hab´s schon gemerkt und...
27.03.2003 15:25:05
Boris

Hi FCH,

...clevererweise erstmal mit 10 ausprobiert.
Aber Zusatzfrage:
Die Outlook-Maske bleibt immer stehen, so dass nachher 10 (und später 2000!) geöffnet sind.
Wie muss ich den Code erweitern?
Er sieht momentan so aus:

Gruß Boris


Anzeige
Re: Hab´s schon gemerkt und...
27.03.2003 15:37:30
FCH

Hi Boris,

nur wo Display draufsteht ist wir auch gedisplayed, nimm das raus.

Gruß
FCH

Ich Trottel versuchs die ganze Zeit ...
27.03.2003 15:44:06
Boris

Hi FCH,

...mit Display.Close und so nen Quatsch...

Das läuft, und läuft, und läuft...:-))
Mach jetzt Feierabend und schau morgen früh mal nach, ob der Datentransfer fertig ist;-))

Gruß Boris

Anzeige
Sorry, jetzt musste ich lachen o.T.
27.03.2003 15:47:08
FCH

.

Das sollst du auch, so viel Blödheit...
27.03.2003 16:02:25
Boris

...muss belacht werden! ;-)

Gruß Boris

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Geburtstage in Outlook importieren


Schritt-für-Schritt-Anleitung

Um Geburtstage aus einer Excel-Datei in Outlook zu importieren, kannst du die folgenden Schritte befolgen:

  1. Excel vorbereiten: Erstelle eine Excel-Datei mit zwei Spalten. In Spalte A sollten die Namen und in Spalte B die Geburtsdaten im Format TT.MM.JJJJ stehen.

    Beispiel:

    | Name   | Geburtstag  |
    |--------|-------------|
    | Max    | 01.01.1990  |
    | Anna   | 15.05.1985  |
  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  3. Neues Modul erstellen: Klicke im Menü auf Einfügen und dann auf Modul.

  4. VBA-Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Sub GeburtstageImportieren()
       Dim olApp As Outlook.Application
       Dim olGeb As Outlook.ContactItem
       Dim ws As Worksheet
       Dim i As Long
    
       Set olApp = New Outlook.Application
       Set ws = ThisWorkbook.Sheets(1)
    
       For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
           Set olGeb = olApp.CreateItem(olContactItem)
           olGeb.FirstName = ws.Cells(i, 1).Value
           olGeb.Birthday = ws.Cells(i, 2).Value
           olGeb.Save
       Next i
    End Sub
  5. VBA-Bibliothek aktivieren: Stelle sicher, dass der Verweis auf die Outlook-Bibliothek gesetzt ist. Gehe dazu auf Extras -> Verweise und aktiviere Microsoft Outlook xx.0 Object Library.

  6. Makro ausführen: Schließe den VBA-Editor und führe das Makro GeburtstageImportieren aus. Dies wird die Geburtstagsliste in Outlook importieren.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden": Überprüfe, ob die Outlook-Bibliothek korrekt aktiviert ist.
  • Fehler: Geburtsdatum nicht im richtigen Format: Stelle sicher, dass die Daten in Excel im Format TT.MM.JJJJ eingegeben sind.
  • Outlook-Anwendung öffnet sich nicht: Stelle sicher, dass Outlook installiert und korrekt konfiguriert ist.

Alternative Methoden

Eine Alternative zur Verwendung des VBA-Codes ist die manuelle Eingabe der Geburtstage direkt in Outlook:

  1. Gehe zu Kontakte in Outlook.
  2. Klicke auf Neuer Kontakt.
  3. Fülle die Felder Vorname, Nachname und Geburtstag aus.
  4. Klicke auf Speichern und Schließen.

Wenn du eine große Anzahl von Geburtstagen hast, ist die VBA-Methode jedoch effizienter.


Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du die Geburtstage aus einer Excel-Tabelle in Outlook importieren kannst:

Angenommen, deine Excel-Datei heißt Geburtstagsliste.xlsx und enthält folgende Daten:

| Name   | Geburtstag  |
|--------|-------------|
| Max    | 01.01.1990  |
| Anna   | 15.05.1985  |

Mit dem obigen VBA-Code werden die Namen und Geburtstage automatisch in Outlook eingefügt.


Tipps für Profis

  • Automatisierte Erinnerungen: Du kannst in Outlook eine Geburtstagsmail automatisch versenden, indem du die Erinnerungsfunktion für die Kontakte aktivierst.
  • Daten regelmäßig aktualisieren: Halte deine Excel-Tabelle aktuell, um sicherzustellen, dass alle Geburtstage in Outlook synchronisiert sind.
  • Batch-Import: Wenn du viele Kontakte importierst, teste zuerst mit einer kleinen Anzahl, um sicherzustellen, dass alles reibungslos funktioniert.

FAQ: Häufige Fragen

1. Kann ich auch Erinnerungen für Geburtstage in Outlook einrichten?
Ja, du kannst für jeden Kontakt eine Erinnerung einrichten, indem du das entsprechende Feld in den Kontaktdaten ausfüllst.

2. Wie kann ich Geburtstage aus Outlook exportieren?
Du kannst die Kontakte in Outlook exportieren, indem du zu Datei -> Öffnen und Exportieren -> Importieren/Exportieren gehst und die Option In eine Datei exportieren wählst.

3. Welche Outlook-Version benötige ich?
Die oben genannten Schritte funktionieren in den meisten modernen Outlook-Versionen, einschließlich Outlook 2016, 2019 und Outlook 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige