nicht angemeldet
Hi soco,
Ich suche eine Lösung um Excel Registerblätter mit Hilfe eines Makros automatisch mit Tag und Datum zu benennen.
hier ist eine kleine Anregung:
Dim datDatum As Date
For datDatum = "01.01.2009" To "30.03.2009"
Sheets.Add after:=Sheets(Sheets.Count): ActiveSheet.Name = Format(datDatum, "DDD DD.MM.YY")
Next
Beginn und Ende können natürlich abgefragt werden, wobei zur Sicherheit auch ein Errorhandler eingebaut werden sollte, falls es sich nicht wirklich um Datumsangaben handelt. Und um ganz sicher zu gehen, kann auch CDate verwendet werden, damit Excel die Angaben nicht als String behandelt - aber bitte vorher prüfen, ob es sich wirklich um Datumsangaben handelt, weil es sonst bei CDate zu einem Fehler kommen kann.
Warum manche ein Problem daraus machen, mal ein kleines Stück Code vorzugeben, verstehe ich echt nicht. Vielleicht sollten sich die Vetreter des "SELF" auch mal deutlich machen, dass es auch ein induktives Lernen gibt und man damit oft besser hilft, zum Verstehen beizutragen.