Hallo,
ich möchte eine Formel in Zeilen so oft wiederholen, wie ich in einer variablen Tabelle gefüllte Zeilen habe. Ne Ahnung, wie ich das steuern kann?
Evtl. eine "Loop-Funktion"?
Danke für eure Hilfe,
Robert
Hallo Robert,
gehe an die rechte untere Ecke der Zelle, ein Kreuz entsteht und Doppelklick.
AW: Formel X mal wiederholen
24.08.2007 11:05:52
Beate
Hallo Robert,
nachstehender Code befüllt Spalte A bis zur letzten befüllten Zeile in Spalte B (Spalte B =2 im Code) mit einer kleinen Beispielformel: Sub Test() Range("A1:A" & Cells(65536, 2).End(xlUp).Row).FormulaR1C1 = "=ROW()*5" EndSub
Gruß,
Beate
Anzeige
AW: Formel X mal wiederholen
24.08.2007 11:44:48
Robert
Hallo Beate,
ich möchte ab der Zelle C10 die Formeln so weit runterkopieren, wie Spalte B befüllt ist. Passt der Befehl so:
Range("C10:C" & Cells(65536, 2).End(xlUp).Row).FormulaR1C -1 = "=ROW()*5"
Danke für deine Hilfe,
Robert
AW: Formel X mal wiederholen
24.08.2007 12:13:55
Beate
Hallo Robert,
Du hast da ein überflüssiges -1 in den Code reingebastelt. So ist es richtig: Sub Test() Range("C10:C" & Cells(65536, 2).End(xlUp).Row).FormulaR1C1 = "=ROW()*5" EndSub
Gruß,
Beate
Anzeige
AW: Formel X mal wiederholen
24.08.2007 13:20:48
Robert
Hi Beate,
warum funktioniert das mit meiner Formel nicht?
Range("C10:C" & Cells(65536, 2).End(xlUp).Row).FormulaR1C1 = "=IF(AJ10=0;C9;AJ10)"
Oh mann, ich werde dieses VBA nie verstehen! :(
Grüße,
Robert
FormulaR1C1
24.08.2007 14:11:00
Beate
Hallo Robert,
ändere so: Sub Test() Range("C10:C" & Cells(65536, 2).End(xlUp).Row).FormulaR1C1 = "=IF(RC[33]=0,R[-1]C,RC[33])" EndSub
Es geht auch so, also ändere deine Strichpunkte in Punkte und verzichte auf R1C1: Sub Test() Range("C10:C" & Cells(65536, 2).End(xlUp).Row).Formula = "=If(AJ10=0,C9,AJ10)" EndSub
AW: PS
24.08.2007 15:11:08
Robert
Hi Beate,
hat alles super geklappt! Vielen lieben Dank für die Hilfe!!! :)
Grüße,
Robert