Outlook Termin Spalten flexibel/fix
08.06.2020 16:07:21
Rapha
ich habe einen Makro erstellt um einen Termin aus Excel in Outlook zu generieren. Der Code funktioniert auch wie gewünscht.
Die Festlegung der Koordinanten ist doch nicht flexibel. Dass heisst Beispielsweise habe ich bei der Festsetzung DayMeeting im Tabellenblatt die Zelle 13 und Spale 30. Wenn ich jetzt zwischenzeitlich eine Spalte Lösche stimmt die Spaltenkoordinate mit 30 nicht mehr. Sodass ich bei Löschung Spalte 29 als DayMeeting hätte, was letzlich nicht mehr stimmen würde. Kann ich das irgendwie flexibel machen oder kann ich das irgendwie fixieren.
Vielen Dank im Vorraus
Hier der Code:
Sub Termin()
Dim AppOutlook As Outlook.Application, Appoint As Outlook.AppointmentItem, ES As Worksheet, _
Arbeitsmappe As Workbook
Set Arbeitsmappe = ThisWorkbook
Set Tabellenblatt = Arbeitsmappe.Sheets("Prozess GrEStG - KP-Anpassungen")
Set AppOutlook = New Outlook.Application
Recipient = Tabellenblatt.Cells(12, 28).Value
RequiredAttendees = Tabellenblatt.Cells(12, 27).Value
DayMeeting = Tabellenblatt.Cells(13, 30).Value
StartTime = Tabellenblatt.Cells(12, 36).Value
EndTime = Tabellenblatt.Cells(12, 37).Value
Location = Tabellenblatt.Cells(12, 33).Value
Subject = Tabellenblatt.Cells(12, 34).Value
Project = Tabellenblatt.Cells(12, 34).Value
Body = Tabellenblatt.Cells(12, 34).Value
Set Appoint = AppOutlook.CreateItem(olAppointmentItem)
With Appoint
.Subject = Subject
.Start = StartTime
.RequiredAttendees = RequiredAttendees
.End = EndTime
.Location = Location
.AllDayEvent = False
.Body = Body
.Display
End With
Set AppOutlook = Nothing
End Sub