Variable
08.12.2022 10:37:06
Daniela
Da ich vba nur bescheiden kann, habe ich eine Frage bezüglich einer Variable.
Mein Ziel ist es, Umlaute aus den Texten umzuwandeln. Dazu habe ich zwei Codes gefunden, weis aber nicht wie und wo ich diese in einer Sub-Funktion einbauen muss.
Wäre Net wenn mir jemand einen Hinweis geben könnte.
Sub Bereinigen()
'** Dimensionierung der Variablen
Dim CleanWert As String
'** Sonderzeichen bereinigen
CleanWert = Clean_Sonderzeichen("(Hallo!) Wer ist da?")
'** Ausgabe des bereinigten Strings
MsgBox CleanWert
End Sub
Function Clean_Sonderzeichen(ByVal strWert As String) As String
'** Dimensionierung der Variablen
Dim i As Integer
Const strSonderzeichen As String = "-.,:;#+ß'*?=)(/&%$§!~\}][{"
'** Durchlaufen des übergebenen Strings
For i = 1 To Len(strSonderzeichen)
strWert = Replace(strWert, Mid(strSonderzeichen, i, 1), "")
Next i
'** Bereinigter String der Funktion zurückgeben
Clean_Sonderzeichen = strWert
End Function