Guten Morgen liebe Community,
ich habe für einen Freund gestern einen Code geschrieben, der für ihn automatisiert Kalendereinträge erstellen soll.
Auf meinem Rechner funktioniert soweit auch alles.
Bei ihm kommt die Meldung, dass er Outlook installieren soll. Wenn er auf weiter klickt, geschieht nichts.
Excel und Outlook sind auf dem Surface installiert. Andere Makros von mir funktionieren bereits auf dem Surface, arbeiten aber nur intern in Excel Punkte ab.
Ist meine Variante Outlook anzusprechen die falsche auf einem Surface? Gibt es da Unterschiede?
Gruß Daniel
PS: hier noch der Code
ich habe für einen Freund gestern einen Code geschrieben, der für ihn automatisiert Kalendereinträge erstellen soll.
Auf meinem Rechner funktioniert soweit auch alles.
Bei ihm kommt die Meldung, dass er Outlook installieren soll. Wenn er auf weiter klickt, geschieht nichts.
Excel und Outlook sind auf dem Surface installiert. Andere Makros von mir funktionieren bereits auf dem Surface, arbeiten aber nur intern in Excel Punkte ab.
Ist meine Variante Outlook anzusprechen die falsche auf einem Surface? Gibt es da Unterschiede?
Gruß Daniel
PS: hier noch der Code
Quellcode
- Private Sub CommandButton1_Click()
- Dim datum As Date
- Dim dt As String, tag As String, monat As String, jahr As String
- Dim Beginn As String, Betreff As String
- monat = Cells(6, 2).Value
- jahr = Cells(7, 2).Value
- For zaehler = 9 To 39
- tag = Cells(zaehler, 2).Value
- dt = tag & "." & monat & "." & jahr
- If IsDate(dt) Then
- If Not Cells(zaehler, 1).Value = "Sa" Then
- If Not Cells(zaehler, 1).Value = "So" Then
- datum = Format(dt, "DD.MMM")
- With Excel.Selection
- Beginn = datum
- Betreff = "Aktion: " & Cells(zaehler, 7)
- Kalendereintrag_erstellen Beginn, Betreff
- End With
- End If
- End If
- End If
- Next zaehler
- End Sub
- Public Sub Kalendereintrag_erstellen(Beginn As String, Betreff As String)
- Set OutApp = CreateObject("Outlook.Application")
- Set apptOutApp = OutApp.CreateItem(1)
- With apptOutApp
- .AllDayEvent = True
- .Start = Beginn
- .Subject = Betreff
- .ReminderSet = False
- .Save
- End With
- Set apptOutApp = Nothing
- Set OutApp = Nothing
- lvOutlook = True
- Exit Sub
- ErrOutLook:
- Set apptOutApp = Nothing
- Set OutApp = Nothing
- lvOutlook = False
- MsgBox "Termin konnte in Outlook nicht eingetragen werden. Fehler:" & Err.Description & ". Melde dich bei Daniel!"
- End Sub