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
57.8k Fragen
247k Antworten
6.7k Nutzer