mit diesem Macroteil lösche ich alle Werte ( Zahlen, Texte, Daten ( Datum Mehrzahl) außer ein paar Ausnahmen.
For Each C In Range("c2:nk150")
Select Case True
Case C Like "us" Or C Like "fr" Or C Like "zf" Or C Like "ZF"
Case Else: C.Clear
End Select
Next C
Diese Version hat jedoch zwei Nachteile:
Es wird nach groß und klein unterschieden ( Like "us" wird nicht gelöscht aber Like "Us" wird gelöscht). Es soll aber kein Wert gelöscht werden der z.B. mit us beginnt.
Unabhängig ob groß der Kleinschreibung.
Und das zweite Problem ist die Geschwindigkeit. Es dauert ziemlich lange bis alle Zellen abgeklappert sind.
Hat jemand eine bessere Lösung für mich?.
mfg thomas