Problem mit Function (Variablewert wird verändert)
Martin
ich habe sicherlich ein leicht zu beantwortende Frage: Warum wird die Variabel "Prüftext" verändert und was muss ich machen, damit diese Variable ihren alten Wert behält?
Viele Grüße
Martin
Option Explicit
Sub Test()
Dim Prüftext As String, PrüftextKorrektur As String
Prüftext = "Schärf"
PrüftextKorrektur = Sonderzeichen(Prüftext)
MsgBox "Vorher: " & Prüftext & Chr(13) & "Danach: " & Sonderzeichen(PrüftextKorrektur)
End Sub
Function Sonderzeichen(Bezeichnung As String) As String
Bezeichnung = Trim(LCase(Bezeichnung))
Bezeichnung = Replace(Bezeichnung, "é", "e")
Bezeichnung = Replace(Bezeichnung, "ß", "ss")
Bezeichnung = Replace(Bezeichnung, "ä", "ae")
Bezeichnung = Replace(Bezeichnung, "ö", "oe")
Bezeichnung = Replace(Bezeichnung, "ü", "ue")
Sonderzeichen = Bezeichnung
End Function