Datenübernahme
09.04.2006 13:51:54
Volker
kann mir jemand sagen was ich an dem Code ändern bzw.einfügen muß um die Werte in die jeweils übernächst Zeile zu schreiben? genauer gesagt, soll sich nach jeder Zeile eine Leerzeile befinden.
Der erste Eintrag kommt nach A4 der nächste Eintrag soll nach A6 usw.
Funktioniert das ?
Private Sub CommandButton1_Click()
Dim i%, letzter, dteDatum
dteDatum = DateValue(TextBox1)
letzter = Day(DateSerial(Year(dteDatum), Month(dteDatum) + 1, 0))
For i = 1 To letzter
Cells(i, 1).Offset(3, 0) = _
Format(DateSerial(Year(dteDatum), Month(dteDatum), i), "DD.MM.YY")
Cells(i, 1).Offset(3, 1) = _
Format(DateSerial(Year(dteDatum), Month(dteDatum), i), "DDD.")
Next
End Sub
Danke für Eure Mühe
Gruß Volker
Anzeige