ich verwende folgenden Code, um in einer Spalte die Chr(160)-Zeichen, also non-breaking spaces zu entfernen, die gelegentlich beim manuellen Einfügen großer Datenmengen entstehen (je nach Quelle des Kopierens).
Das klappt soweit gut:
Worksheets(2).Range("A:A").Replace Chr(160), "", xlPart
Wie kann ich vor dem Entfernen die Zahl der Zellen zählen, die ein solches Zeichen enthalten ? Ich habe dafür folgenden Code probiert, was aber so leider nicht funktioniert:
varBlankCount = Application.WorksheetFunction.CountIf(Range("A:A"), "*" & Chr(160)) & "*"
Vielen Dank im Voraus für Eure Hilfe, Martin