Folgezellen füllen

[Matix]

Hallo zusammen,

ich fülle die Spalte B nach unten mit copy und paste (über VBA).
Das funktioniert ganz gut.
In die erste freie Zelle in Spalte C schreibe ich eine Formel.
Diese soll dann so weit runter kopiert werden, wie Zellen in Spalte
B gefüllt sind - genau das bekomm ich nicht hin
Kann mir jemand sagen wie es weiter geht in meinem Code?

Code:

Sub aaa()
Dim lngLetzte As Long
Dim letztezeile_sf As Long


       lngLetzte = Worksheets("schon_fertig").Cells(Rows.Count, 3).End(xlUp).Row + 1  'erste freie Zelle in Spalte C
       letztezeile_sf = Worksheets("schon_fertig").Cells(Rows.Count, 2).End(xlUp).Row 'letzte gefüllte Zelle in Spalte B
       Worksheets("schon_fertig").Range("C" & lngLetzte).Select                       'erste freie Zelle in Spalte C auswählen
       Worksheets("schon_fertig").Range("C" & lngLetzte).FormulaR1C1 = "=IF(RC[-1]="""","""",""x"")" 'Formel in erste freie Zelle in Spalte C schreiben


End Sub

[Kuwer]

Hallo,

Sub aaa()
  Dim lngLetzte As Long
  Dim letztezeile_sf As Long
  
  With Worksheets("schon_fertig")
    lngLetzte = .Cells(Rows.Count, 3).End(xlUp).Row + 1  'erste freie Zelle in Spalte C
    letztezeile_sf = .Cells(Rows.Count, 2).End(xlUp).Row 'letzte gefüllte Zelle in Spalte B
    .Range(.Cells(lngLetzte, 3), .Cells(letztezeile_sf, 3)).FormulaR1C1 = "=IF(RC[-1]="""","""",""x"")" 'Formel in erste freie Zelle in Spalte C schreiben
  End With
End Sub

Gruß Uwe

[Matix]

Vielen Dank!
Funktioniert bestens