Hallo alle,
folgendes Problem,
Ich möchte gerne per Button die Tage zwischen anfangs und ende ausfüllen lassen.
Dies habe ich auch schon hinbekommen. Ich möchte es aber nicht untereinander sondern nebeneinander haben.
Jetzt gebe ich in I2 Anfang und I3 Ende ein und es wird von K7 aus untereinander ausgefüllt.
Ich möchte es aber von J7 aus nebeneinander. Sprich J7,K7,L7 usw.
was Muss ich an meinem Code ändern?
Sub Datum()
Dim Z As Integer
Anfang = Range("I2").Value
Ende = Range("I3").Value
Z = 1
While Anfang <> Ende
Range("K7").Select
ActiveCell.Offset(Z, 0).Value = Anfang + 1
Anfang = Anfang + 1
Z = Z + 1
Wend
End Sub
Danke schon mal im voraus.
Kai |