AutoFill läuft falsch? warum?
17.03.2025 10:44:12
Peter
Füge diese in I2 ein und kopiere dann nach rechts bis Q2, nun soll diese nach unten bis zur letzten befüllten Zelle von B kopiert/ausgefüllt werden.
Aber er füllt mir die Spalte I also ab Zelle I2 nicht was mache ich Falsch? Er soll I2/Q2 nach unten ausfüllen bis in B kein Eintrag mehr ist.
Von J bis Q ist alles OK wird befüllt aber I nicht warum?? vielen herzlichen Dank
Code:
Sub Makro1()
Range("I2").Select
ActiveCell.Formula2R1C1 = _
"=IFERROR(INDEX(Tabelle1!C[-1],AGGREGATE(15,6,ROW(Tabelle1!R2C8:R100000C8)/((Tabelle1!R2C3:R100000C3=RC4) *(Tabelle1!R2C4:R100000C4=RC3)*(RC5>=Tabelle1!R2C1:R100000C1)*(RC5=Tabelle1!R2C2:R100000C2)),1)),"""")"
Selection.AutoFill Destination:=Range("I2:Q2"), Type:=xlFillDefault
Dim lngLast As Long
lngLast = Cells(Rows.Count, 2).End(xlUp).Row
'Kopiere die Formel bis zur letzen befüllten Zelle
Range("I2").AutoFill Destination:=Range("I2:Q" & lngLast)
Range("I2").Select
End Sub
Anzeige