String in Bereich ersetzen
30.12.2013 19:06:37
Peter
Mit nachfolgendem Code möchte ich bei einem selektierten Bereich alle Leerzeichen eliminieren.
Wenn ich also eine Zelle mit dem Inhalt "X X" selektiere, soll nach dem Ablaufen des Codes in dieser Zelle noch "XX" stehen. Ich brauche diesen Code, um ganze Bereiche abzuarbeiten, in denen bei Buchstaben oder Zahlenkombinationen (aus anderem Programm übernommen) eine Menge unnötiger Leerzeichen enthalten sind.
Nachfolgender Code ist noch nicht zielführend (egal, ob MatchCase auf True oder False steht). Wer hilft mir weiter?
Danke und Gruss, Peter
Sub test_xxx()
Call StringInBereichErsetzen(Selection, " ", "")
End Sub
Sub StringInBereichErsetzen(rngBereich As Range, strOld As String, strNew As String)
rngBereich.Replace _
What:=strOld, Replacement:=strNew, _
SearchOrder:=xlByColumns, MatchCase:=False
End Sub
Anzeige