ist noch zu früh für mich...
Wie war das noch mal, ich möchte mit vba den Inhalt von sheet"start" löschen aber ohne die erste Zeile.
Viele Grüße aus dem wieder bewölkten Hamburg bei 2 Grad
ray
Sub WegDamit()
Dim RR#
RR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
ActiveSheet.Range(Rows(2), Rows(RR)).Delete
End Sub
Sub Ray()
Dim Adr As String
On Error Resume Next
Adr = Cells(Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, _
xlPrevious).Row, Cells.Find("*", Range("A1"), xlFormulas, , _
xlByColumns, xlPrevious).Column).Address(False, False)
On Error GoTo 0
If Adr = "" Then Adr = "A1"
If Range(Adr).Row > 1 Then Range("A2:" & Adr).ClearContents
End Sub