Makro Platzhalter für Jahreszahl

Sub Jahreswechsel() Application.ScreenUpdating = False ActiveSheet.Unprotect Sheets("2016").Visible = True Cells.Replace What:="2015", Replacement:="2016", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jahreswechsel() Dim AltJahr As String Dim Heuer As String Application.ScreenUpdating = False ActiveSheet.Unprotect AltJahr = Year(Date) - 1 Heuer = Year(Date) Sheets(Heuer).Visible = True Sheets(Heuer).Cells.Replace What:=AltJahr, Replacement:=Heuer, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True Application.ScreenUpdating = True End Sub

Max,
Allerdings blendet das Makro nur das Blatt "2016" ein und nimmt ansonsten keinerlei Änderungen vor.
nur eben noch nicht im Tabellenblatt "Übersicht"; das war aber auch in Deinem Bsp.-Code nicht so, habe das daher nicht überprüft. Hier der geänderte Code:

Sub Jahreswechsel()
Dim AltJahr As String
Dim Heuer As String
Application.ScreenUpdating = False
ActiveSheet.Unprotect
AltJahr = Year(Date)  '2015
Heuer = Year(Date) + 1   '2016
Sheets(Heuer).Visible = True
Sheets("Übersicht").Cells.Replace What:=AltJahr, Replacement:=Heuer, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub

Entscheidend ist hier die Zeile
Sheets("Übersicht").Cells.Replace ...
die jetzt im richtigen Tabellenblatt ersetzt.
Da wir noch nicht 2016 schreiben, mußte ich zum ausprobieren AltJahr in = Year(Date)ändern und Heuer
in = Year(Date) + 1.
Naja, das ist etwas quergedacht - ich würde diesbezüglich nicht den Code ändern auf +1, sondern eher mit einer Bsp.-Datei arbeiten die den Jahreswechsel von 2014 auf 2015 simuliert, d.h. die Tabellenblätter 2014 und 2015 (ausgeblendet) erzeugen, und in den Zellformel "2014" durch "2015" ersetzen lassen; dann kannst Du die richtige Funktion überprüfen, und wenn's passt, ist der Code dann für die Folgejahre ebenso anwendbar.
Und ja: DU musst ein bisschen was an Arbeit/Testung selbst übernehmen, das bleibt Dir nicht erspart.
Gib Bescheid, ob's jetzt klappt wie gewünscht.
LG
Michael

Hallo zusammen,
um solche Fummelein zu umgehen, kopiere ich derartige Datein jedes Jahr auf einen neuen Namen.
Der kann ja ruhig das Jahr an "vereinbarter" Stelle enthalten, auf das man ja via ZELLE ohne VBA Zugriff hat, also meinetwegen BlaBla_2015.xlsx.
Bezüge müssen dabei nicht geändert werden, ein anderer Vorteil ist aber auch, daß der Anwender nicht versehentlich in einem alten Jahr Änderungen vornimmt ("ups, habe grad im falschen Jahr 5 Werte geändert, *was* stand da bloß vorher drin?!"), die man nie mehr nachvollziehen könnte. Das ist dann quasi "weggeschrieben".
Man kann ja ne leere Vorlage erstellen, nur mit Formeln und ohne Daten. Oder gleich Kopien für die nächsten 10 Jahre erstellen; bis dahin wird sowieso wieder irgendwas anderes geändert.
Schöne Grüße,
(noch ein) Michael

Beliebteste Forumthreads (12 Monate)

Makro Platzhalter für Jahreszahl

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Platzhalter für Jahreszahl

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread