Ich nochmal.
Ich könnte mir vorstellen, das so etwas funktionieren könnte. Nur weiss ich nicht, wie ich das geschickt in VBA umsetze...
Definitionen
var monat i
var jahr i = 2017
var tag i
var datum
var wochentag string
var ausgabe string
var ende_iteration i
var schleifenzähler i
Zuweisungen
jahr i = 2017
monat = 10
tag = 1
Startbedingungen
ende_iteration = 30
if monat = 2
ende_iteration = 28
else
if monat 1, 3, 5, 7, 8, 10, 12
ende_iteration = 31
ende_if
ende_if
i = 1
Schleifendurchlauf
schleife ende_iteration mal durchlaufen
tag = i
datum = tag monat jahr
wochentag = wochentag von datum
wenn wochentag = sonntag
dann nix machen
sonst datum in der Form "Wochentag, den tt. monat als text. jjjj" in Zelle eintragen
blatt ausdrucken
ende_wenn
i = i + 1
schleife_ende
|