Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1920to1924
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

Excel Daten in Outlook Termin umwandeln

Excel Daten in Outlook Termin umwandeln
07.03.2023 15:02:23
KuBiTo
Hallo Zusammen,
ich habe in einem Modul folgenden Code zum ein Datum aus der Zelle "L3" zu lesen und daraus ein Outlook Termin zu erstellen.
Damit keine Duplikate angelegt werden, erzeugt der Code eine EntryID in Zelle "S3". Wenn dort schon etwas steht, macht das Programm nichts.
Jetzt möchte ich, dass dieser Code auf für die Zeilen unter "L3" funktioniert. Meine Tabelle geht von Zeile 3-3000. Er soll jedoch nur einen Termin erzeugen, wenn die entsprechende Zeile in Spalte L ausgefüllt ist. Wie kann ich dem Programm sagen, dass es auch die weiteren Zeilen prüfen soll, ob die Spalte "L" dort schon befüllt ist.
Über einfache Range.("L:L") Anweisung geht es wohl nicht. Über das Definieren von Variablen habe ich es auch ein wenig versucht, aber dort versagt mein Wissen.

Sub OL_Termin_Einstellen()
'Erstellt einen Outlook-Termin
 If Range("L3").Offset(0, 7).Value = "" Then
 With CreateObject("Outlook.Application").CreateItem(1)
    .Start = Tabelle3.Range(MyRange).Value & " 08:00"
    .Duration = "30"
    .Subject = Tabelle3.Range("A3").Value & " " & Tabelle3.Range("E3").Value
    .Body = "Lieferschein erstellen"
    .Location = False
    .BusyStatus = 0
    .Recipients.Add "Ich"
    .ReminderPlaySound = False
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 4320
    .Save
    Range("L3").Offset(0, 7) = .EntryID
 End With
 End If
End Sub

Vielen Dank vorab!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Daten in Outlook Termin umwandeln
07.03.2023 15:29:05
Fennek
Hallo,
ungeprüft:
Sub OL_Termin_Einstellen()
'Erstellt einen Outlook-Termin
lr = cells(rows.count, "L").end(xlup).row 'letzte Zelle Spalte "L"
for i = 3 to lr
 If Range("L3").Offset(0, 7).Value = "" Then
 With CreateObject("Outlook.Application").CreateItem(1)
    .Start = Tabelle3.Range(MyRange).Value & " 08:00"
    .Duration = "30"
    .Subject = Tabelle3.cells(i,1).Value & " " & Tabelle3.cells(i,5).Value
    .Body = "Lieferschein erstellen"
    .Location = False
    .BusyStatus = 0
    .Recipients.Add "Ich"
    .ReminderPlaySound = False
    .ReminderSet = True
    .ReminderMinutesBeforeStart = 4320
    .Save
    cells(i,"L").offset(,7) = .EntryID
 End With
 End If
next i
End Sub
mfg
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige