Hallo VB Profis,

ich lade jede nacht von einem Lieferanten eine Excel Datei mit Lagerbeständen herunter. Dass mache ich mit wget.

Diese Excel Datei möchte ich immer nach dem gleichen Muster verändern und dann als CSV Datei speichern.

Über die Funktion “Markros aufzeichnen“ habe ich die Veränderungen schon hinbekommen. Jetzt brauche ich noch ein Script, welches die Datei in Excel öffnet und danach das aufgezeichnete Makro ausführt. Zum Schluss soll Excel noch geschlossen werden.

Hier noch das aufgezeichnete Marko.

Sub bearbeiten()
' bearbeiten Makro
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Lagerbestand kleiner Null"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "Lagerbestandbeachten"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "Y"
    Range("L2").Select
    ActiveCell.FormulaR1C1 = "0"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("L4").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("L5").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "N"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = "Y"
    Range("M4").Select
    ActiveCell.FormulaR1C1 = "N"
    Range("M5").Select
    ActiveCell.FormulaR1C1 = "Y"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-4],R2C12:R5C13,2,0)"
    Range("H2:I2").Select
    Selection.AutoFill Destination:=Range("H2:I3003"), Type:=xlFillDefault
    Range("H2:I3003").Select
    ActiveWorkbook.SaveAs Filename:= _
        "E:\Lampen1a\Paulmann Abgleich\artikel_bestand_auto.csv", FileFormat:=xlCSV, _
        CreateBackup:=False
End Sub

Vielen Dank im voraus.

Gently