Sub SUBSTITUTE nicht definiert

[turtle47]

Hallo Makrospezialisten,

ich habe da auch mal wieder ein Problem.
Folgendes Makro funktioniert einfach nicht

Code: Alles auswählen

Sub Zeichen_Ersetzen
Dim myText as String
Dim NewText as String
myText = "Guten-Morgen-schöner-Tag"
newText = SUBSTITUTE(myText,"n","s",1)
msgbox newText
End Sub

weil es die Fehlermeldung:

"Sub- oder Function-Prozedur nicht definiert."

in folgender Zeile ausgibt:

Code: Alles auswählen

newText = SUBSTITUTE(myText,"n","s",1)

WECHSELN
Tauscht in einer Zeichenkette einen alten gegen einen neuen Text aus.
WECHSELN\(&fullsearch=Text
=WECHSELN(Text; Suchtext; Textersatz; Auftreten)
=SUBSTITUTE(text; search text; new text; ocurrence)

Wie muss die richtige Syntax lauten?????

Schon mal vielen Dank fürs Lesen und noch grösserer Dank für einen Lösungsvorschlag.

Jürgen

[chrk]

Hallo Jürgen,
ich bin zwar beileibe kein Makrospezialist, aber versuch es mal mit Eindeutschen.

Du hast ja schon von der Wiki-Steite für die DeutschEnglischCalcFunktionen zitiert.

Wenn ich die englische Funktion in Calc probiere bekomme ich auch einen #Name?-Fehler.

Ansonsten finde ich in der gesamten Funktionenliste der Basic-Hilfe auch kein Äquivalent.

[Karolus]

Hallo Jürgen
Die englische Funktionsbezeichnung ist schon richtig in Basic, aber 'substitute' ist keine Laufzeit-funktion sondern "nur" eine Calcfunktion - Siehe: http://www.dannenhoefer.de/faqstarbasic ... l#Zweig213

evtl. tuts auch die Function ReplaceString(...) aus ->OOo-makros->Tools->String

Gruß Karo

[turtle47]

Hi Karolus,

DANKE, Deine Antwort ist mal wieder spitze.

Code: Alles auswählen

Sub Zeichen_Ersetzen
Dim myText as String
Dim NewText as String
myText = "Guten-Morgen-schöner-Tag"
newText = ReplaceString(myText,"+","-")
msgbox newText
End Sub

Genau das wars.

Nochmals vielen Dank. Wieder was dazugelernt.

Schönes Restwochenende.

Jürgen