AW: Inhalt einer Zelle in 5 andere kopieren
25.04.2017 17:37:50
Daniel
Hi
kann man auch relativ einfach über eine Formel lösen.
wie diese aussieht, hängt davon ab, wie die Spalte A aufgebaut ist:
a) sind die Zellen zwischen A1 und A6 leer oder steht da was drin?
b) wenn die zwischenzellen nicht leer sind, ist der Abstand dann immer gleich (5 Zeilen)
wenn die zwischenzeilen leer sind, würde der Code so aussehen, hierbei können die Abstände dann auch unterschiedlich sein
Range("B1").Value = Range("A1").Value
With Range("B2:B" & Cells(Rows.count, 1).End(xlup).Offset(4, 1).Row)
.FormulaR1C1 = "=IF(RC1="""",R[-1]C,RC1)"
.formula = .Value
End With
wenn der Abstand immer 5 Zeilen ist, könntest du das verwenden:
Range("B1").Value = Range("A1").Value
With Range("B2:B" & Cells(Rows.count, 1).End(xlup).Offset(4, 1).Row)
.FormulaR1C1 = "=IF(Mod(Row(),5)=1,RC1,R[-1]C)"
.formula = .Value
End With
Gruß Daniel