Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
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
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige