Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1032to1036
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
Inhaltsverzeichnis

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

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige