Microsoft Excel

Herbers Excel/VBA-Archiv

Termine aus Exceltabelle erstellen

Betrifft: Termine aus Exceltabelle erstellen von: David
Geschrieben am: 20.09.2020 17:55:14

Hallo zusammen,

habe mal eine Frage.

Ist es möglich aus einer Exceltabelle Termine im Google-Kalender zu erstellen? Habe jeweils in einer Spalte ein Datum, darunter die Uhrzeit und die Bezeichnung. Daraus sollte es quasi jeweils ein Termin am entsprechenden Datum und Uhrzeit machen.
Habe mal recherchiert und jeweils nur Lösungen für einen Outlook-Kalender gefunden, leider nicht für den Google-Kalender.

Vorab schon einmal vielen Dank und noch einen schönen Abend!
LG
David

Betrifft: AW: Termine aus Exceltabelle erstellen
von: ralf_b
Geschrieben am: 20.09.2020 18:10:25

nach kurzer Recherche ist das nicht so ohne weiters möglich

aber da gibts nen hübsches Video. https://www.youtube.com/watch?v=G7sGzMufMcY

Betrifft: AW: Termine aus Exceltabelle erstellen
von: JoWE
Geschrieben am: 20.09.2020 21:58:58

Hallo David,

hier ein Code von 2013 aus dem Herber-Archiv
https://www.herber.de/forum/archiv/1316to1320/1317483_Excel_VBA_Termin_in_Outlook_eintragen_und_versende.html
der Code passt doch auf Dein Thema, oder?
Sub Excel_Serial_Mail()
    Dim MyOutApp As Object, MyMessage As Object
    Dim i As Long
    'Start der Sendeschleife an 10 Empfänger
    For i = 6 To 43
        Set MyOutApp = CreateObject("Outlook.Application")
        Set MyMessage = MyOutApp.CreateItem(0)
        With MyMessage
            'Die Empfänger stehen in Spalte A ab Zeile 1
            .To = Cells(i, 5) 'E-Mail Adresse
            'Der Betreff in Spalte B
            .Subject = Cells([47], [3])   '"Betreffzeile"
            'Der zu sendende Text in Spalte C
            'Maximal 1024 Zeichen
            'Der Text wird ohne Formatierung übernommen
            .Body = Cells([50], [3])
                        
            'Hier wird die Mail angezeigt
            '.Display
            'Hier wird die Mail gleich in den Postausgang gelegt
            .Send
        End With
        'Objectvariablen leeren
        Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
        Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
        'Sendepause einschalten
        'Outlook kann die Aufträge nicht schnell genug verarbeiten
        Application.Wait (Now + TimeValue("0:00:05"))
    Next i
End Sub

Gruß
Jochen

Betrifft: sorry, überlesen - soll ja Google-Kalender sein
von: JoWE
Geschrieben am: 21.09.2020 12:05:37



Betrifft: AW: Termine aus Exceltabelle erstellen
von: RPP63
Geschrieben am: 21.09.2020 06:52:10

Moin!
Die Excel-Tabelle muss vorgegebene (englische) Überschriften enthalten.
Danach abspeichern als .csv
Aber Achtung:
Hier wird zwingend das Komma als Trennzeichen benötigt!
Dies geht nicht über die Excel-Oberfläche, sondern nur mittels VBA.
Stichworte:
.SaveAs FileFormat:=xlCSV, Local:=False

Gruß Ralf

Beiträge aus dem Excel-Forum zum Thema "Termine aus Exceltabelle erstellen"