Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige