Erstmal vielen Dank für deine Antwort. Funktioniert soweit auch ganz gut, nur leider nicht so wie ich gehofft habe. Kurz zum Projekt:
möchte verschiedene Werte aus diversen Dateien rauskopieren und in einer Tabelle untereinander zusammenfügen. In jeder Datei steht nur in einer Zelle das Datum welches ich dann in der zusammengefassten Tabelle in der Spalte A einfügen muss. Mit deinem Code kopiert er somit in jeder Zeile das selbe Datum.
Habe mal die Schleife aufgeschrieben:
For Each file In Application.GetOpenFilename(MultiSelect:=True)
Workbooks.Open file
Selection.Copy
Date = Mid(Range("A3"), 43, 10)
ThisWorkbook.Worksheets("Tabelle1").Activate
Range("B" & Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True 'einfügen in die nächste freie Zelle
Dim rng As Excel.Range
With Worksheets("Tabelle1")
Set rng = .Range("B1", .Cells(.Rows.Count, "B").End(xlUp))
End With
With rng.Offset(, -1)
.FormulaR1C1 = Date
End With
Next
Ich hoffe das Problem ist verständlich.
|