Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

replace für 97???

Forumthread: replace für 97???

replace für 97???
12.02.2004 12: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 12: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum