Ich würde durchschleifen oder den Autofilter verwenden
durchschleifen:
- Ermittle die erste Zelle
- Ermittle die letzte Zelle
- dann eine For-Each-Schleife: für jede Zelle im ermittelten Bereich => Wenn Zelle.Wert < 0, dann Zelle.ClearContents
Autofilter:
-Ermittle erste Zelle
-Ermittle letzte Zelle
-Setze Filter
-Setze Filterkriterium = <0
- Autofilter-Bereich => bzw Filtrat.ClearContents
|