Aktualisieren Sie die Daten in der Excel-Tabelle jedes Jahr

Problem

Ich habe 4 Tabellen miteinander verknüpft, mit denen ich meine Konten nachverfolge.

Alle 4 Tabellen befinden sich in einem Ordner.

In jeder Tabelle habe ich das Datum von Montag bis Sonntag mit einer wöchentlichen Gesamtsumme für jeden Monat, der in Spalte A abläuft.

Mein Dilemma ist, dass ich jedes Jahr den gesamten Ordner kopieren, alle Daten löschen und auf das nächste Jahr umstellen muss, da natürlich jedes Jahr der erste nicht am selben Tag landen wird Gehen Sie den langen Prozess des Löschens von allen durch und geben Sie die Tage und Daten für jede Woche erneut ein, fügen Sie eine Zeile für die Gesamtsumme am Ende der Woche hinzu und fahren Sie so fort, dass jede Seite einen anderen Monat hat und die wöchentlichen Gesamtsummen vollständig durchlaufen das Jahr wk1, wk2, wk3, wk4, wk5, wk6 usw.

Kennt jemand eine einfachere Methode, um zu wissen, an welchem Tag das neue Jahr beginnt, und fügt sie in eine neue Tabelle ein?

Lösung

Sehen Sie, ob dieses Makro Ihnen hilft. Das Makro öffnet ein Eingabefeld. Geben Sie dort das Jahr für z. B. 2010 oder 2011 ein. (Ich nehme an, Sie werden es nicht bis zum Ende des Jahrhunderts verlängern.) Sie können die Datumsspalte A so formatieren, wie Sie möchten.

Testen Sie das Makro und entscheiden Sie.

 Untertest () Dim y As Integer, d As Integer y = InputBox ("Geben Sie das Jahr ein, z. B. 2010") Wenn y Mod 4 = 0 Dann d = 366 Sonst d = 365 End If Range ("a1") = "1 / 1 / "& y Range (Range (" A1 "), Cells (d, " A ")). DataSeries Rowcol: = xlColumns, _ Type: = xlChronological, Date: = _ xlDay, Step: = 1, Trend: = Falscher Bereich ("B1"). Formula = "= Wochentag (A1)" Bereich ("B1"). AutoFill-Bereich (Bereich ("B1"), Zellen (d, "B")) End Sub