Office: (Office 2016) Excel Termin in Outlook Kalender

Helfe beim Thema Excel Termin in Outlook Kalender in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe mal wieder ein Problem das ich schlicht und ergreifend nicht gelöst bekomme. Leider bin ich in VBA ein absoluter Neuling.... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Franky1970, 28. März 2024.

  1. Franky1970 hat Ahnung

    Excel Termin in Outlook Kalender


    Hallo zusammen,
    ich habe mal wieder ein Problem das ich schlicht und ergreifend nicht gelöst bekomme.
    Leider bin ich in VBA ein absoluter Neuling.
    Beverly hier aus dem Forum hat mir mit einem (Muster)Programmierung geschickt, siehe hier runter, , leider zeigt es mir da einen Fehler in der ersten Zeile der Prgrammierung an.
    Code:
    Sub OutlookEintrag()
    Dim OutApp As Object, apptOutApp As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set apptOutApp = OutApp.CreateItem(1)
    With apptOutApp
    ' Beginn - in A1 steht das Datum und in D1 die Starzeit
    .Start = Format(Range("A1"), "dd.mm.yyyy") & " " & Format(Range("D1"), "hh:mm")

    ' Dauer in Minuten wenn fix, dann keine Ende-Zeit erforderlich
    ' .Duration = 60

    ' Ende - in A1 steht das Datum und in D2 die Endzeit (nur erforderlich wenn Dauer nicht fix)
    .End = Format(Range("A1"), "dd.mm.yyyy") & " " & Format(Range("D2"), "hh:mm")

    ' Betreff
    .Subject = Range("B1")

    ' Notizen (optional)
    .Body = "Dies ist ein Test"

    'Ort des Termins (optional)
    .Location = "Bei mir zu Hause"

    'Kategorie zuschreiben (optional)
    .Categories = "Bestellungen"

    'Erinnerung setzen (optional)
    .ReminderSet = True

    'Anzahl Minuten, bei welcher die Erinnerung vor dem Termin erscheint (nur wenn ReminderSet = True)
    .ReminderMinutesBeforeStart = 10

    'Wird Erinnerungston abgespielt (nur wenn ReminderSet = True)
    ' .ReminderPlaySound = True

    ' Eintrag speichern
    .Save

    'Termin öffnen in Outlook (optional)
    ' .Display
    End With
    Set apptOutApp = Nothing
    Set OutApp = Nothing
    End Sub


    Es wäre super nett wenn sich das jemand von euch, der deutlich mehr Ahnung hat als ich, anschauen könnte.

    Ich wünsche euch frohe Ostern und ein langes erholsames Wochenende.

    Gruß Franky
     
    Franky1970, 28. März 2024
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi Franky,

    wenn du dir meinen Code und den in deiner Mappe genau anschaust wirst du erkennen, dass beide nicht übereinstimmen - und zwar bei allen Zeilen innerhalb der With-Anweisung:

    Code:
        With apptOutApp
           .Start = Format(Range("G6"), "dd.mm.yyyy") & " " & Format(Range("F6"), "hh:mm")
           .Duration = 60
           .Subject = Range("G4")
           .Body = "TÜV fällig!"
           .Location = "Raiffeisenstraße 7 in 77933 Lahr"
           .Categories = "Fahrzeugüberwachung"
           .ReminderSet = True
           .ReminderMinutesBeforeStart = 20
           .ReminderPlaySound = True
           .Save
           .Display
        End With
    
    Alle Befehle befinden sich innerhalb eine With-Anweisung, weshalb sie mit einem vorangestellten Punkt . versehen sein müssen, um ihre Zugehörigkeit zu dem in der With-Zeile aufgeführten Objekt (hier apptOutApp) zu kennzeichnen - dieser Punkt fehlt bei dir in allen Zeilen.


    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Beverly's Excel - Inn
     
    Beverly, 28. März 2024
    #2
  3. Franky1970 hat Ahnung
    Guten Morgen Karin, guten morgen zusammen,

    ja, ich wusste tatsächlich nicht ob die Punkte, vorangesetzt, oder der Aufzählung dienen.
    Ich habe die Punkte jetzt gesetzt, allerdings bringt er mir den folgenden Fehler, siehe Bild, und die obere Zeile "SUB OutlookEintrag()" wird gelb markiert, keine Ahnung was die beiden Fehler zu bedeuten haben

    Danke und viele Grüße

    Franky
     
    Franky1970, 2. April 2024
    #3
  4. Beverly
    Beverly Erfahrener User

    Excel Termin in Outlook Kalender

    Hi Franky,

    der Code gehört nicht unter DieseArbeitsmappe sondern in ein Standardmodul.


    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Beverly's Excel - Inn
     
    Beverly, 2. April 2024
    #4
  5. Franky1970 hat Ahnung
    Hallo Karin,
    hab ich in ein Standard Modul gepackt, einen Fehler habe ich leider immer noch,
    diesmal einen anderen Fehler.
    Das mit der VBA Programmierung ist wirklcih ein Buch mit sieben Siegeln.

    Gruß Franky
     

    Anhänge:

    Franky1970, 2. April 2024
    #5
  6. Beverly
    Beverly Erfahrener User
    Hi Franky,

    und was sagt der Debugger genau? Also nicht nur die Fehlernummer sondern den gesamten Text.


    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Beverly's Excel - Inn
     
    Beverly, 2. April 2024
    #6
  7. Franky1970 hat Ahnung
    Hi Karin,
    er markiert mir mehrer Zeilen gelb, und dann kam der Fehler siehe Bild, beim Eintrag
    .Subject = Range ("G6").

    Gruß Franky
     

    Anhänge:

    Franky1970, 2. April 2024
    #7
  8. Franky1970 hat Ahnung

    Excel Termin in Outlook Kalender

    Guten Morgen Karin, guten Morgen zusammen,
    ich bekomme es leider nicht hin, keine Chance trotz das ich verschiedene Dinge versucht habe, wie verbunde Zellen und Spalten zu löschen, Spalten verschieben usw.
    Beim Debuggen kommt nur Laufzeitfehler und die gelb markierte Zeile, siehe Foto.

    Hat von euch noch jemand eine Idee?
     
    Franky1970, 3. April 2024
    #8
  9. Hajo_Zi
    Hajo_Zi Erfahrener User
    in A1 und D1 steht kein Datum

    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Homepage
     
    Hajo_Zi, 3. April 2024
    #9
  10. Beverly
    Beverly Erfahrener User
    Hi Franky,

    das ist doch logisch dass da ein Fehler kommt - mit .Start ist die Startzeit gemeint (siehe Kommentare in meinem ursprünglichen Code!!), bei dir steht jedoch in A1 ein Text. Mit ein wenig Nachdenken und Beibehalten der Kommentare - die ich bewusst eingefügt hatte und nicht deshalb, damit du sie einfach weglassen bzw. ignorieren sollst - hättest du selbst daruf kommen können


    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Beverly's Excel - Inn
     
    Beverly, 3. April 2024
    #10
  11. HKindler
    HKindler Erfahrener User
    Hi,

    nun ja, die Fehlermeldung ist etwas irreführend. Aber welche Startzeit soll deiner Meinung nach der Eintrag "TÜV/HU:", der in A1 steht, ergeben? Kein Wunder macht da Excel die Grätsche.
     
    HKindler, 3. April 2024
    #11
  12. ralf_b hat Ahnung
    Du willst doch sicher alle Termine eintragen und nicht aus Versehen auch noch mehrfach oder?
    Sieh dir mal meinen Vorschlag an. Und nicht die Spalte i übersehen.
     
    ralf_b, 3. April 2024
    #12
  13. Franky1970 hat Ahnung

    Excel Termin in Outlook Kalender

    Hallo Karin, hallo zusammen

    ich hatte den Code schon entsprechend abgeändert das auch diese betitelt werden wo ein Datum und Uhrzeit drin steht.

    Und ich wusste auch nicht das ich deine Informationen im Code stehen lassen kann.

    Allerdings kam der/die Fehler immer noch.

    Ich habe auch versucht, gearde die TÜV überfälligen Datums über ein WENN/DANN Formel in eine neue Spalte zu bekommen um diese Datum dann fürs VBA zu verwenden, allerdings bekomme ich gerade nicht mal das hin.


    So meine Birne platzt bald, jetzt blicke ich dann überhaupt nichts mehr.
    Wenn ich mich bisschen erholt habe versuche ich es nochmal.

    Schönen Mittag zusammen.

    Gruß Franky
     
    Zuletzt bearbeitet: 3. April 2024
    Franky1970, 3. April 2024
    #13
  14. Beverly
    Beverly Erfahrener User
    Hi Franky,

    der Code in deiner hochgeladenen Mappe soll das Datum aus A1 und die Uhrzeit aus D1 nehmen und daraus das Startdatum einschließlich Startzeit für die Erinnerung zusammensetzen - und zwar in dieser Codezeile:

    Code:
           .Start = Format(Range("A1"), "dd.mm.yyyy") & " " & Format(Range("D1"), "hh:mm")
    
    In A1 steht aber kein Datum (sondern anscheinend der Betreff für den Termin) und deshalb kommt bei dir die Fehlermeldung in genau dieser Codezeile.

    Ein Datum steht dagegen z.B. in A3 und die Uhrzeit in D3 und allen weiteren Zeilen.
    Wenn du alle Termine auf einen Ritt eintragen willst, dann kannst du das mit folgendem Code machen:

    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 = Range("A1")
                   .Body = "TÜV fällig!"
                   .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
    
    Unberücksichtigt bleiben dabei alle Termine, deren Datum vor dem jeweils aktuellen Datum liegen.


    Übrigens: Kommentare schreibt man in einen Code, damit man auch später noch weiß, was der Code an einer bestimmten Stelle machen soll. Und dadurch, dass man diese Zeile(n) mit einem ' auskommentiert erkennt Excel, dass es sich dabei um keinen Code sondern einen Kommentar (oder anderen Text) handelt.


    Excel Termin in Outlook Kalender GrußformelExcel Termin in Outlook Kalender Beverly's Excel - Inn
     
    Beverly, 3. April 2024
    #14
  15. ralf_b hat Ahnung
    vielleicht raucht deine Birne auch nur weil du nicht mehr blickst in welchen Foren du deine Fragen platziert hast.
    Informiere dich über Crossposting und was deswegen von dir erwartet wird.
    für alle Anderen im vbaForum: VBA-Forum - Das Forum zu Microsoft VBA
     
    ralf_b, 3. April 2024
    #15
Thema:

Excel Termin in Outlook Kalender

Die Seite wird geladen...
  1. Excel Termin in Outlook Kalender - Similar Threads - Excel Termin Outlook

  2. Ausgewählte Excel Termine per VBA in Outlook importieren

    in Microsoft Excel Hilfe
    Ausgewählte Excel Termine per VBA in Outlook importieren: Hallo Forum, ich habe ein merkwürdiges Problem und finde den Fehler nicht... Ich habe in einer Exceldatei Termine gespeichert, die ich in einen Outlook Kalender importieren möchte. Dies sind mal...
  3. Termine von Excel nach Outlook!!

    in Microsoft Excel Hilfe
    Termine von Excel nach Outlook!!: Hallo liebe Gemeinde, dies ist meine erste Frage und der Grund warum ich mich hier angemeldet habe. Ich habe Formeltechnisch in Excel ein bisschen Erfahrung und habe eine Tabelle gebaut, die mir...
  4. Excel Termine über entry ID mit Outlook abgleichen

    in Microsoft Excel Hilfe
    Excel Termine über entry ID mit Outlook abgleichen: Hallo liebe VBAler, meine Kenntnisse in VBA habe ich mir größtenteils selbst beigebracht bzw. das meiste ergooglet. Ich habe für meine arbeit als Disponent eine Excel Arbeitsmappe erstellt in der...
  5. Excel Termine in bestimmten Outlook Kalender

    in Microsoft Excel Hilfe
    Excel Termine in bestimmten Outlook Kalender: Hallo zusammen, ich bräuchte dringend Unterstützung bei folgendem Problem. Ich möchte aus einem Excel Kalender die Termine nach Outlook exportieren. In der Excel-Datei habe ich dazu einen Button...
  6. Tabelle aus Excel über VBA in Outlook mit Formatierung übertragen

    in Microsoft Excel Hilfe
    Tabelle aus Excel über VBA in Outlook mit Formatierung übertragen: Hallo zusammen, ich bin langsam am verzweifeln, da ich bisher nichts passendes gefunden habe. Kurz zur Erklärung: Über einen Button soll eine Einladung zu einem Termin via Outlook generiert...
  7. Frage: Terminplanung aus Excel - Termine in outlook automatisiert versenden?

    in Microsoft Excel Hilfe
    Frage: Terminplanung aus Excel - Termine in outlook automatisiert versenden?: Hallo an alle, regelmäßig muß ich eine ziemlich umfangreiche Terminplanung erstellen und nutze dabei Excel. Die Datei ist so aufgebaut: <tbody> Name email Datum1 Datum2 Aa aa@test.de j n Bb...
  8. Termine von Excel nach Outlook importieren und aktualisieren

    in Microsoft Excel Hilfe
    Termine von Excel nach Outlook importieren und aktualisieren: Hallo zusammen Ich habe zwei Fragen und hoffe, es kann mir jemand weiterhelfen. Ich habe in Excel eine Liste mit Terminen erstellt. Die Beschriftung der einzelnen Spalten lautet wie...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden