Ich importiere zwei Excel Mappen, die haben täglich andere Anzahl von Zeilen.
Ich muss in beiden eine Spalte mit Mappe Namen einfügen, aber nur für die ausgefüllte Zeilen und dann beide Mappen in eine mit Namen Alina zusammenführen.
Mit dem Makro bekomme ich das hin, aber ich kann nicht feste Range anlegen, weil täglich variiert die Zeilen Anzahl. Wie kann ich es umgehen?
Danke im Voraus
Workbooks.Open Filename:="D:\0000\WA.xls"
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Standort"
Range("A2").Select
ActiveCell.FormulaR1C1 = "WA"
Range("A2:A26").Select
Selection.FillDown
ActiveWorkbook.Save
Workbooks.Open Filename:="D:\0000\WE.xls"
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select
ActiveCell.FormulaR1C1 = "Standort"
Range("A2").Select
ActiveCell.FormulaR1C1 = "WE"
Range("A2:A24").Select
Selection.FillDown
ActiveWorkbook.Save
Workbooks.Open Filename:="D:\0000\Tislot.xls"
ActiveWindow.Close
Workbooks.Open Filename:="D:\0000\Alina.xls"
Cells.Select
Selection.Delete Shift:=xlUp
Windows("WA.xls").Activate
Rows("1:26").Select
Selection.Copy
Windows("Alina.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A27").Select
Windows("WE.xls").Activate
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Rows("1:23").Select
Selection.Copy
Windows("Alina.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close