Office: (Office 2019) Laufzeitfehler '9' Index außerhalb des gültigen Bereichs

Ich habe ein Makro aufgezeichnet und es läuft auch so wie es soll.

Das Problem ist nur dass ich das Makro in einer Arbeitsmappe aufgezeichnet habe die sich XXX.csv nennt. Das darin befindliche einzige Tabellenblatt hat den gleichen Namen.

Öffne ich nun die ZZZ.csv und lasse das Makro laufen, dann bemängelt VBA immer, dass es wohl die Datei nicht findet.

Windows("XXX.csv").Activate

Wie kann ich dieses Problem umgehen, dass das Makro in jeder Datei - unabhängig vom Namen - läuft? Sind meine ersten Schritte in VBA *holy

:)

 

Hallo,

du musst das Object korrekt referenzieren.

Code:

... nur mal als Anregung ... zum weitersuchen ...

Sabina

 

Hallo,

'OpenText' gibt nix zurück, ist eine Sub!

Code:

 

Danke für eure Antworten - kann euch aber leider nicht ganz folgen, was ich tun soll.

Ich habe zwar nach den Bestandteilen des Hinweis von Sabina gegoogelt, aber die Erklärungen sind für mich nur schwer zu verstehen. Könnt ihr mich da bitte etwas mehr unterstützen.

 

Hi,

Du kannst Makros in einer csv Datei speichern? Wow! Da wüsste ich doch zu gern, wie Du das hinkriegst...

 

Hab mich vielleicht etwas blöd ausgedrückt; ich habe das Makro in PERSONAL.XSLB gespeichert.

Wenn ich das Makro aber in einer anderen Datei laufen lassen, läuft nur ein Teil des Makro. Im Makro habe ich aufgezeichnet, dass zwei SVERWEISE gemacht werden, aber dann gibt mir das Makro eben immer den eingangs genaannten Fehler aus, weil die Datei, in der das Makro läuft nicht so heißt wie die Datei, in der ich es aufgezeichnet habe.

Habe mich auch mit den Tipp von Flotter Feger beschäftigt; weiß aber nicht, wie ich die Information umsetzen soll.

 

Dann zeig doch mal den betroffenen Code - aber hier bitte in Code-Tags posten.

 

Danke!

Das was mit der Referenzierung nicht stimmt, habe ich im Debugger schon gesehen *rolleyes.gif*

Hier der Code - rot markiert der Fehler im Debugger. So hieß die Datei, in der ich das Makro aufgezeichnet habe:

Code:

 

Kann mir jemand anhand des Codes weiterhelfen *confused.gif*

 

Hallo,

vor laute Selection und Activate ist nicht ersichtlich was du vorhast.

Sieht nach Text-Import aus.

Lade die Dateien hoch und beschreibe dein Ziel.

 

Dann beschreibe ich mal kurz mein Vorhaben/Schritte.

Ich bekomme aus unserem ERP eine CSV-Datei, deren Name sich immer ändert.

Folgende Schritte möchte ich durchführen:

1. Markieren der Spalte E und Einfügen neuer Zellen
2. In der neuen Spalte E selektiere ich über eine TEIL-Formel (=TEIL(D2;34;18)) einen Wert für einen späteren SVERWEIS und ziehe die Formell bis zu Zeile 1000, damit ich auch größere Dateien mit mehr Zeilen verarbeiten kann.
3. Als nächstes Kopiere und füge ich das Ergebnis der TEIL-Formel als Werte in die Zeile E ein
4. Anschließend enttferne ich über Suchen und Ersetzen alle Leerzeichen in Spalte E
   Bis hierhin funktioniert alles.
5. In Spalte H kommt die Überschrift archviert und ich Spalte I die Überschirft aktiv
6. Optimalerweise sollen sich als nächstes zwei weitere Exceldateien öffnen, die im Ordner Downloads liegen und archiviert.xlsx und aktiv.xlsx heißen
   Hier tritt dann der Fehler auf
7. In Spalte H kommt dann ein SVERWEIS =SVERWEIS(E2;[archviert.xlsx]archiviert!$A$4:$A$50266;1;0) und wird runtergezogen
8. In Splate I der SVERWEIS =SVERWEIS(E2;'[aktiv.xlsx]Fehlende Dispo'!$A$4:$A$137577;1;0) und wird runtergezogen
9. Dann sollen in der ersten Zeile Filter gesetzt und die Zeile fixiert werden
10. Zum Abschluss soll in Spalte E der Filter auf den Wert LIN gesetzt werden

Leider sind die Dateien zum teilen zu groß (zwischen 2 und 3MB); wo kann ich die denn am besten ablegen, damit man sie aus dem Forum abrufen kann?

 

...ohne jetzt auf den Sinn oder die Richtigkeit des Codes einzugehen, schmeiß die rot markierte Zeile raus, die hat absolut nichts mit dem, was danach geschehen soll, zu tun...

 

Hallo Ralf,

hab getan wie du mir aufgetragen hast; läuft wunderbar! Vielen Dank!

Keine Ahnung, wie die Zeile(n) da reingekommen sind. Das Makro macht jetzt genau das, was ich aufgezeichnet habe.

 

Eine Frage habe ich noch.. Ich habe zwar Google bemüht, aber die gefundenen Beiträge haben mir irgendwie nicht weitergeholfen.

Ich möchte das Makro nun Kollegen zur verfügung stellen, aber irgendwie scheint der Export oder Import nicht richtig zu funktionieren.

Wie exportiere ich und wie importieren meine Kollegen das Makro korrekt?

 

Speicher die Datei mit den Makros als Add-In (.xlam). Diese kann dann jeder, der die Funktionen benötigt, kann diese bei sich einbinden (Datei -> Optionen -> Add-Ins -> unter Verwalten "Excel-Add-Ins" -> Gehe zu -> Durchsuchen)