Workbooks.Open Fehler 1004

Forumthread: Workbooks.Open Fehler 1004

13.02.2022 17:06:31

Benedikt

Guten Abend zusammen
Ein wenig komisch verhält sich Workbooks.Open:
Arbeite ich im Geschäft an meiner Station läuft der Code einwandfrei durch, bei meinem Büronachbarn kommt Laufzeitfehler 1004
Wenn ich von Zuhause auf meinen PC im Geschäft zugreife erhalte ich ebenfalls Laufzeitfehler 1004
Seltsam ist aber wenn ich Debuggen anklicke und den grünen Pfeil auf weiter klicke läuft der Code durch
Sheets("Rechnung").Range("AL4:AW4").Select
Selection.Value = Selection.Value
Selection.Copy
Workbooks.Open Filename:="C:\Archiv\Umsatzliste.xlsm" - Laufzeitfehler 1004
Application.Workbooks.Open Filename bringt auch keine Verbesserung
Gibt es noch eine andere Art das Workbook zu öffnen, oder hat jemand eine Idee

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Workbooks.Open Fehler 1004

13.02.2022 17:12:36

ralf_b
AW: Workbooks.Open Fehler 1004

13.02.2022 18:12:23

Benedikt
AW: Workbooks.Open Fehler 1004

14.02.2022 09:50:34

Benedikt
AW: Workbooks.Open Fehler 1004

14.02.2022 10:40:39

Piet
Danke fürs erste

15.02.2022 07:49:28

Benedikt
AW: Danke trotzdem

15.02.2022 19:39:30

Benedikt

AW: Workbooks.Open Fehler 1004

13.02.2022 17:12:36

ralf_b

Die Datei bzw. der Pfad und der Name existieren nicht dort wo es den Fehler gibt.

AW: Workbooks.Open Fehler 1004

13.02.2022 18:12:23

Benedikt

Guten Abend Ralf
Pfad stimmt, Dateiname auch. ich habe auch erwähnt dass der Code auf vier von fünf PCs läuft, Problem mit Remote und an einem PC.
Ebenfalls ist es komisch das beim debuggen der Code zuende läuft.
Danke trtzdem

AW: Workbooks.Open Fehler 1004

14.02.2022 09:50:34

Benedikt

Frage ist noch offen

AW: Workbooks.Open Fehler 1004

14.02.2022 10:40:39

Piet

Hallo Benedikt
ich habe das Gefühl dein Problem liegt in einem Grenzbereich, der technisch nicht immer logisch erklärt werden kann!
Dann hilft nur noch die "Versuch macht klug" Methode weiter, und man experiment einfach mit Änderungen in der Hoffnung eine Lösung zu finden!
Ich habe dir mal zwei Open Varianten zum Probieren eingefügt, ob es etwas bewirkt kann ich nicht sagen? Im ersten Fall verzichte ich bei kopieren auf Select und kopiere erst nach dem Öffnen der Datei. Im zweiten Fall wird EnableEvents auf False gesetzt, und muss auch im Fehlerfall wieder auf True gesetzt werden!
Ich habe keine Ahnung ob das was ändert, aber es lohnt sich sicher es mal auszuprobieren.
mfg Pet


Sub test_1()
Workbooks.Open Filename:="C:\Archiv\Umsatzliste.xlsm" 'Laufzeitfehler 1004
'Kopieren NACH dem Öffnen der Datei - bringt das was?
ThisWorkbook.Sheets("Rechnung").Range("AL4:AW4").Copy
End Sub


Sub test_2()
Dim USL As Workbook
On Error GoTo Fehler
Application.EnableEvents = False
Set USL = Workbooks.Open(Filename:="C:\Archiv\Umsatzliste.xlsm")
If USL Is Nothing Then MsgBox "Datei nicht geöffnet - Abbruch": Exit Sub
ThisWorkbook.Sheets("Rechnung").Range("AL4:AW4").Copy
Application.EnableEvents = True
'**  hier dein weiterer Coe
Exit Sub
Fehler: Application.EnableEvents = True
MsgBox "Fehler beim Öffnen aufgetreten": Resume Next
End Sub

Danke fürs erste

15.02.2022 07:49:28

Benedikt

Fürs erste besten Dank Pet, ich kann im Moment leider nicht testen
Ich werde Dir noch Antwort geben ob es hilft

AW: Danke trotzdem

15.02.2022 19:39:30

Benedikt

Guten Abend Pet
Besten Dank für deine Bemühungen, leider ende beide Versuche beim Fehler 1004
Trotzdem vielen Dank

Infobox / Tutorial

Workbooks.Open Fehler 1004 in Excel VBA beheben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Laufzeitfehler 1004 beim Öffnen von Workbooks in Excel VBA zu beheben, kannst du folgende Schritte befolgen:

Überprüfe den Dateipfad und Dateinamen:
- Stelle sicher, dass der Pfad zur Datei korrekt ist und die Datei existiert. Verwende dazu den vollständigen Pfad.
Verwende die korrekte Syntax:
- Achte darauf, dass die Syntax für Workbooks.Open korrekt ist. Ein Beispiel wäre:
```
Workbooks.Open Filename:="C:\Archiv\Umsatzliste.xlsm"
```
Fehlerbehandlung einfügen:
- Implementiere eine einfache Fehlerbehandlung, um den Fehler abzufangen:
```
On Error GoTo Fehler
```
Verwende Application.EnableEvents:
- Setze Application.EnableEvents auf False vor dem Öffnen des Workbooks und zurück auf True nach dem Kopieren.
Debugging:
- Wenn der Fehler auftritt, klicke auf „Debuggen“ und überprüfe die Zeile, in der der Fehler auftritt.

Häufige Fehler und Lösungen

Fehler 1004: Datei nicht gefunden:
- Überprüfe den Pfad und den Dateinamen. Achte auf Schreibfehler und die Dateiendung.
Zugriffsprobleme:
- Stelle sicher, dass du die notwendigen Berechtigungen hast, um auf die Datei zuzugreifen.
Remote-Zugriff:
- Wenn du über Remote auf einen PC zugreifst, kann es zu Problemen kommen. Teste die Ausführung des Codes direkt auf dem betroffenen PC.

Alternative Methoden

Falls die oben genannten Ansätze nicht funktionieren, kannst du alternative Methoden ausprobieren:

Verwende die Open-Methode in Kombination mit CreateObject:

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open Filename:="C:\Archiv\Umsatzliste.xlsm"

Datei in einen temporären Ordner kopieren:
- Manchmal hilft es, die Datei in einen temporären Ordner zu kopieren und von dort zu öffnen.

Praktische Beispiele

Hier sind einige VBA-Skripte, die du verwenden kannst:

Einfaches Öffnen:

Sub OpenWorkbook()
   Workbooks.Open Filename:="C:\Archiv\Umsatzliste.xlsm"
End Sub

Mit Fehlerbehandlung:

Sub OpenWorkbookWithErrorHandling()
   On Error GoTo Fehler
   Dim wb As Workbook
   Set wb = Workbooks.Open(Filename:="C:\Archiv\Umsatzliste.xlsm")
   Exit Sub
Fehler:
   MsgBox "Fehlercode: " & Err.Number
End Sub

Tipps für Profis

Verwende Debug.Print: Nutze Debug.Print, um den Status oder Variablenwerte während der Ausführung zu überprüfen.
Entwickle ein Logging-System: Halte ein einfaches Logbuch, um Fehler und deren Lösungen zu dokumentieren.
Teste in verschiedenen Umgebungen: Führe den Code auf unterschiedlichen PCs aus, um zu sehen, ob das Problem reproduzierbar ist.

FAQ: Häufige Fragen

1. Was bedeutet Fehlercode 1004?
Der Fehlercode 1004 deutet auf ein Problem beim Ausführen eines VBA-Befehls hin, meist beim Öffnen von Dateien.

2. Warum klappt Workbooks.Open auf einem PC, aber nicht auf einem anderen?
Dies kann an unterschiedlichen Berechtigungen, Netzwerkeinstellungen oder Dateipfaden liegen. Überprüfe alle Variablen auf jedem PC.

Beliebteste Forumthreads (12 Monate)

Forumthread: Workbooks.Open Fehler 1004

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Workbooks.Open Fehler 1004 in Excel VBA beheben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread