In einer mappe habe ich eine Tabelle auf der die Arbeitstage im Monat bestimmt werden (von Mo-Fr). Jeder Arbeitstag hat sein Datum, das später zum Tabellenblattname für dentag wird.
Bei Klick auf eine Schaltfläche soll nun eine Mustertabelle kopiert und umbenannt werden. Das Makro funktioniert auch zufriedenstellend bis auf zwei Ausnahmen:
1. Mein Befehl Sheets("Tabelle2").Copy After:=Sheets(3)
bringt keine Formatierung der Mustertabelle mit.
2. Ich möchte gerne noch prüfen, ob schon ein Tabellenblattname (1.1.02 bis 31.07.02 sind vorhanden) vorhanden ist, wenn ich die Tabellen für den Monat 8 kopieren will. Die 8 erstellt die Namen 01.08102 bis 31.08.02. Wenn jetzt aus Versehen ein Zahl kleiner als 8 eingegeben wird, sind ja die Tabellen schon vorhanden und eine Meldung soll erscheinen: "Tabellen schon vorhanden, bitte neuen Monat eingeben" und die Zelle K2 auf derTabelle "Tab_Name" soll aktiviert werden.
Mein bisheriges Makro:
Heinz