Private Sub CommandButton1_Click()
Dim loAnzahl As Long, i As Long, z As Long
Dim last As Long
last = Sheets("Kosten_Tag").Cells(Rows.Count, 1).End(xlUp).Row + 1
Application.ScreenUpdating = False
With Worksheets("Kosten_Tag")
last = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
loAnzahl = CDate(Me.TextBox3) - CDate(Me.TextBox2)
For i = last To last + loAnzahl
.Cells(i, 1) = CDate(Me.TextBox2) + z
.Cells(i, 2) = CDbl(Me.TextBox1)
z = z + 1
Next i
End With
Application.ScreenUpdating = True
End Sub