Office: (Office 2016) Excel Termin in Outlook Kalender

Hallo,

ich habe jetzt tatsächlich hinbekommen das er mir den Termin in den Outlook Kalender einträgt.
Erreicht habe ich das ganze in dem ich in der Zeile: .Subject = "TÜV/HU" händisch eingetragen habe.

Allerdings fehlt mir dann immer noch der Bezug, sprich in dem Fall das Kennzeichen aus Spalte H3
Wenn ich mir deinen Outlook Eintrag anschaue, dann hast du das Kennzeichen als Titel.

Vielleicht könnte von euch nochmal jemand drüber schauen.

Danke vorab.

Grüße Franky

 

Hallo Franky,

ich kann Dir Leider nicht helfen, es gibt bei mir schon eine Datei mit dem Namen und ich überschreibe keine vorhandene Datei.
Viel Erfolg.
Ich bin dann raus.,

Gruß Hajo

 

Was ist daran so kompliziert, noch die Zelle H3 mit ranzuhängen? Wie man das macht zeigt dir bereits der ursprüngliche von mir gepostet Code doch hinlänglich.

Code:

       .Body = "TÜV fällig! " & Range("H3")

---

 

Hallo Karin,
sorry das ich keine so Excel (VBA) Kapazität bin, und noch dazu ziemlich neu hier im Forum.
Mit normalen Excel Formel weiß ich mir meistens zu helfen, nur mit VBA wird es äußerst schwierig.
Dazu bin ich neu im Unternehmen, probiere Sachen zu verbessern und zu verändern, allerdings muss ich mich hier auch noch in die Materie einarbeiten.

So, eine kurze Frage hätte ich noch: wie bekomme ich das hin das es mir die ganzen Termine in Spalte A (Beispiel) prüft und entsprechenden Eintrag im Kalender vornimmt?

Grüße Franky

 

Hallo,

ich begreife nicht, was hier noch die große Schwierigkeit sein soll.
Du musst halt statt
.Subject = "TÜV/HU"
eingeben im VBA-Makro:
.Subject = Range("H3")
wobei du auf den Punkt unmittelbar vor dem Wort "Subject" (also: ".Subject") nicht vergessen darfst.

Anmerkung:
Der Begriff "Subject" ist in der englischen Briefeschreiberei der entsprechende Fachausdruck, wofür wir im Deutschen "Betreff" schreiben. Dass Outlook die Information, die in der Property "Subject" gespeichert wird, im Formular für das AppointmentItem-Objekt unter der Bezeichnung "Titel" ausweist, das liegt am dafür standardmäßig in Outlook enthaltenen Formular.

 

Hallo,

das hab ich hinbekommen, wahrscheinlich habe ich meine Frage falsch formuliert.
Mit dem aktuellen Code fragt er aktuell nur die Spalte "D" Zelle "10" ab.
Ich hätte gerne das er die komplette Spalte D prüft ob Termine fällig sind.
Mit der Uhrzeit ist das ja immer 08:00 Uhr.

War die Frage so verständlich formuliert?
Sub OutlookEintrag()
Dim OutApp As Object, apptOutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
.Start = Range("D10") + Range("E10")
.Duration = 60
.Subject = "TÜV/HU"
.Body = "Kennzeichen " & Range("H10")
.Location = "Raiffeisenstraße 7 in 77933 Lahr"
.Categories = "Fahrzeugüberwachung"
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.ReminderPlaySound = True
.Save
.Display
End With
Set apptOutApp = Nothing
Set OutApp = Nothing
End Sub

Gruß Franky

 

Ich hatte dir doch bereits einen Code gepostet, der die GESAMTE Spalte A auf einen Ritt durchläuft und ALLE Termine einträgt, die nach Heute liegen. Du hattest darauf geantwortet, dass es NUR um die Zellen in Zeile 3 geht. Vielleicht solltest du auch mal in die zurückliegenden Beiträge schauen, denn dazu muss man nicht unbedingt Profi in VBA sein...

---

 

Guten Morgen,
natürlich habe ich deinen zum Anfang bereitgestellten Code nocheinmal getestet da ich wusste das er die Spalte A abfragt.
Allerdings habe ich da wieder den Laufzeitfehler erhalten, und ich wollte nicht zum wiederholten mal ein Bild vom Fehler posten sonst hätte es die Ohrfeigen von der anderen Seite gegeben.
Da die Änderung von Exl121150 funktioniert hatte, dachte ich das ich auf dieser aufbaue, und somit konnte ich auch eine fehlerhafte Kofiguration von Outlook, eine falsche Server oder Firewall Einstellung ausschließen.
Damit es mir keine Einträge in der Vergangenheit einträgt (2023 usw.) habe ich das ja mit der WENN-Formel geregelt.

Grüße Franky

 

Hallo Karin,

so ich muss meinen vorherigen Beitrag revidieren.

Die IT hat mir gerade eine Mail geschrieben das sie wohl doch was geändert haben (ich tippe mal Berechtigungen am Server).
Dein ursprünglicher Code den du mir bereitgestellt hast funktioniert mit meinen entsprechenden Änderungen in den Kommentaren.

Allerdings fragt er mir nur das Datum in A3 ab und nicht die ganze Spalte A.

Gruß Franky

 

Ich wollte den Beitrag löschen, war aber zu langsam!

ich habe jetzt den Code verwendet der alle Einträge in einem Rutsch in den Kalender einträgt, funktioniert.
Allerdings sollte er mir nur die Fahrzeuge eintragen die ≤ dem heutigen Datum sind (der Rest hat ja noch TÜV Guthaben) und ich bekomeme es nicht hin das er mir das entsprechende Kennzeichen aus Spalte G in den entsprechendenden Kalendereintrag übernimmt.

Sub OutlookEintrag()
Dim OutApp As Object, apptOutApp As Object
Dim lngZeile As Long
Set OutApp = CreateObject("Outlook.Application")
For lngZeile = 3 To Cells(Rows.Count, 1).End(xlUp).Row
' nur eintragen wenn das Datum größer als das aktuelle Datum
If Cells(lngZeile, 1) > Date Then
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
.Start = Format(Cells(lngZeile, 1), "dd.mm.yyyy") & " " & Format(Cells(lngZeile, 4), "hh:mm")
.Subject = "TÜV/HU"
.Body = "Kennzeichen " & Range("G3")
.Location = "Raiffeisenstraße 7 in 77933 Lahr"
.Categories = "Fahrzeugüberwachung"
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.ReminderPlaySound = True
.Save
.Display
End With
Set apptOutApp = Nothing
End If
Next lngZeile
Set OutApp = Nothing
End Sub

Danke und Grüße
Franky

 

Hier steht

Code:

        ' nur eintragen wenn das Datum größer als das aktuelle Datum
        If Cells(lngZeile, 1) > Date Then

Wenn es denn kleiner-gleich dem aktuellen Datum sein soll einfach das > ändern in <=

---

 

Dankeschön.
Wie bekomme ich jetzt noch die entsprechenden Kennzeichen zu den Einträgen im Kalender? Ich bekomme es leider nicht hin.

Gruß Franky

 

An dieser Stelle

Code:

.Body = "Kennzeichen " & Range("G3")

wird bekanntlich der Text für den Eintrag erstellt - und zwar aus der Zelle G3, einer festen Zelladresse. Nun soll der Wert aber aus der Zelle in Spalte G in der jeweils laufenden Zeile genommen werden - deshalb muss Range("G3") ersetzt werden durch Cells(lngZeile, 7), also Zelle(laufendeZeile, Spalte 7)

---

 

Hi Karin,

ich glaube ich gebe auf.

Code
Sub OutlookEintrag()
Dim OutApp As Object, apptOutApp As Object
Dim lngZeile As Long
Set OutApp = CreateObject("Outlook.Application")
For lngZeile = 3 To Cells(Rows.Count, 1).End(xlUp).Row
' nur eintragen wenn das Datum größer als das aktuelle Datum
If Cells(lngZeile, 1) < Date Then
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
.Start = Format(Cells(lngZeile, 1), "dd.mm.yyyy") & " " & Format(Cells(lngZeile, 4), "hh:mm")
.Subject = "TÜV/HU"
.Body = "Kennzeichen " & Cells(lngZeile, 7)
.Location = "Raiffeisenstraße 7 in 77933 Lahr"
.Categories = "Fahrzeugüberwachung"
.ReminderSet = True
.ReminderMinutesBeforeStart = 20
.ReminderPlaySound = True
.Save
.Display
End With
Set apptOutApp = Nothing
End If
Next lngZeile
Set OutApp = Nothing
End Sub

Erstellt er mir folgenden Outlook Kalender Eintrag, siehe Bild im Anhang.
Und er erstellt mir nur den einen Eintrag.

Tut mir leid, ich blicke gar nichts mehr.

Gruß Franky

 

Da musst du dich auch gar nicht wundern, denn in Spalte G steht in den betreffenden Zeilen kein Kennzeichen sondern die Zellen sind leer...

---