Anzeige
Archiv - Navigation
1560to1564
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

Kalender übertragen

Kalender übertragen
24.05.2017 09:42:15
Kurt
Hi,
ich hab hier aus dem Archiv einen Code zur Übertragung eines Kalenders aus Excel in Outlook herausgesucht und an meine Tabelle angepasst. Das funktioniert such soweit eigentlich alles. Das einzige Problem das ich jetzt noch habe ist, dass durch die Form meiner Tabelle zwischen manchen Terminen leere Zeilen entstehen. Diese werden aber auch mit übertragen. Kann man die eventuell rauslassen oder muss ich die Tabelle anders formatieren?
Meine Tabelle https://www.herber.de/bbs/user/113763.xlsm
Der Code für das Ggesuchte makro ist im VBA Editor unter Tabelle 1
danke für eure hilfe
Kurt

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalender übertragen
24.05.2017 10:10:04
Michael
Hallo!
Da sollte schon sowas reichen:
Private Sub CommandButton1_Click()
Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Range("C5").Select
Do Until ActiveCell.Value = "Ende"
        If ActiveCell.Value  "" Then
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Subject = ActiveCell.Value
.Start = Format(ActiveCell.Offset(0, -2), "dd.mm.yyyy") & " 08:00"
.Duration = 60
.ReminderMinutesBeforeStart = 1440
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
ActiveCell.Offset(1, 0).Select
Set apptOutlook = Nothing
Set objOutlook = Nothing
        End If
Loop
MsgBox "Termine an Outlook übertragen!"
End Sub
Nur die beiden Zeilen in fettem Schriftschnitt sind neu.
LG
Michael
Anzeige
AW: Kalender übertragen
24.05.2017 12:34:22
Kurt
Yo Klappt perfekt danke
das end if muss nur hinter das end with sonst hängt man in einer endlos schleife weil der Zeilensprung quasi übersprungen wird und so die Zelle immer die selbe leere bleibt
Gut, Danke für die Rückmeldung, owT
24.05.2017 14:09:12
Michael

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige