Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Umlaute aus Variable entfernen

Forumthread: Umlaute aus Variable entfernen

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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige