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))
|