Ich weiß zwar, das meine Frage vielen ein Lächeln ins Gesicht zaubern wird, aber ich versuche trotzdem mal, sie zu stellen.
Was stimmt am Code nicht?
Public Sub TN_Loeschen()
Dim wks As Worksheet
Dim Bereich As Range
Dim loZ As Long
Set wks = Sheets("Teilnehmer")
loZ = wks.Cells(2, 1).End(xlUp).Row
Set Bereich = wks.Range(Cells(2, 1), loZ)
wks.Bereich.ClearContents
End Sub
Ich möchte mit diesem Sub den Inhalt der Tabelle "Teilnehmer" im Bereich ab Zeile 2 (Überschrift möchte ich behalten) löschen.
LG
Peer