Einfache natürliche Zahlen löschen

[Wulfi]

Hallo liebes Forum,

ich brüte über folgendes Problem. Ich habe in meiner Spalte A zahlreiche Zellen in denen einfache natürliche Zahlen stehen. Und sonst nichts.

Auch in anderen Zellen stehen bei mir einfache natürliche Zahlen zusammen mit anderen Informationen.

Ich suche jetzt nach einer Methode womit ich nur die Zellen löschen kann, in der nur die natürlichen Zahlen und sonst nichts steht. Alle anderen

Zellen sollen von dieser Löschung unberücksichtigt bleiben. Wie kriege ich das am besten hin?

[Crazy Tom]

Hi

das hier wäre eine Möglichkeit

Code:

Sub test()
   Dim lngLetzte As Long
   Dim lngZaehler As Long
   lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
   For lngZaehler = lngLetzte To 1 Step -1
       If IsNumeric(Cells(lngZaehler, 1)) Then
           Cells(lngZaehler, 1).ClearContents
       End If
   Next
End Sub

MfG Tom

[Wulfi]

Danke!