AW: Umlaute aus Textbox umwandeln und in Tabelle ausgeben
26.01.2024 11:35:08
daniel
Hi
im Prinzip so
im Array immer abwechselnd Umlaut und Ersatzzeichenfolge eingeben.
Proper macht das ganze dann für Großbuchstaben, so dass man die nicht extra im Array angeben muss.
dim strMail as string
dim i as long
dim arrUL
strMail = Textbox1.Text & "." & Textbox2.Text
arrUL = Array("ä", "ae", "ö", "oe", "ü", "ue")
for i = 0 to ubound(arrUL) step 2
strMail = replace(strMail, arrUL(i), arrUL(i + 1))
strMail = Replace(strMail, Worksheetfunction.Proper(arrUL(i)), worksheetfunction.proper(arrUL(i + 1)))
next
Cells(1, 1) = strMail
Gruß Daniel