Schnelles Löschen von Punkten und Abschnittswechsel

[ChristaRohn]

Hallo liebe VBA Profis,
ich habe folgendes Problem. In einigen Zelllen meines Excel Arbeitsblattes befindet sich oft nur ein Zeichen wie ein Punkt, oder ein Zeilenwechsel. Diese Zeichen entferne ich bislang mit folgendem Code:

Code:

tz = 0
While tz < 10000
tz = tz + 1
'Entfernen einzelner Zeichen
ActiveCell.Offset(0, 1).Value = Replace(ActiveCell.Offset(0, 1).Value, Chr(13), "") 'Abschnitte entfernen
If ActiveCell.Offset(0, 1).Value = "." Then ActiveCell.Offset(0, 1).Value = "" 'Punkt löschen
Wend

So weit so gut. Aber wie geht so etwas schneller ohne Schleife. Mein Problem dabei, dass  in den Zellen wo Text drin steht und der mit einen Punkt endet, diese Punkte  nicht gelöscht werden sollen.
Es soll nur in den Zellen der Punkt oder Abschnittswechsel gelöscht werden, wo sonst nichts steht! Hat jemand eine Idee wie man so etwas machen könnte? Danke im voraus für eure Hilfe.

[BoskoBiati]

Hallo,

warum machst Du das nicht mit Suchen/Ersetzen?

Die Abfrage würde ich so machen:

Code:

set rng=Range(activecell.offset(0,1),activecell.offset(0,10000)
for each Zelle in rng
if Zelle="." or Zelle=chr(10) then Zelle=""

next