Hier ein Abschnitt meines Codes:
Dim datStart As Date, datEnde As Date, datTime1 As Date, datTime2 As Date
Dim dblTage As Double, dblZeit, comeco As Double, dblGesamt As Double, dblRest As Double, dblAnzeige As Double
Dim intZähler As Integer, intTag, i, d, e, gg As Integer
Dim ZGesamt As Integer
Dim Zelle, Zellen As Range
Dim blatt1 As String
'Zeit Uhrzeit berechnen
With Workbooks("Walz17.xls").Worksheets(blatt1)
Worksheets(blatt1).Range("H11").NumberFormat = "d/m;@"
datStart = .Range("H11").Select
datTime1 = TimeSerial(Hour(.Range("I11")), Minute(.Range("I11")), Second(.Range("I11")))
Worksheets(blatt1).Range("J11").NumberFormat = "d/m;@"
datEnde = .Range("J11").Select
datTime2 = TimeSerial(Hour(.Range("K11")), Minute(.Range("K11")), Second(.Range("K11")))
End With