Test Code

Sub EintragenWochenTage() Dim intRow As Integer For intRow = 1 To 100 Cells(intRow, 1) = intRow Next intRow End Sub