Mail schreiben, Umlaut in der Adresse ändern

Forumthread: Mail schreiben, Umlaut in der Adresse ändern
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Mail schreiben, Umlaut in der Adresse ändern

28.08.2006 13:06:42

mtremer

Hallo Excel-Freunde,
ich möchte eine Mail mit Excel schreiben. Den Code dafür habe ich mir dank dieses Forums zusammengesucht. Fürden Adressaten habe ich folgende Zeile:
.To = Sheets("Datenbank").Range("B18")
Jedoch habe ich ein Problem, wenn in dem Feld B18 ein Name mit einem Umlaut steht.
Wie muss der Code aussehen, damit in der zu schreibenden Mail z.B. das "ä" in ein "ao" geändert wird?
Danke und viele Grüße
Marco

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mail schreiben, Umlaut in der Adresse ändern

28.08.2006 13:19:31

u_
klasse, danke

28.08.2006 14:16:54

mtremer

AW: Mail schreiben, Umlaut in der Adresse ändern

28.08.2006 13:19:31

Hallo,
in ein Modul:


Function fncUmlaut(txt As String) As String
Dim i As Integer
txt = LCase(txt)
For i = 1 To Len(txt)
Select Case Mid(txt, i, 1)
Case "ä": fncUmlaut = fncUmlaut & "ae"
Case "ö": fncUmlaut = fncUmlaut & "oe"
Case "ü": fncUmlaut = fncUmlaut & "ue"
Case Else: fncUmlaut = fncUmlaut & Mid(txt, i, 1)
End Select
Next i
End Function

.To = fncUmlaut(Sheets("Datenbank").Range("B18"))
Gruß
Lesen gefährdet die Dummheit

klasse, danke

28.08.2006 14:16:54

mtremer

Hallo u_,
danke für die schnelle Antwort.
Es funktioniert.
Viele Grüße
Marco