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

replace für 97???

Forumthread: replace für 97???

replace für 97???
12.02.2004 11:05:53
AndreasS
Morgen,
habe eine Frage bezüglich der Funktion replace. Gibt es so etwas auch für 97?
Vielen Dank für eure Mühen.
Gruß Andreas
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hat sich erledigt...
12.02.2004 11:35:03
AndreasS
Danke an die, die sich mit meinem Problem befasst haben.
Hier die Lös. (Schmitts Page):
Public

Function Replace(ByVal zu_durchsuchender_Text As String, _
ByVal Was_ersetzen As String, ByVal durch_was_ersetzen As String)
If Was_ersetzen = "" Then Exit Function
If zu_durchsuchender_Text = "" Then Exit Function
Dim i As Integer, L As Integer, t As String, P As Integer
L = Len(Was_ersetzen)
P = InStr(1, zu_durchsuchender_Text, Was_ersetzen, vbTextCompare)
While P > 0
t = t & Left(zu_durchsuchender_Text, P - 1) & durch_was_ersetzen
zu_durchsuchender_Text = Mid(zu_durchsuchender_Text, P + L)
P = InStr(zu_durchsuchender_Text, Was_ersetzen)
Wend
Replace = t & zu_durchsuchender_Text
End Function

Andreas
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