Zeichen löschen

Forumthread: Zeichen löschen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeichen löschen

Zeichen löschen

24.08.2004 11:32:36

Gregor

Guten Tag zusammen
Ich habe in einer Tabelle (Spalte A) verschieden Namen mit ".", "-" und Leerschlägen (zB: soll "Capolago-Riva S.Vitale" als "CapolagoRivaSVitale" geschrieben werden).
Wie kann ich mit einem Makro diese Sonderzeichen/Leerschläge löschen. Bin im archiv nicht fündig geworden.
Vielen Dank und Gruss
Gregor

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeichen löschen

P@ulchen
AW: Zeichen löschen

Marcl
AW: Zeichen löschen

24.08.2004 12:23:08

Gregor

AW: Zeichen löschen

P@ulchen

Hallo Gregor,
da gibt es mehrere Möglichkeiten (Ersetzen, Funktion 'Wechseln'...)
Die Makrolösung könnte so aussehen:

Sub Bereinigen()
Dim Bereich As Range
Set Bereich = Selection
  With Bereich
  .Replace What:=".", Replacement:="", _
           LookAt:=xlPart, MatchCase:=True
  .Replace What:=" ", Replacement:="", _
           LookAt:=xlPart, MatchCase:=True
  .Replace What:="-", Replacement:="", _
           LookAt:=xlPart, MatchCase:=True
  End With
End Sub

Dieser Code wandelt alle Zellinhalte im markierten Bereich entsprechend Deinen Wünschen.
Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !

AW: Zeichen löschen

Marcl

Hallo Gregor,
wie wär´s damit:


Sub Makro1()
With Columns("A:A")
.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Range("A1").Select
End Sub

Gruß
Marcl

AW: Zeichen löschen

24.08.2004 12:23:08

Gregor

Hallo P@ulchen, Marcl
Vielen herzlichen Dank, klappt super.
Gregor