Index-Formel bis letzte beschriebe Zeile
12.08.2021 10:13:43
Andre
Ich habe mal wieder ein Problem und zwar möchte ich eine Index- Formel die in Zelle H8 steht kopiert wird und ab Zelle H10 bis zur letzten beschriebenen Zeile in Spalte C eingefügt wird. Irgendwie bekomme ich das nicht hin :(
Der Code kopiert die Formel bis zum enden aber die Zeilen bleiben leer
Vielleicht hat ja jemand von euch eine Idee.
Vielen Dank im voraus
Hier mein Ansatz:
Sub Makro3()
' Makro3
Dim zeile As Long, i As Long
zeile = Range("C65536").End(xlUp).Row
For i = 10 To zeile Step 1
Cells(i, 8).FormulaR1C1 = "=IFERROR(INDEX('Alle Daten'!C[-6]:C,MATCH(RC[-5]&RC[-4],'Alle Daten'!C[-6]&'Alle Daten'!C[-5],0),6),"""")"
Next i
End Sub