In einer Tabelle habe ich eine Spalte(J) in der ich das Datum eintrage, wann ein Zimmer belegt wurde. In einer weiteren Spalte(S) trage ich ein, wann das Zimmer zuletzt belegt wurde.
Ich möchte innerhalb einer Prozedur das Datum der Spalte J von der der Spalte S abziehen. So kann ich die Summe der Tage berechnen, an denen das Zimmer belegt war.
Die Datumswerte hole ich mir aus einem Excelblatt und übergebe sie an Variable, die ich zuvor "as Date" deklariert habe.
Auf dem Excelblatt sind die Werte als Datum formatiert.
Ich möchte nun z.B. das Datum 07.01.2005 vom Datum 08.01.2005 abziehen.
Dann müsste der Wert 1 rauskommen. Es kommt aber 100001 raus.
Folgendes habe ich gemacht:
Dim c(1 To 156) As Integer
Dim cw(1 To 156) As Variant
Dim cwd3 As Variant, cwd4 As Variant
Dim cwd5 As Long
Dim i As Integer
Dim k As Integer
'Schleife für Belegungszahlen Gesamt (c109 bis c121) von Januar bis Dezember
i = 0
Sheets("Zimmerübersicht").Activate
k = ActiveSheet.UsedRange.Rows.Count
For i = 1 To k
Range("J" & i).Select
cw1 = Mid(ActiveCell, 4, 2)
cwd3 = ActiveCell
Range("s" & i).Select
cwd4 = ActiveCell
If cw1 = 1 And cwd4 "" Then
cwd5 = cwd4 - cwd3
c109 = c109 + (1 + (cwd5))
End If
Next i
Jemand eine Idee?