Umlaute aus Variable entfernen

Forumthread: Umlaute aus Variable entfernen

21.07.2007 02:52:00

Thomas

Hallo mal wieder !
ich setzte anfang meines Makros eine Variable, die meinen Dateinamen später ausgeben soll. Diese Variable soll um später eben auch den Dateinamen ohne Umlaute zu haben, umgewandelt werden. "ä" zu "ae" usw.
Die Variable wird so anfangs gesetzt:
Dateiname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
Variable "Dateiname" beinhaltet aber leider oft Umlaute, die umgewandelt werden sollen und entweder in einer neuen Variablen ausgegen werden soll oder die Variable "Dateiname" überschreiben - egal.
Vielen, vielen Dank für die hoffentliche Hilfe
Grüße
Thomas

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Umlaute aus Variable entfernen

21.07.2007 03:31:00

Jörg
AW: Umlaute aus Variable entfernen

21.07.2007 03:50:00

Thomas
AW: Umlaute aus Variable entfernen

21.07.2007 11:11:00

Ramses

AW: Umlaute aus Variable entfernen

21.07.2007 03:31:00

Jörg

Hallo Thomas,


Sub Umlaute_wandeln()
Dim Dateiname As String
Dateiname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
Dateiname = Replace(Dateiname, "ö", "oe")
Dateiname = Replace(Dateiname, "ä", "ae")
Dateiname = Replace(Dateiname, "ü", "ue")
Dateiname = Replace(Dateiname, "ß", "ss")
MsgBox Dateiname
End Sub

Gruß Jörg

AW: Umlaute aus Variable entfernen

21.07.2007 03:50:00

Thomas

Jörg, super !! Und das um diese Uhrzeit ;-)
Ich danke dir vielmals !
Funktioniert einwandfrei !
Greetings
Thomas

AW: Umlaute aus Variable entfernen

21.07.2007 11:11:00

Ramses

Hallo
Kleine Änderung zu Jörgs Vorschlag.
Erstelle statt eines Makros eine eigene Funktion, dann kannst du dies überall in deiner Mappe verwenden, hast den Code aber nur an einer Stelle

Option Explicit

Function Umlaute_wandeln(fName As String) As String
    fName = Replace(fName, "ö", "oe")
    fName = Replace(fName, "ä", "ae")
    fName = Replace(fName, "ü", "ue")
    fName = Replace(fName, "ß", "ss")
    Umlaute_wandeln = fName
End Function

Sub test()
    If Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) <> ".xls" Then
        MsgBox Umlaute_wandeln(ActiveWorkbook.Name)
    Else
        MsgBox Umlaute_wandeln(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4))
    End If
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Forumthread: Umlaute aus Variable entfernen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread