Fill down - ohne Formatänderung

[pfoesch]

Hallo,

mit dem beiliegenden Code wird auch die Formatierung der ersten Zeile übernommen

Worksheets("Tabelle1").Range("G1:N10").FillDown

Welchen Code muss ich denn noch hinzufügen um nur die Formel aus Zeile1 runterzuschreiben?

Danke für eure HIlfe

[GMG-CC]

Moin,

FillDown wird immer die Formatierung mit kopieren.
Was als "Krücke" denkbar wäre: Formatierung des auszufüllenden Bereichs in irgendwelche nicht genutzte Bereiche kopieren, FillDown durchführen und die alte Formatierung dann zurück kopieren. Oder natürlich ohne FillDown kopieren ...

[pfoesch]

Morgen,

habe gestern noch ein wenig probiert

ich komme zu meinem Ziel am nächste mit - leider sehr aufwendig - da für jede Spalte einzeln ein Code

Private Sub CommandButton1_Click()
 Range("G2:G" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = Range("G1").FormulaR1C1
 Range("H2:H" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = Range("H1").FormulaR1C1
 Range("I2:I" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = Range("I1").FormulaR1C1
  usw.
  usw.
End Sub

habe es auch mit folgender Änderung probiert

 Range("G2:N" & Cells(Rows.Count, 2).End(xlUp).Row).FormulaR1C1 = Range("G1:N1").FormulaR1C1

leider übernimmt er in jede Zeile nur gerade Zahlen

d.h.
Zeile 2        G2+I2
Zeile 3        G4+I4   eigentlich G3+I3
Zeile4         G6+I6   eigentlich G4+I4

gibt es zu diesem Code einen Trick.


Danke

[schauan]

Hallöchen,

geht es nicht so?
Range("G1:N10").Formula = Range("G1").Formula
Wenn die Formel passt, reicht es, die aus G1 zu übernehmen und dann in den kompletten Bereich zu setzen.