Hallo Denny,
paar wenig Infos.
Wohin soll geschrieben werden: Welche Tabelle?, welche Zeile?, welche Spalte?
Hier mal ein Grundgerüst, geschrieben wird im aktiven Blatt, Datum in Spalte A, ab Zeile 1, Betrag in Spalte B, ab B1
Private Sub CommandButton1_Click()
Dim loAnzahl As Long, i As Long, z As Long
Application.ScreenUpdating = False
loAnzahl = CDate(Me.TextBox3) - CDate(Me.TextBox2)
For i = 1 To loAnzahl + 1
Cells(i, 1) = CDate(Me.TextBox2) + z
Cells(i, 2) = CDbl(Me.TextBox1)
z = z + 1
Next i
Application.ScreenUpdating = True
End Sub
Das ist jetzt ohne jegliche Prüfung, ob ein korrektes Datum in die Textboxen eingegeben wurde.
Gruß Werner
|