Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Historie")
lzei = .Cells(.Rows.Count, 1).End(xlUp).Row
If ThisWorkbook.Name Like "*_" & .Cells(lzei, 1) & ".xl*" Then
MsgBox "Datei wurde nicht gespeichert! Legen Sie zunächst eine neue Version an.", vbCritical
Cancel = True
Else
n = Replace(ThisWorkbook.Name, .Cells(lzei - 1, 1), .Cells(lzei, 1))
Application.EnableEvents = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & n
Cancel = True
Application.EnableEvents = True
MsgBox "Datei wurde in der neuen Version " & .Cells(lzei, 1) & " gespeichert.", vbInformation
End If
End With
End Sub