Hallo zusammen,
ich benötige eure Hilfe bei meinem kleinen Script.
Das Script soll eine vorhandene Excel-Tabelle mit ca. 30.000 Zeilen formatieren (Rahmen setzen, sortieren etc.).
Bei dem Befehl "AutoFill" von VBA komme ich jedoch nicht weiter.
Das Script soll in Zelle B2 und B3 einen SVerweis eintragen und diesen bis zum Ende füllen.
$FormelUebersetzung1 = '=WENNFEHLER(SVERWEIS(A2;Tabelle2!A:B;2;FALSCH);"")'
$FormelUebersetzung2 = '=WENNFEHLER(SVERWEIS(A3;Tabelle2!A:B;2;FALSCH);"")'
$AnzahlZeilen = $oExcel.Worksheets("Tabelle1").Usedrange.Rows.Count
$Range = '"B2:B' & $AnzahlZeilen & '"'
With $oExcel.Worksheets("Tabelle1")
.Cells(2,2).Formula = $FormelUebersetzung1
.Cells(3,2).Formula = $FormelUebersetzung2
EndWith
$oExcel.Worksheets("Tabelle1").Range("B2:B3").Autofill($Range)
[/autoit][autoit][/autoit][autoit]; oder
[/autoit][autoit][/autoit][autoit]With $oExcel.Worksheets("Tabelle1")
.Range("B2:B3").Select
.Selection.AutoFill($Range)
.Range($Range).Select
EndWith
Die Formeln in B2+B3 werden eintragen, aber bei dem Befehl AutoFill bringt er einen Error (==> The requested action with this object has failed.:)
Der originale Code von Excel VBA:
Range("B2:B3").Select
Selection.AutoFill Destination:=Range("B2:B25741")
Range("B2:B25741").Select
Im voraus vielen Dank für eure Bemühungen.
Gruß
Espyre