>> Also es gibt verschiedene Dateien(jede Datei ein Tag) mit Werten dich ich in Spalte B der Masterdatei hineinfüge [...]. Leider steht in jeder Datei nur das Datum in einer Zelle mit Text im Kopf.
Also müsstest du nur dieses Datum aus der "Zelle mit Text im Kopf" vor die frisch übertragenen Daten in Masterdatei Spalte B setzen?
Dann musst du natürlich die hervorgehobene Zeile (Ausschnitt(e) aus ...)...
With Worksheets("Tabelle1")
Set rng = .Range("B1", .Cells(.Rows.Count, "B").End(xlUp))
End With
... entsprechen abändern. Du willst dich ja nicht auf die gesamte Spalte beziehen sondern nur auf den frisch rüberkopierten Bereich (du darfst halt nicht mehr fest bei B1 beginnen, sondern musst diese Angabe variable setzen). Die Anzahl kennst du ja durch (gleiche Quelle wie oben).
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
|