Sub CONT_Verknuepfte_Dateien_oeffnen()
Dim Pfad_EW_PK As String
Dim Pfad_EW_FK As String
Dim Pfad_ME_PK As String
Dim Pfad_ME_FK As String
Dim Dateiname As String
Pfad_EW_PK = Sheets(CON_Tabellenblatt).Range(CON_Pfad_EW_PK).Value
Pfad_EW_FK = Sheets(CON_Tabellenblatt).Range(CON_Pfad_EW_FK).Value
Pfad_ME_PK = Sheets(CON_Tabellenblatt).Range(CON_Pfad_ME_PK).Value
Pfad_ME_FK = Sheets(CON_Tabellenblatt).Range(CON_Pfad_ME_FK).Value
Dateiname = Sheets(CON_Tabellenblatt).Range(CON_Dateiname).Value
On Error GoTo CONT_Verknuepfte_Dateien_oeffnen_Err
If EW_PK_Exists(Pfad_EW_PK) = False Then
If Dir(Pfad_EW_PK) = "" Then
MsgBox "Datei " & Pfad_EW_PK & " wurde nicht gefunden!"
Else
Workbooks.Open Pfad_EW_PK
End If
End If
If EW_PK_Exists(Pfad_EW_FK) = False Then
If Dir(Pfad_EW_FK) = "" Then
MsgBox "Datei " & Pfad_EW_FK & " wurde nicht gefunden!"
Else
Workbooks.Open Pfad_EW_FK
End If
End If
If ME_PK_Exists(Pfad_ME_PK) = False Then
If Dir(Pfad_ME_PK) = "" Then
MsgBox "Datei " & Pfad_ME_PK & " wurde nicht gefunden!"
Else
Workbooks.Open Pfad_ME_PK
End If
End If
If ME_PK_Exists(Pfad_ME_FK) = False Then
If Dir(Pfad_ME_FK) = "" Then
MsgBox "Datei " & Pfad_ME_FK & " wurde nicht gefunden!"
Else
Workbooks.Open Pfad_ME_FK
End If
End If
Windows(Dateiname).Activate
Range("C38").Select
CONT_Verknuepfte_Dateien_oeffnen_Exit:
Exit Sub
CONT_Verknuepfte_Dateien_oeffnen_Err:
MsgBox Error$
Resume CONT_Verknuepfte_Dateien_oeffnen_Exit
Resume Next
End Sub
Private Function EW_PK_Exists(sFile As String) As Boolean
Dim Pfad_EW_PK As String
Dim wkb As Object
Pfad_EW_PK = Sheets(CON_Tabellenblatt).Range(CON_Pfad_EW_PK).Value
On Error Resume Next
Set wkb = Workbooks(Pfad_EW_PK)
If Not wkb Is Nothing Then
EW_PK_Exists = True
End If
On Error GoTo 0
End Function
Private Function EW_FK_Exists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(Pfad_EW_FK)
If Not wkb Is Nothing Then
EW_FK_Exists = True
End If
On Error GoTo 0
End Function
Private Function ME_PK_Exists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(Pfad_ME_PK)
If Not wkb Is Nothing Then
ME_PK_Exists = True
End If
On Error GoTo 0
End Function
Private Function ME_FK_Exists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(Pfad_ME_FK)
If Not wkb Is Nothing Then
ME_FK_Exists = True
End If
On Error GoTo 0
End Function