OpenOffice.info

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

Hi Karolus,

DANKE, Deine Antwort ist mal wieder spitze. :D

[code]Sub Zeichen_Ersetzen
Dim myText as String
Dim NewText as String
myText = "Guten-Morgen-schöner-Tag"
newText = ReplaceString(myText,"+","-")
msgbox newText
End Sub[/code]
Genau das wars.

Nochmals vielen Dank. Wieder was dazugelernt.

Schönes Restwochenende.

Jürgen

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

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

Gruß Karo

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 [url=http://www.ooowiki.de/DeutschEnglischCalcFunktionen]DeutschEnglischCalcFunktionen[/url] 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.

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

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

Hallo Makrospezialisten,

ich habe da auch mal wieder ein Problem.
Folgendes Makro funktioniert einfach nicht [code]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[/code]
weil es die Fehlermeldung:
[quote="IDE"]"Sub- oder Function-Prozedur nicht definiert."[/quote]

in folgender Zeile ausgibt:[code]newText = SUBSTITUTE(myText,"n","s",1)[/code]
[quote="OOo-Wiki"]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) [/quote]

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