Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1536to1540
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

Replace

Replace
23.01.2017 16:57:01
Edwin
Hallo,
ich habe ein kleines Problem mit Replace.
Replace("Text 1", " ", "+")
Ergebnis: Text+1
Replace("Text 1 2", " ", "+")
Ergebnis: Text+1+2
Ich hätte aber gerne "Text 1+2"
Wie kann ich das lösen?
LG
Edwin

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

Betreff
Datum
Anwender
Anzeige
AW: Replace
23.01.2017 17:04:41
onur
Replace("Text 1 2", " ", "+",6)
Das ergibt 1+2, onur! Das war aber nicht ...
23.01.2017 19:11:34
Luc:-?
…gefragt!
Bspw so geht das, Edwin:
Dim erg
erg = "Text 1 2"
Mid(erg, 7) = "+"
MsgBox erg

Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …
AW: Das ergibt 1+2, onur! Das war aber nicht ...
23.01.2017 19:57:43
onur
Peinlich, peinlich....
AW: Replace
23.01.2017 17:17:25
Daniel
Hi
probier mal:
worksheetfunction.substitute("Text 1 2", " ", "+", 2)
das ersetzt nicht alle, sondern nur das zweite Leerzeichen im Text.
wenn die Anzahl der Leerzeichen variabel ist und das letzte ausgetauscht werden soll, dann müssest du die Anzahl erst ermitteln, dh statt der 2 als letzten Parameter dann:
Len(DeinText)-Len(Replace(DeinText, " " , ""))
Als Alternative gäbe es noch die MID-Anweisung:
Dim txt  As String
txt = "Text 1 2"
Mid$(txt, InStrRev(txt, " "), 1) = "+"
Debug.Print txt
Gruß Daniel
Anzeige
AW: Replace
23.01.2017 17:37:21
Edwin
Perfekt!
Super, vielen Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige