|
Servus,
ich habe ein Blanko-Vorlagensheet, das einen Code enthält, der in den aus der Vorlage abgeleiteten Sheets ausgeführt werden soll, jedoch nicht in der Vorlage selbst.
Das Blatt heißt "Blanko", die Namen der anderen Sheets besteht aus Monat und Jahr, also 03-24, 04-24, usw.
Der VBA-Code sieht so aus:
Private Sub Worksheet_Activate()
Dim rng As Range
Set rng = ActiveSheet.Range("A:A").Find(What:=Date - 5, LookIn:=xlValues, _
LookAt:=xlWhole)
If Not rng Is Nothing Then Application.Goto rng, True
End Sub
Damit springt er jedes Mal, wenn ich eines der Monatsblätter anklicke, auf das aktuelle Datum (bzw. 5 Zeilen darüber).
Der Code ist deshalb im Blanko-Sheet drin, damit jedes Mal beim Anlegen eines Monats-Sheets der Code mit kopiert wird, das ist denke ich klar. Aber genau im Blanko-Sheet soll er nicht ins aktuelle Datum springen, da soll er bitte mit dem Cursor im Feld A19 (da steht immer der Monatserste) bleiben.
Gibt es dafür eine einfache Lösung?
|