wie kann ich folgenden code umändern das alle beschriebenen zellen in dem Bereich mit einer null ersetzt werden
Private Sub CommandButton3_Click()
letzte_Zeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Application.ScreenUpdating = False
Range("j2:l" & letzte_Zeile).Select
Selection.Replace what:=" ", replacement:="0", MatchCase:=True
Application.ScreenUpdating = True
End Sub
gruß
aga