Clever-Excel-Forum

Normale Version: Folgezellen füllen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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
Vielen Dank!
Funktioniert bestens Wink