Private Sub CommandButton1_Click() Dim lngLetzte As Long With ThisWorkbook.Worksheets("Tabelle2") lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Range(.Cells(2, 1), .Cells(lngLetzte, 1)).ClearContents End With End Sub
56.6k Fragen
242k Antworten
6.4k Nutzer