Ich habe folgendes Makro, dass einen Termin in Outlook erstellt. Es funktioniert soweit auch einwanfrei. Der Termin wird +10 Tage vom Datum, dass in B1 steht geöffnet. Wie kann ich erreichen, dass immer das letzte Datum, dass in Spalte B eingetragen (egal ob B1, B2, B3 usw....) wird, vom Makro berücksichtigt wird?
Besten Dank vorab für eure Hilfe
Grüsse
Glen
Sub Excel_Control_Termin_nach_Outlook()
Dim OutApp As Object, apptOutApp As Object
Dim PW As String
PW = InputBox("Die Aufgabenstellung ist nur von Personen zu tätigen," & vbCr & _
"die dafür die Berechtignung besitzen." & vbCr & " Bitte Passwort angeben", "Passwortabfrage", "")
If PW <> "1" Then
MsgBox "Sie haben das falsche Passwort eingegeben", vbExclamation, "Passwortfehler"
Exit Sub
End If
MsgBox "Sie können im Anschluss den Termin noch" & vbCr & "anderen Mitarbeitern zustellen.", vbInformation, "Weitere daran erinnern"
Dim i
Dim ArtNr, ZeileNr As String
ArtNr = Cells(Range("A65536").End(xlUp).Row, 1).Value
ZeileNr = Range("A65536").End(xlUp).Row
Set OutApp = CreateObject("Outlook.Application")
'Hier beginnen die Termine
Range("B1").Select
Do Until ActiveCell.Value = ""
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
'Termininfo
.Subject = "Dokument: " & ActiveWorkbook.Name & " bearbeiten"
'Zusätzlicher Text
.Body = "Die 10 Tagefrist zum Artikel " & ArtNr & " in der Zeile " & ZeileNr & " ist abgelaufen"
'ort
.Location = "VSB-Büro"
'Uhrzeit
.Start = Format(Date + (10), "dd.mm.yyyy") & " 08:00"
'Dauer. Angabe ist jeweils in ganzen Minuten zu setzen
.Duration = "10"
'Erinnerung
.ReminderMinutesBeforeStart = 10
'mit Sound :-)
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
.Recipients.Add ("SPNCOBARBIER")
.Recipients.Add ("SPNEFKELLER")
.Recipients.Resolveall
.Display
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst "kotzt" Outlook irgendwann mal
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Bei Ihnen wurde der Termin eingetragen!", vbInformation, "Termineintrag Outlook"
End Sub