Microsoft Excel

Herbers Excel/VBA-Archiv

Zeichen löschen

Betrifft: Zeichen löschen von: Gregor
Geschrieben am: 24.08.2004 09:32:36

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

  


Betrifft: AW: Zeichen löschen von: P@ulchen
Geschrieben am: 24.08.2004 09:44:21

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

     Code eingefügt mit Syntaxhighlighter 2.5


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 !


  


Betrifft: AW: Zeichen löschen von: Marcl
Geschrieben am: 24.08.2004 09:47:55

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


  


Betrifft: AW: Zeichen löschen von: Gregor
Geschrieben am: 24.08.2004 10:23:08

Hallo P@ulchen, Marcl

Vielen herzlichen Dank, klappt super.

Gregor


 

Beiträge aus den Excel-Beispielen zum Thema "Zeichen löschen"