ich bin momentan auf der Suche nach einer Lösung, mein Schichtplan auf mein Android Handy zu bekommen in Form einer .ics Datei sodass ich nicht jeden Tag Einzeln eintragen muss.
Hier mein Schichtrythmus:
Schonmal Danke im Vorraus. :)
Sub Termine_exportieren()
Dim anfSommerzeit As String
Dim anzTermine As Long
Dim endSommerzeit As String
Dim fso As FileSystemObject
Dim icsDatei As String
Dim letzteZeile As String
Dim pfad As String
Dim terminAnfang As Date
Dim terminEnde As Date
Const titel As String = "Termine in ics-Datei exportieren"
Dim ts As TextStream
Dim wb As Workbook
Dim ws As Worksheet
Dim zeile As Long
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Termine")
'############################ Hier ggf. anpassen ########################
pfad = ThisWorkbook.Path & "\"
icsDatei = "Termine.ics"
'############################ Hier ggf. anpassen ########################
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If letzteZeile
Ich habe die Übernahme der ics-Datei nach Outlook getestet, aber nicht nach Google-Kalender. Hoffe aber, dass das auch klappt.