title image


Smiley Geht nicht.. Warum?
Hallo zusammen,



folgender Code will nicht so wie ich, warum?

Startdatum in Quelldaten!G15 ist 27.02.2006

Enddatum in Quelldaten!G16 ist 30.05.2006



der Code gibt als ersten wert

21.11.2064-F wieder und als letzten wert

19.09.2065-W



wenn ich die Zeilen

enddate = Format(enddate, "yymmdd")

vardate = Format(vardate, "yymmdd")

weg lasse, den funktioniert es zwar richitg, aber ich bekomme die daten nicht in dem Format wie ich sie gerne hätte:

erstes ergebnis soll sein:

060227-F

letzets Ergebnis soll sein

060530-W

Hat jemand nen Tipp.



Gruß aus Bremen



Tassos





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

enddate = Format(enddate, "yymmdd")

vardate = startdate

vardate = Format(vardate, "yymmdd")

Do

ActiveCell.Value = vardate & "-F"

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

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

ActiveCell.Offset(3, 0).Select

vardate = vardate + 1

Loop Until vardate = enddate

End Sub
Gruß Tassos

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: