AW: VBA Code Backup und löschen
30.03.2017 16:29:44
ChrisL
Hi
Deine Vorstellung ist zwar theoretisch machbar, aber m.E. (zu) umständlich. Man müsste die KW festhalten, dann jeweils abgleichen usw., weil die Änderung der KW aufgrund eines Formelergebnis kein VBA-Ereignis auslöst. Damit wird es wahrscheinlich auch nicht getan sein, weil es noch einen Stundenübertrag von der Vorwoche braucht, Feiertagsregelungen usw.
Ausserdem ist es meistens sinnfrei, zusammenhängende Daten auf verschiedene Dateien zu verteilen. Womöglich kommt dann in ein paar Monaten der Bedarf die Stundenzettel wieder zusammen zu fassen oder andere Auswertungen zu erstellen.
Darum die Grundidee (ich denke Ralf zielte in die gleiche Richtung), alle Wochen in einer Datei zu halten und die Benutzerfreundlichkeit resp. Übersichtlichkeit im Druck resp. in der Stundenauswertung über andere Mittel wie z.B. Filter und Formeln zu erstellen.
Im Anhang ein Beispiel (Autofilter nach KW). Als kleines Feature wird der Filter beim Öffnen automatisch gemäss der aktuellen KW gesetzt.
https://www.herber.de/bbs/user/112531.xlsm
Private Sub Workbook_Open()
With Worksheets("Tabelle1")
.Range("A3:G" & .Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter _
Field:=7, Criteria1:=CStr(DatePart("ww", Date, vbMonday, vbFirstFourDays))
End With
ThisWorkbook.Saved = True
End Sub
cu
Chris