Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen löschen

Forumthread: 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
Anzeige

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige