VBA optimieren für TÜV Fälligkeit
30.04.2026 12:35:57
Juergen Bohl
ich nutze seit längerem einen Code Schnipsel, welchen ich mal gefunden habe zur automatischen Eintragung von TÜV Fälligkeiten im Outlook Kalender. Eine Anpassung dessen fehlt es aus mangelnder Kenntnis, darum hier meine Bitte um Hinweis, was zu tun ist.
ES funktioniert auch alles soweit, bis auf das, dass beim Erstellen des KOmmentares im Excel-Sheet nicht der in Zu´kunft liegende Termin eingetragen wird, sondern der Tag, an dem der letzte TÜV war (also Übernahme des Datums des durchgeführten TÜV's).
Frage:
wie kann ich das Datum im Kommentar des künftigen TÜV Termin (der auch im Kalender eingetragen worden ist) eintragen anstatt den Tag des aktuellen durchgeführten TÜV Termin's?
Hier der verwendete Code:
Sub erstelleOutlookTermin2()
Dim zB, zC, zD, zE
Const cKom = "Termin in Outlook eingetragen von "
If Target.Value > "" Then
zB = Tabelle1.Cells(Target.Row, "B")
zC = Tabelle1.Cells(Target.Row, "C")
zD = Tabelle1.Cells(Target.Row, "D")
zE = Tabelle1.Cells(Target.Row, "E")
zM = Tabelle1.Cells(Target.Row, "M")
If MsgBox("Neuen Termin für " & zC & " (" & zB & ") erstellen?", vbOKCancel, "Outlook _Termin") = vbOK Then
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1)
With apptOutApp
'Kategorie
.Categories = "TÜV Termin"
'Start- & Enddatum
.Start = DateSerial(Year(zE), Month(zE) + zD, 1)
.End = DateSerial(Year(zE), Month(Tabelle1.Cells(zE)) + zD, 31)
'Zusätzlicher Text
.Body = "Letzter TÜV: " & Tabelle1.Cells(Target.Row, "E")
'Betreff
.Subject = zC & " (" & zB & ") | TÜV"
'Ganztägiges Ereignis
.AllDayEvent = True
'Termin speichern
.Save
'Anzeigen
'.Display
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Tabelle1.Cells(Target.Row, "zM").AddComment Text:=cKom & Format(.Start, "DD.MM.") _ & "-" & Format(.End, "DD.MM.")
'Kommentar einfügen
End With
End If
End If
End Sub
Danke & Gruss,
JUergen
Anzeige