Hallo !
Bei meiner Datei kommt beim öffnen eine Msg-Box die mich erinnern soll, das ich am Jahresende einen Button zum Sichern drücke. Diese Box kommt aber jeden Tag.
Derzeit steht die Formel in A2 (=DATUM(JAHR(HEUTE());12;31) um den 31.12. des jeweiligen Jahres zu simulieren.
Gibt es eine Möglichkeit das diese Box nur am 31.12. (Aktuelles Datum steht in Zelle C7) aufgeht ?

Private Sub Workbook_Open()
Text = "Wenn heute der " & Sheets("Berechnung").Range("A2") & " ist, dann Button - Sichern Jahresende - drücken" 'Zelle A2 31.12
MsgBox Text
Sheets("Berechnung").Activate
Range("A2").Select
UserForm1.Caption = "Datenmaske geöffnet von: " & GetTheUserName
UserForm1.TextBox3 = Format(Date - 1, "DD.MM.YYYY")
UserForm1.Show
End Sub

oder, gibt es die Möglichkeit, den VBA Code automatisch am 31.12. des jeweiligen Jahres zu starten und auszuführen ?
Hier dieser Code:

Sub Kopieren()
Dim TB As Worksheet, LC As Integer
Set TB = Sheets("Berechnung")

With Sheets("History")
LC = .Cells(25, .Columns.Count).End(xlToLeft).Column + 1 'letzte Spalte einer Zeile+1

.Cells(25, LC).Value = TB.Cells(7, 6).Value
.Cells(26, LC).Value = TB.Cells(11, 3).Value
.Cells(27, LC).Value = TB.Cells(13, 3).Value 'oder 15, 7
.Cells(28, LC).Value = .Cells(13, 2).Value
.Cells(29, LC).Value = TB.Cells(18, 3).Value
.Cells(31, LC).Resize(3, 1).Value = .Cells(14, 2).Resize(3, 1).Value
.Cells(34, LC).Resize(2, 1).Value = .Cells(19, 2).Resize(2, 1).Value

With .Cells(25, LC).Resize(11, 1).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With

Sheets("History").Activate
Range("B1").Select

End With
End Sub

Vielen Dank für Eure Hilfe
chris58