Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeichen löschen

Zeichen löschen
24.08.2004 09: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
Anzeige
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 !
Anzeige
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 10:23:08
Gregor
Hallo P@ulchen, Marcl
Vielen herzlichen Dank, klappt super.
Gregor
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige