Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Leerzeichen ersetzen

Leerzeichen ersetzen
25.12.2008 22:10:00
Elk
Hallo
Wenn in einer Zelle (A1) ein Satz geschrieben oder kopiert wird,
sollen nach dem verlassen der Zelle die Leerzeichen mit " _ " ersetzt werden.
Beispiel
Zelle(A1): Dies ist ein Test
nach verlassen der Zelle: Dies_ist_ein_Test
Kann jemand helfen?
Gruß
Elk
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen ersetzen
25.12.2008 22:39:00
Andre´
Hallo Elk,
hab folgendes aufgezeichnet:

Sub Makro1()
ActiveCell.Replace What:=" ", Replacement:="_", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:=" ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub


MFG Andre

Anzeige
AW: Leerzeichen ersetzen
25.12.2008 22:44:00
Jochen
Hi,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Replace " ", "_"
End If
End Sub


mfg Jochen

AW: Leerzeichen ersetzen
25.12.2008 22:56:19
Elk
Dank an euch beiden, wobei ich sagen muß,
das der Code von Jochen schon genial ist.
(beide funktionieren)
Gruß
Elk
Anzeige
AW: Leerzeichen ersetzen
25.12.2008 22:58:59
Elk
Hi Lenni,
genau das habe ich gesucht.
Jochen sein Code funzt genauso.
Vielen dank
Gruß
Elk

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige