Über Private Sub Worksheet_BeforeDoubleClick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim sPath As String, S As String, dat As String
S = ActiveCell.Value
sPath = "C:\OFFICE CONTROL ©\Rechnungen\"
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
On Error Resume Next
Workbooks.Open Filename:=sPath & S
If Err > 0 Then
'If MsgBox = " Die Rechnung " & S & " " & " ist nicht gespeichert!!" Then
Exit Sub
End If
End If
With Application
.DisplayAlerts = True
End With
ActiveWorkbook.PrecisionAsDisplayed = True
End Sub