Es kommt immer 1 raus, ganz egal ob da 0 oder 100 sein sollte.

Vielleicht mal mein ganzer code bis jetzt ohne path

'PA=Parkausweis, PP=Parkplatz
Sub ParkenDrucken()
    
    Dim Vorname As String
    Dim Nachname As String
    Dim DatumVon As Date
    Dim DatumBis As Date
    Dim Belegungsdauer As Integer

    Dim SrcBook As Workbook
    Dim SrcSheet As Worksheet
    Dim DestBook As Workbook
    Dim DestSheet As Worksheet

    Dim SpalteDatum As Integer
    Dim SpltDtmStr As String
    Dim Belegung As Range
    Dim BelegungEnde As Range
    Dim User As String
    
    
    'Pfade
    Set SrcBook = GetObject(")
    Set SrcSheet = SrcBook.Worksheets("Tabelle1")
    Set DestBook = GetObject("")
    Set DestSheet = DestBook.Worksheets("Tabelle1")
    
    'Datum und Namen auslesen
    Vorname = Range("G27")
    Nachname = Range("G28")
    DatumVon = Range("G29")
    DatumBis = Range("G30")
    
    'Bestimmung der Spalte ab wann der PA gültig sein soll
    SpalteDatum = WorksheetFunction.Match(SrcSheet.Range("G29"), DestSheet.Range("1:1"), 0)
    SpltDtmStr = Split(Cells(1, SpalteDatum).Address, "$")(1)
    
    'Bestimmung der ersten freien Zelle
    DestBook.Activate
    Set Belegung = DestSheet.Cells(1, SpltDtmStr).End(xlDown).Offset(1, 0)

    'Bestimmung Belegungsdauer
    Belegungsdauer = DateDiff("d", DatumVon, DatumBis)

    'Bestimmung Zelle bis wann belegt sein soll
    Set BelegungEnde = Belegung.Offset(0, Belegungsdauer)

    
    Dim rng As Range
    Set rng = Range(Belegung.Address & ":" & BelegungEnde.Address)
    
    MsgBox rng.Address(0, 0)

    MsgBox Application.WorksheetFunction.CountA(rng.Address(0, 0))