Excel VBA - Variabler Autofill
25.01.2017 12:46:53
PS
Nach langem Suchen habe ich leider immer noch keine Lösung für mein Problem gefunden:
Ich habe ein Makro geschrieben, welches aus einem bestimmten Sheet sich Daten zieht und direkt unterhalb der letzten Zeile einfügt. Nun gibt es allerdings auch Formeln in der zu befüllenden Tabelle, welche einfach durch ein AutoFill sozusagen mit runtergezogen werden sollen.
Ich hab mal folgende VBA-Teile:
Sub Aktien()
LetzteZeile = Worksheets("Input").Cells(Rows.Count, 1).End(xlUp).Row
LetzteZeileA = Worksheets("Aktien").Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To LetzteZeile Step 1
Wert = Cells(x, 10).Value
Wert2 = Cells(x, 11).Value
If Wert = "EQUITIES" And Wert2 > 0 Then
Worksheets("Aktien").Cells(LetzteZeileA + 1, 1).EntireRow.Insert
Worksheets("Input").Cells(x, 3).Copy
Worksheets("Aktien").Select
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(NextRow, 2).Select
ActiveSheet.Paste
Worksheets("Input").Select
Cells(LetzteZeileA, 9).AutoFill Destination:=Range(Cells(LetzteZeileA, 9), Cells( _
LetzteZeileA + 1, 9))
End If
Next x
End Sub
Und hier funktioniert das Autofill nicht.. Jemand eine Idee?
Vielen Dank!
VG
PS