Office: Kopieren von Zellen aus Dateien die geöffnet werden sollen

Hallo,

habe mal wieder ein Problem:

Ich habe hier ein Makro, welches Dateien öffnen soll, deren Verzeichnis in "A9" angegeben ist. Die Dateinamen stehen in den Zellen "G2" -"G 500". Anschließend soll er den Wert bestimmter Zellen von dort kopieren.

Die Dateien sollen nacheinander abgearbeitet werden. Je nachdem was in "F2" - "F..." in der Ausgangsdatei (A) steht, soll er aus den geöffneten Dateien den Wert bestimmter Zellen in dem jeweils angegebenen Tabellenblatt und Zelle in das Tabellenblatt (in die angegebene Spalte) der Ausgangsdatei kopieren.

Es erscheint die Fehlermeldung:

Die Methode Range für das Object '_Global' ist fehlgeschlagen.

Warum funktioniert mein Makro nicht, ich finde keinen Fehler!

Es wäre schön, jemand würde mir helfen! Danke!





Sub test()
Dim strDatnam As String
Dim wb As Workbook
Dim strPfad As String
Dim rngEinfüg As Range

Dim z As Variant
Dim AAA As String
Dim zeile As Variant


z = 2
zeile = 2

If Worksheets("TEST").Range("A9") = "" Then
MsgBox "Bitte Verzeichnis!"
End
End If


strPfad = Worksheets("TEST").Range("A9")
If Right(strPfad, 1) "" Then
Worksheets("TEST").Range("A9") = strPfad & ""
End If

strDatnam = Dir(strPfad & "*.xls")



Do While strDatnam ""
AAA = Worksheets("Test").Cells(zeile, 7)
zeile = zeile + 1
Set wb = Workbooks.Open(strPfad & AAA)

With Workbooks("A.xlsm").Sheets("Test")
Set rngEinfüg = IIf(IsEmpty(.Cells(18, 12)), .Cells(18, 12), .Cells(Rows.Count, 12).End(xlUp).Offset(1))

z = z + 1

If Worksheets("Test").Cells(z, 6).Value2 = "K*" Then
rngEinfüg = wb.Sheets("B").[B20]

ElseIf Worksheets("Universaltool").Cells(z, 6).Value2 = "L" Then
rngEinfüg = wb.Sheets("C").[B20]



End If

wb.Close savechanges:=False
strDatnam = Dir
End With
Loop

Set rngEinfüg = Nothing
Set wb = Nothing
End Sub

:)

 

Hallo Hans,

Dann lass mal Deinen Code im Einzelschritt ausführen.

 

es sollte überall
Workbooks("A.xlsm").Sheets("Test")
stehen, da die geöffnete Altiv ist und es gibt in dieser keine Tabelle "Test"

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Habe ich gemacht! Verstehe es trotzdem nicht!

 

Test gibt es nur in der ersten Datei, nicht in denen, die geöffnet werden sollen!

Habe aber doch immer die richtige aktiv dachte ich?

 

ich bin dann raus, da meine Beiträge nicht komplett gelesen werden.
Das wird schon seinen Grund haben.

 

Habe jetzt überall Workbook... hinzugefügt, d.h. bei If und ElseIf!

Geht immer noch nicht, gleicher Fehler!

 

Habe Ihren Beitrag komplett gelesen! Ich habe Workbook überall hinzugefügt, es geht trotzdem nicht!

 

Danke! Sie hatten recht! ich hatte noch einen TippFehler!

 

Ich muss das Thema nochmal öffnen:

Wie kann ich den Ausstieg festlegen, also er soll solange die Schleife durchlaufen bis die erste Zeile in der Liste des Tabellenblattes "Test" leer ist. Jetzt durchläuft er die Spalte bis alle Dateien im Ordner abgearbeitet sind!

 

Hm, warum beantwortest du nicht Deine noch offenen Themen?

 

Hi!

Habe ich erst heute gelesen, ich schicke morgen oder übermorgen einen Ordner mit Datei und zu kopierenden Dateien! Sorry!

Hast du hier einen Tipp für mich?

 

Jup...

Code:

 

Oki doki! Hat funktioniert, danke!

 

prima.

Wennst jetzt noch Dein Konstrukt postest, hat vielleicht der Ein oder Andere hierher verirrte noch was davon: