Excel Daten in Outlook Termin umwandeln
07.03.2023 15:02:23
KuBiTo
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!
Anzeige