Datumsbereich anzeigen (teil2)
Helge
Ich hab die arbeit gestern wohl etwas zu frueh eingestellt und muss nun feststellen, dass ich mit der Formel von Sepp nicht arbeiten kann, da die Datumswerte an einen Graphen gebunden sind. Und wenn ich die Formel bis B100 ziehe zeigt er das auch in dem Graph. Also muss ich den VBA code benutzen, der aber nicht so richtig will. Ich wuerde den gerne an einen Button in der userform binden. Sprich in txt1 steht das anfangsdatum und in txt2 das enddatum. Die Datumsfolge soll in Sheets(4) ab zeile B34 ausgegeben werden. Die Erste funktion des Button leert den bereich ab B34. Weiss echt nicht weiter und das Makro von gestern konnte ich nicht anpassen, Sorry.
Sub change_date
Dim i as long
Dim wks1 as Worksheet
Set wks = activeworkbook.worksheets("")
for i = 1 to 65536
if wks.cells(i,1) "" then
Set datum = wks.cells(i,1)
wks.cells(i,2) = WeekdayName(Weekday(datum, vbMonday))
end if
next i
End Sub
Falls es einfacher ist, kann ich auch nur mit einem startdatum arbeiten und in der zeiten txt eine anzahl der Tage angeben. Ich kann es auf jeden Fall nicht loesen. Danke schon mal im Vorfeld
Gruss Helge