habe einen kleinen Code erstellt um eine externe Datei zu öffnen
Code
Sub Adressen_speichern()
On Error Resume Next
Workbooks.Open "C:\Benutzer\" & Environ$("USERNAME") & "Dokumente\DB Name\DB\Archiv\ _
Stammdaten\Adressen\Adressen_gesamt.xlsx"
' If Err.Number 0 Then
' MsgBox "Die Datei finde ich nicht!", vbCritical + vbOKOnly
' Exit Sub
' End If
On Error GoTo 0
End Sub
Die Datei von welcher es aufgerufen wird steht unter
"C:\Benutzer\" & Environ$("USERNAME") & "Dokumente\DB Name\DB\Programm\
Es sagt mir einfach Datei nicht vorhanden
Könnte mir bitte jemand sagen wo mein Problem liegt Habe auch schon Workbooks.OpenFilename probiert leider kein Erfolg
Im Voraus vielen Dank Richard