Sub hol_erstellen()
Dim termine()
Dim ende As Integer
Dim i As Long
Dim datum As Date
Dim überschrift As String
Dim nr
nr = FreeFile()
ReDim termine(0)
termine(0) = 0
If ActiveSheet.Cells(1, 1) <> "" Then
ende = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ende
If ActiveSheet.Cells(i, 1) <> "" And IsDate(ActiveSheet.Cells(i, 2)) Then
datum = Format(CDate(ActiveSheet.Cells(i, 2)), "YYYY/MM/DD")
datum = Replace(datum, ".", "/")
termine(0) = termine(0) + 1
ReDim Preserve termine(termine(0))
termine(termine(0)) = ActiveSheet.Cells(i, 1) & ", " & datum
End If
Next i
If termine(0) > 0 Then
überschrift = "[meineTermine] " & termine(0)
Open "C:\Users\XYZ123\Desktop\test.hol" For Output As #nr
Print #nr, überschrift
For i = 1 To termine(0)
Print #nr, termine(i)
Next i
Close #nr
End If
End If
End Sub