title image


Smiley Re: Geht nicht.. Warum?
Hi,



versuch's mal so:



Private Sub Prognose()

Dim startdate As Date

Dim enddate As Date

Dim vardate As Date

Sheets("Prognose").Activate

Range("A65536").End(xlUp).Offset(1, 0).Select

startdate = Sheets("Quelldaten").Range("G15").Value

enddate = Sheets("Quelldaten").Range("G16").Value

vardate = startdate

Do

ActiveCell.Value = Format(vardate, "yymmdd") & "-F"

ActiveCell.Offset(1, 0) = Format(vardate, "yymmdd") & "-S"

ActiveCell.Offset(2, 0) = Format(vardate, "yymmdd") & "-W"

ActiveCell.Offset(3, 0).Select

vardate = vardate + 1

Loop Until vardate = enddate

End Sub
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: