Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Termine aus Exceltabelle erstellen

Termine aus Exceltabelle erstellen
20.09.2020 17:55:14
David
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Termine aus Exceltabelle erstellen
20.09.2020 21:58:58
JoWE
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
Anzeige
sorry, überlesen - soll ja Google-Kalender sein
21.09.2020 12:05:37
JoWE
AW: Termine aus Exceltabelle erstellen
21.09.2020 06:52:10
RPP63
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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige