neuen Stundenzettel erstellen nach gewissen Regeln
12.04.2017 21:59:43
Andre
ich habe in diesem Forum schon einmal dieses Makro bekommen welches auch sehr gut für meine Tabelle funktioniert.
Nun benötige ich aber dieses Makro etwas umgeschrieben auf eine andere Tabelle.
Vielleicht kann mir jemand helfen.
Komme leider nicht dazu ein Beispielmappe zu laden, weil ich nur als xls speichern kann.
Es soll ein neues Tabellenblatt erstellt werden wenn ich auf einen Button klicke, wenn das Datum am Ende des Monats erreicht ist, das neue Tabellenblatt soll dann Februar heißen und in bestimmten Zellen sollen die Daten gelöscht werden.
Ich habe einen Tabellenblatt mit dem Namen Januar.
Der Name des Tabelenblattes soll in E1 erscheinen.
Das neue Tabellenblatt Februar soll erst erzeugt werden können wenn in d36 das Datum in der Vergangenheit liegt.
Das neue Tabellenblatt soll dann automatisch Februar heißen usw.
e6:e36 sollen alle Daten auf dem neuen Tabellenblatt gelöscht werden.
Das Jahr steht in F1.
Vielleicht kann mir jemand helfen und mir das unten stehende Makro anpassen.
Vielen Dank Andre
Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim KW&
Application.ScreenUpdating = False
With Ws
April = .Range("e1")
If .Range("d36") 
