Option Explicit
Sub Workbook_Open()
    ProvisionBerechnen.Show
End Sub