Derzeit habe ich das Problem, das der Wert der Variablen bei erneutem Aufruf der Excel- Arbeitsmappe null ist.
Private Sub Workbook_Open()
Dim x As String
x = Application.Names("Variable").Value
Application.Names("Variable").Value = Val(Right(x, Len(x) - 1)) + 1
MsgBox ("Diese Workbook wurde zum " & Val(Right(x, Len(x) - 1)) + 1 & ". Mal geladen")
End Sub