Private Sub Befehl133_Click()
On Error GoTo Err_Befehl133_Click
Dim EX As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.WorkSheet
Dim ExcelFileDirect As String
Dim WorkSheet As String
ExcelFileDirect = [F48]
WorkSheet = [F1]
prePfad = "G:\Group\ANGEBOTE\"
If Left(Forms![E_Winden]![AngNr], 2) = "03" Then
prePfad = "G:\Group\ANGEBOTE\03_BT\"
End If
If Left(Forms![E_Winden]![AngNr], 2) = "04" Then
prePfad = "G:\Group\ANGEBOTE\04_GT_Angebote\"
End If
If Left(Forms![E_Winden]![AngNr], 2) = "06" Then
prePfad = "G:\Group\ANGEBOTE\06_Kleinangebote\"
End If
If Left(Forms![E_Winden]![AngNr], 2) = "07" Then
prePfad = "G:\Group\ANGEBOTE\07_WBL\"
End If
If Dir(ExcelFileDirect) = "" Then
MsgBox "Die gesuchte Excel-Datei wurde nicht gefunden!" & vbCrLf & "Bitte suchen Sie die Datei selbst!", vbInformation, "Fehler"
Pfad = DateiOeffnen("Datei öffnen", "Microsoft-Excel-Dateien" & Chr$(0) & "*.xls", , prePfad)
Else
Set EX = CreateObject("Excel.Application")
Set WB = EX.Workbooks.Open(ExcelFileDirect)
Set WS = WB.Worksheets(WorkSheet)
WB.Worksheets(WorkSheet).Visible = True
WB.Worksheets(WorkSheet).Activate
EX.Visible = True
Set EX = Nothing
End If
Exit_Befehl133_Click:
Exit Sub
Err_Befehl133_Click:
MsgBox Err.Description
Resume Exit_Befehl133_Click
End Sub