Ich habe dank Ramses' Hilfe letzte Woche ein Programm erstellt mit dem man aus 100 Dateien (die alle gleichartig gestaltet sind und ein Blatt namens "Salary" haben) innerhalb eines Verzeichnisses jeweils einen Wert (aus Zelle D15, Blatt " Salary") in eine andere, neue Datei kopiert. Alle 100 Dateien sollen untereinanderstehen und den Dateinamen in Spalte und den jeweiligen Wert in Spalte B stehen haben.
Das aktuelle Programm allerdings kopiert zwar die Namen der geoeffneten Dateien, nicht aber die Werte. Die Werte nimmt es aus der "neuen" Datei Zelle D15 stattdessen.
Koennt ihr mir helfen auch die letzt Klippe noch zu nehmen?
Vielen Dank!
Sub Dateien_in_eine_Tabelle_zusammenfuehren()
Dim Datei As String, Pfad As String
Dim wkb As String, wks As String
Dim myCounter As Integer
myCounter = 1
wkb = ActiveWorkbook.Name
wks = ActiveSheet.Name
Pfad = "C:\test" 'Mit Backslash !!
Datei = Dir(Pfad & "*.xls")
Do While Datei <> ""
Workbooks.Open Pfad & Datei
'A1 ist der Wert wo deine Daten stehen
Workbooks(Datei).Worksheets("Salary").Range("D15").Copy Destination:=Workbooks(wkb).Worksheets(wks).Range("A" & myCounter)
Workbooks(wkb).Worksheets(wks).Range("B" & myCounter) = Workbooks(Datei).Name
myCounter = myCounter + 1
ActiveWorkbook.Close False
Datei = Dir()
Loop
Application.ScreenUpdating = True
End Sub