Function MappeOffen(n) As Boolean
Dim dummy As String
On Error Resume Next
dummy = Workbooks(n).Name
If Err.Number > 0 Then
Err.Clear
MappeOffen = False
Else
MappeOffen = True
End If
End Function
Dim BoOffen As Boolean
BoOffen = False
For Each x In Workbooks
If x.Name = "Auftragsplanung Übersicht.XLS" Then
Workbooks("Auftragsplanung Übersicht.XLS").Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=StNetz & "Auftragsplanung Übersicht.XLS", Password:=StDatei
Sub tst()
msgbox "Heute ist der " & date
End Sub
Sub test()
Dim BoOffen As Boolean
Dim X
BoOffen = False
For Each X In Workbooks
If X.Name = Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1) Then
Workbooks(Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1)).Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=Sheets("Übersicht").Range("B58").Value
End Sub
Sub testoffen()
Dim BoOffen As Boolean
Dim X
BoOffen = False
For Each X In Workbooks
If X.Name = Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1) Then
Workbooks(Mid(Sheets("Übersicht").Range("B58").Value, _
InStrRev(Sheets("Übersicht").Range("B58").Value, "\") + 1)).Save
BoOffen = True
Exit For
End If
Next
If BoOffen = False Then Workbooks.Open Filename:=Sheets("Übersicht").Range("B58").Value
End Sub