Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2004to2008
2004to2008
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Wieso auf einmal Fehler ?

Forumthread: Wieso auf einmal Fehler ?

Wieso auf einmal Fehler ?
15.02.2025 11:34:25
sigrid
Guten Morgen,
wieso wird jetzt ein Fehler angezeigt ?
"Laufzeitfehler 1004
Anwendungs- oder obejektdefinierter Fehler "
Wir haben von Excel 2019 auf einen neuen Rechner mit Excel 2021 gewechselt. 
Public Sub Lager_Information_aktivieren()

 Dim Antwort1

     If Environ("Username") = "sigi" Then

       Workbooks.Open Filename:="\\Lager\d\Lager_Informationen.xlsm"

Else

  Application.EnableEvents = True

       ChDir "D:\"

    Workbooks.Open Filename:="D:\Lager_Informationen.xlsm"

  End If

End Sub


bleibt hier stehen:
Workbooks.Open Filename:="D:\Lager_Informationen.xlsm"

gr sigrid
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wieso auf einmal Fehler ?
15.02.2025 12:21:45
RPP63
Moin!
Hat der neue Rechner denn ein Laufwerk D:\?
Und gibt es dort im Stammverzeichnis die Datei Lager_Informationen.xlsm?

Gruß Ralf
AW: Wieso auf einmal Fehler ?
15.02.2025 15:28:49
Ulf
Hi,
welche Versionen 2019 32Bit/64 und 2021 32Bit/64Bit ?
Verweise checken, dort könnte dann ""Nicht vorhanden"" o.ä. stehen, wenn Win10 auf Win11 und/oder die alte 16er-Version.
Kann sein, dass die Pfade sich geändert haben...

Ggf. Verweise anpassen
sieht mal so aus, dass er Workbooks nicht auflöst - also Application undefiniert scheint.
hth
Ulf
Anzeige
Auf dem anderen Rechner alles i.o.
15.02.2025 15:32:45
sigrid
Hallo Ulf,
auf dem anderen Rechner klappt alles.
2019 32Bit/64 und 2021 32Bit/64Bit ?

wir hatten vorher 2019 32BIT
und jetzt 2021 mit 64Bit
Prüfe jetzt !!!

gr sigrid
Was einsetzen ?
15.02.2025 15:44:26
sigrid
Hallo Ulf,
habe versucht einzusetzen, weiß nicht welche Datei.

Userbild

gr sigrid
Anzeige
AW: Was einsetzen ?
15.02.2025 16:01:06
Ulf
Hi,
die Datei hat er ja scheinbar vorgegeben für 32Bit-Excel und Win11 habe ich die unter
"C:\Program Files\Common Files\microsoft shared\OFFICE14\1031\MSOINTL.DLL"
Ist eine Sprachdatei.
Besser im Explorer unter C:\Programm Files\ nach der "MSOINTL.DLL" suchen.
Kann sein, dass man Sprachpakete für Office nicht installiert hat, dann Reparatur-Installation oder Sprache fürs Betriebssytem nachinstallieren.
hth
Ulf
Anzeige
AW: Was einsetzen ?
15.02.2025 19:31:20
sigrid
Guten Abend zusammen,
hat nichts geklappt.
Muss ich Office Neuinstallieren ?

gr sigrid
AW: Was einsetzen ?
15.02.2025 20:24:10
Ulf
Hi,
teste mal die Datei, die im Makro geöffnet werden soll (D:\Lager_Informationen.xlsm) ?! aus dem Explorer:
Mit Umschalt+Doppelklick (führt keine Makros aus) öffnen, und sag uns ob sie fehlende Verweise hat.
Dein Makro soll, wenn der Benutzer sigi (dein username auf altem pc ?) einen freigegebenen Ordner und darin eine Datei öffnen.
Wenn der Code so ausgeführt wird, wie du sagst, hast du/ihr einen falschen Benutzer auf deinem neuen PC angelegt.
Vielleicht ist auch eine Freigabe nötig, die bei dir fehlt.
Installieren schadet nicht, behebt aber das Problem u.U. nicht.
In jedem Fall dann alle Features installieren.

Was du probieren kannst wäre ein Testmakro
bspw 
Sub testwb()

Workbooks.Add

End Sub

wenn das ausgeführt wird ist wahrscheinlich keine Installation notwendig und das Problem hängt mit dem Ordner zusammen.
hth
Ulf
Anzeige
läuft einwandfrei -)
16.02.2025 12:04:52
sigrid
Guten Morgen zusammen,
besonders Ulf, habe das gemacht, wie beschrieben ! 
Sub testwb()

Workbooks.Add

End Sub


Neue Datei wurde erstellt.
Es war das Passwort was FALSCH war.

ich bin erleichert, DANKE !

Schönen Sonntag
gr sigrid
Anzeige
Es war das Passwort was FALSCH war.
16.02.2025 12:24:56
RPP63
Prima!
Nicht ohne Grund stellte ich gestern die unbeantwortete Frage
»(oder ist sie etwa geschützt)?«
Vielleicht stellst Du beim nächsten Mal einen relevanten Code ein.
Schließlich war aus der Threaderöffnung dieser Mappenschutz nicht ersichtlich und wurde von mir nur vermutet.

Gruß Ralf
Anzeige
Ralf Du hattest natürlich mit deinem Hinweis recht ! -)
16.02.2025 12:41:37
sigrid
Hallo Ralf,
du hattest natürlich Recht !
Auch Dir einen schönen Sonntag noch.

gr sigrid
Ja hat der PC
15.02.2025 13:57:57
sigrid
Hallo Ralf,
D Laufwerk vorhanden und Verzeichnis.

gr sigrid
AW: Ja hat der PC
15.02.2025 14:02:04
RPP63
Was ergibt (im Direktfenster) 
Debug.Print Dir("D:\Lager_Informationen.xlsm")
Anzeige
AW: Ja hat der PC
15.02.2025 14:35:43
sigrid
Hallo Ralf,
es erscheint:
Debug.Print Dir("D:\Lager_Informationen.xlsm")

dies: Lager_Informationen.xlsm

gr sigrid


Noch gebe ich nicht auf!
15.02.2025 14:38:27
RPP63
@Sigrid:
Noch ein Versuch:
Kannst Du die Datei manuell per Doppelklick im Explorer öffnen (oder ist sie etwa geschützt)?
Klappt auch nicht
15.02.2025 14:57:17
sigrid
Hallo Ralf,
die Datei ist da aber dann halt die Fehlermeldung.
Ich habe allerdings dieses Makro in der Datenbank: 
Private Sub Workbook_Open()

   UFsuchfeld.Show

End Sub


wenn ich die Userform beende, dann kommt Fehler.
Wie beschrieben die Datei wurde einwandfrei geladen,.

gr sigrid
Anzeige
AW: Ja hat der PC
15.02.2025 14:43:31
Alwin Weisangler
Hallo Sigrid,

da könnte im Pfad ein unsichtbares Zeichen enthalten sein.
Mit Shift/Rechtsklick auf die Datei im nicht erreichbaren Pfad kannst du im Site Menü "Pfad kopieren" anklicken.
Im Notepad ++ (falls nicht vorhanden eine adäquate Software verwenden) einfügen.
Dann sollte(n) diese(s) Zeichen sichtbar werden.

Gruß Uwe

Anzeige
Leider nichts Uwe
15.02.2025 15:01:48
sigrid
Hallo Uwe,
leider kein Leerzeichen außer zwischen:
Workbooks.OpenLFilename:="D:\##_Kunden_Datenbank.xlsm"
ich werde auf dem alten Rechner auch nochmal Testen.

gr sigrid
AW: Leider nichts Uwe
15.02.2025 15:11:18
Alwin Weisangler
Hallo Sigrid,

Leerzeichen sind sichtbar. Aber es gibt auch unsichtbare (u. A. Steuerzeichen) Zeichen.
Danach solltest du auf dem vorgeschlagenen Weg suchen.

Gruß Uwe
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum