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
58.4k Fragen
249k Antworten
7k Nutzer