Laufzeitfehler 91 ohne Deklarationen

[Kuwer]

Hallo André,

Nicht ganz. Man kann fast ja an beliebiger Stelle einen Autofilter setzen wenn noch keiner besteht.

die Betonung liegt auf "einen" AF. Vorher schriebst Du jedoch "auch" einen AF.

Gruß Uwe

[schauan]

Hallo Uwe,

ich schreibe viel zu oft diese dummen Füllwörter wie "auch" und "noch" und "ja" und ... Aber ich arbeite immer wieder dran

[SiriKlaus]

Vielen Dank für eure Codes und Kommentare! Ich habe so auch dazu gelernt und mich weiter mit dem Code beschäftigt und Zeile für Zeile beobachtet was beim Ablauf passiert. Das Problem wieso der Filter nichts zum filtern findet, ist dass die externen Dateien aus Workbook X nicht in mein Workbook kopiert wurden. Wie am Anfang beschrieben hatte ich das Workbook X aus Versehen umbenannt und wieder zurückbenannt. gleichzeitig habe ich den Pfad auf mögliche Leerzeichen zu viel etc. überprüft und genau kopiert.

Der Code wird im Modul über einen Button ausgelöst. Den habe ich mir auch genauer angesehen aber alles passt. Hat es etwas mit deaktivierten Makros oder sonstigen zutun? Was könnten mögliche Fehler sein? Er läuft ohne meckern über den Pfad aber zieht sich keine Dateien aus Workbook X.... weswegen ich erstmal auf den Autofilterfehler aufmerksam geworden bin.

Ich danke für jede Mithilfe!

[Kuwer]

Hallo Klaus,

Der Code wird im Modul über einen Button ausgelöst.
Ich danke für jede Mithilfe!

gerne, wenn Du uns Deinen gesamten Code zeigen könntest.

Wenn VBA deaktiviert wäre, würde Excel dir das mitteilen.

Gruß Uwe

[SiriKlaus]

So, das ist der Code aus dem Modul 1. Er ist der einzige Code, der einen Pfad beeinhaltet. Der Pfad wurde mehrmals auf überflüssige Leerzeichen etc. geprüft. Vielen Dank für jede Anmerkung!

Code:

Sub GetSheets()
Path = "L:\QPT\QPT_OO\Dateien\Heutiger Report\Heutiger Report Tool\feedback"
Filename = Dir(Path & "*.xlsx")
 Do While Filename <> ""
 Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
    Sheet.Copy After:=ThisWorkbook.Sheets(1)
 Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
 Loop
End Sub

[RPP63]

Moin!
Es fehlt der abschließende Backslash in path
(natürlich nur, wenn feedback ein Ordner ist)

Gruß Ralf

[SiriKlaus]

Wahnsinn, danke! Genau das war's!!!!