Office: Dateien automatisch öffnen und Daten rüberkopieren

Hi,

was soll Dir meine Grafik sagen, ich wollte Dir damit nur demonstrieren, welchen Dateinamen und Mappennamen ich jeweils, von jeder Datei an die Funktion übergebe. Ich weiß immer noch nicht, arbeitest Du mit Excel 2007 oder niedriger. Da gibt es nämlich noch eine Stolperfalle, nämlich beim Tabellennamen, falls Du nicht mit Excel 2007 arbeitest, so ist müsstest Du auch noch folgende Anweisung anpassen.

rngZelle = GetValue(sPfad, Right(f1, Len(f1) - InStrRev(f1, "\")), Left(Right(f1, Len(f1) - InStrRev(f1, "\")), Len(Right(f1, Len(f1) - InStrRev(f1, "\"))) - 4), rngZelle.Address)

Ich kann immer nur Mutmaßungen anstellen, da ich Deine Dateien und Tabellennamen nicht kenne, irgendwo läuft etwas schief und das gilt es heraus zufinden.

 

\@Jürgen:

Hi Jürgen,

anbei nun die ZIP Datei, in der zum einen die Excel-Datei enthalten ist, in die die Dateien reinkopiert werden sollen ("Importdaten aller manuellen..."), zum anderen die Quelldateien.
Also eine genaue Fehlermeldung in dem Sinne gibt es nicht beim Durchlaufen des Makros. Das Problem ist aber, dass wenn in einer der Quelldateien nur ein Datensatz enthalten ist, dieser nicht rüberkopiert wird, und wenn mehrere enthalten sind, der letzte immer fehlt.
Könntest Du das mal anhand meiner abgewandelten Version vom VBA_Code probieren?
Vielen Dank vorab,
mattlack

 

Hi,

bitte folgende Zeile:

LZeile = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

abändern, dann funktioniert es ohne Probleme.