Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Daten zu Outlook Terminen
 11.12.2021 23:15:49 Tino
NotSolved
12.12.2021 15:29:05 ralf_b
*****
Solved

Ansicht des Beitrags:
Von:
Tino		 Datum:
11.12.2021 23:15:49		 Views:
787		 Rating:
     
Antwort:
  Ja
Thema:
Excel Daten zu Outlook Terminen

Hallo Leute,

ich bin absoluter Neuling in Sachen VBA und nähere mich der Sache, indem ich mir für meine Fewo eine Verwaltungsexcel programmiere. Ich will die eingetragenen Gäste auf Knopfdruck als Outlook Termine im Kalender speichern. Mit dem nachfolgendem Code habe ich aber das Problem, dass in der for Schleife der Termin immer aktualisiert und der vorherige somit gelöscht wird. Wenn die for Schleife durchgelaufen ist, habe ich also nur den aller letzten Gast im Kalender. Wie kann ich dieses Problemm umgehen? Ich freue mich über ein paar Tips.

Liebe Grüße
Tino

 

Sub Outlook_Termine()

Dim ns              As Outlook.Namespace
Dim myfolder        As Outlook.Folder
Dim mysubfolder     As Outlook.Folder

Set ns = GetObject("", "Outlook.Application").GetNamespace("MAPI")
Set myfolder = ns.GetDefaultFolder(9).Folders("Fewo-Belegung")


Worksheets("Laufendes Jahr").Activate
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Z = Range("Abgeschlossen").Rows.Count + 2
y = Range("Bevorstehend").Rows.Count
LetzteZeileBevorstehend = LetzteZeile - Z - 2



Dim oTermin As Outlook.AppointmentItem
Set oTermin = myfolder.Items.Add(olAppointmentItem)



For i = 14 To LetzteZeileBevorstehend
With oTermin
    .Display
    .Subject = Range("B" & i).Value
    .Start = Range("F" & i).Value
    .End = Range("G" & i).Value
    .AllDayEvent = True
    .ReminderSet = False
    .Save
    
End With
Next
Set oTermin = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel Daten zu Outlook Terminen
 11.12.2021 23:15:49 Tino
NotSolved
12.12.2021 15:29:05 ralf_b
*****
Solved