wie kann ich bitte per VBA ab Spalte B bis letzte benutzte Spalte alle Zellinhalte löschen, die nicht mit dem Zahl beginnen?
Danke vorab!
Gruß,
Selma
Selection.SpecialCells(xlCellTypeConstants, 2).ClearContents
oder eben (für alle Zellen) ohne Markierung:
Cells.SpecialCells(xlCellTypeConstants, 2).ClearContents
oder für einen bestimmten Bereich
BestimmterBereich.SpecialCells(xlCellTypeConstants, 2).ClearContents
Option Explicit
Sub Selma()
'Bereich markieren oder Ende einlesen und ne Schleife drüberschicken
Dim rng As Range
For Each rng In Selection
If Not IsNumeric(Left(rng.Value, 1)) Then rng.ClearContents
Next
End Sub
Gruß Matthias