Hallo,
vielleicht liegt es aber auch daran:
Dim loLetzte As Long
With Worksheets("Zusammenstellung_Umsatz")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(loLetzte, 1).Value = dateOut
End With
Es sollte in Zeile 4 wohl heißen: .Cells und nicht .Celle
|