Range
01.12.2017 15:29:54
Robin
ich hoffe ihr könnt mir bei meiner Frage weiterhelfen. Denke für viele von euch ist das ein Kinderspiel. Das Makro soll in dem nächsten Jahr ca. 1000 Excel Tabellen umformen um sie in ein anderes System einzupflegen. Die Anzahl der Spalten ist immer gleich. Die Anzahl der Zeilen unterscheidet sich. Ich habe Schwierigkeiten damit, dass ich es nicht hin bekomme, dass das Makro nur für den verwendeten Bereich angewandt wird. Sprich wenn ich eine Datei habe mit 140 Zeilen dann soll das Makro nur 140 Zeilen nach unten die Formel kopieren. Schaffe es nur, auf einen bestimmten Bereich aber der Bereich soll variable sein bzw. von der Länge der Excel Datei abhängen. Ist das möglich?
Vielen Dank im voraus.
Mit freundlichen Grüßen,
Robin
Sub E_VerkettenText()
Range("L2").Select
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-11]&"": "",RC[-8])"
ActiveCell.Offset(1, 0).Range("A1").Select
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L150"), Type:=xlFillDefault
Range("L2:L150").Select
End Sub