23.03.2015, 12:01
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:
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.
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:
Zitat: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.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
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.