Private Sub UserForm_Activate()
Set wksDat = Workbooks("Daten.xlsm").Worksheets(Daten) //Hier tritt der Fehler auf. Datei aber vorhanden.
Set wksAbr = Worksheets(ActiveSheet.Name)
Flag2 = 0
cboFuellen
StuSa_EKO
Me.txtAuftr.Value = ""
Me.txtAuftrL.SetFocus
End Sub
<strong>Laufzeitfehler 1004 Wir konnten ***.xlsm nicht finden, wurde das objekt vielleicht verschoben, umbenannt oder gelöscht?</strong>
Private Sub StndNw_oeffnen()
Dim File As String
File = ThisWorkbook.Name
On Error GoTo Errhandler
Workbooks("Stundennachweise_" & Right(File, 8)).Sheets("Übersicht").Activate //Hier tritt der Fehler auf.
Exit Sub
Errhandler:
If (Err = 9) Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\Stundennachweise_" & Right(File, 8), UpdateLinks:=0
Resume
End If
MsgBox "Error " & Err, , "Fehler !"
End Sub