den nachfolgenden Code hatte ich hier im Forum gefunden. Ich würde gerne erreichen, dass in Spalte C alle Einträge, die Zahlen enthalten gelöscht werden, Zellen mit Text allerdings unberührt bleiben. Bei den Zahlen handelt es sich um Geburtsdaten im Format 31.01.1974. Ich bekomme den Code irgendwie nicht angepasst. Was müsste ich verändern? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub GebDatweg()
Dim rng As Range, rngDel As Range
With Sheets("Grunddaten")
For Each rng In Range("C2:C" & Cells(Rows.Count, 6).End(xlUp).Row)
If IsNumeric(rng) Or Len(rng) 8 Then
If rngDel Is Nothing Then
Set rngDel = rng
Else
Set rngDel = Union(rng, rngDel)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.ClearContents
Set rngDel = Nothing
Set rng = Nothing
End With
End Sub