Umlaute umsetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi ede
Ich habs jetzt nicht ausprobiert, aber versuch doch mal diese Idee umzusetzen.
Jedes Zeichen hat ja in der ASC II-Tabelle seinen Platz. So auch die Buchstaben...A - Z = 65 - 91..glaube ich. Und das "kleine" Alphabet auch.
Lass doch jedes Wort durch eine Schleife laufen, prüfe, ob der ASC II-Wert eines jeden Buchstabens innerhalb des erlaubten Bereichs liegt.
Wenn dem nicht so ist, prüfst du den gefundenen Wert mit den dir bekannten "nicht erlaubten" Werten und ersetzt entsprechend.
Wenn der gefundene Wert aber auch keinem der bekannten Werte entspricht, weißt du, dass es sich um das ß handelt.
Voraussetzung ist natürlich, dass dir alle anderen Umlaute, bzw das, was Excel dafür hält, bekannt sind.
Hilft das?
Ciao
Thorsten

Moin Ede, ich hatte gerade Lust zu basteln.
Die ASCII-Zeichencodes kannst Du mit der Funktion =Code(A1) [bzw. =Code(Teil(A1;5;1) für das 5. Zeichen im Text] ermitteln. Das hat allerdings für Dein komisches "ß" nicht geklappt, weiß der Goldbarsch warum.
Nimm mal diesen Code (Darin geht auch das "ß"). Ich gebe Dir im Direktbereich des VBA-Editors (Strg+G) immer alle Kombinationen mit, die ausgelesen werden, daran kannst Du die noch fehlenden zu ersetzenden Zeichen ablesen. Du musst die "Ersetzungstabelle" dann nur noch vervollständigen.
Gutes Gelingen wünscht Wolli


Sub Umlaute_ersetzen()
Dim z As Range, _
Wort As String, _
Zeichen As String, _
i As Long
For Each z In ActiveSheet.UsedRange
'alternativ: For Each z In Selection
If Not (IsNumeric(z.Value)) Then
Wort = ""
For i = 1 To Len(CStr(z))
Debug.Print Mid(z.Value, i, 1) + " = " + CStr(Asc(Mid(z.Value, i, 1)))
Select Case Asc(Mid(z.Value, i, 1))
Case 179
Wort = Wort + Chr(252)
Case 247
Wort = Wort + Chr(246)
Case 205
Wort = Wort + Chr(214)
Case 175
Wort = Wort + Chr(223)
'                    Case 247   'und so weiter
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
'                    Case 247
'                        Wort = Wort + Chr(246)
Case Else
Wort = Wort + Mid(z.Value, i, 1)
End Select
Next i
z.Value = Wort
End If
Next z
End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread