Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leerstellen ersetzen

Forumthread: Leerstellen ersetzen

Leerstellen ersetzen
04.07.2005 10:31:24
Werner
Hallo zusammen,
mit diesem Makro ersetze ich Leerzeichenin einer Zelle. Machmal sind Leerzeichen und / oder auch // in der Zelle. Z.B.: 03D 103 603//10 nach dem ersetzen soll der inhalt der Zelle so aussehen 03D_103_603_10.
Wie muss ich das Makro ändern
Range("B14").Select
ActiveCell.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Werner
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerstellen ersetzen
04.07.2005 10:52:32
u_
Hallo,

Sub Makro1()
Dim x, y, z
x = "/"
y = " "
z = "_"
With Application.WorksheetFunction
ActiveCell = .Substitute(.Substitute(.Substitute(ActiveCell, x, y), y & y, y), y, z)
End With
End Sub

Gruß
Geist ist geil!
AW: Leerstellen ersetzen
Werner
danke klappt perfekt
Werner
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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