title image


Smiley Re: ä ö ü ersetzen durch ae oe ue
Untenstehend habe ich eine kleine VBA-Programmierung. Vielleicht geht's auch einfacher, aber es funktioniert.



Sub umlaute(Konvtext) 'Konvtext=das zu ändernde Wort

Dim position As Variant

Dim vorne As Variant

Dim hinten As Variant



'Hilfsprogramm zum Umwandeln der deutschen Umlaute in die Zeichen:

'Ä,ä=AE/Ö,ö=OE/Ü,ü=UE/ß=ss

On Error GoTo Err_umlaute



Do

position = InStr(1, Konvtext, "Ä")

If position = 0 Then

Exit Do

Else

vorne = Left(Konvtext, position - 1)

hinten = Mid(Konvtext, position + 1, Len(Konvtext) - position + 1)

Konvtext = vorne & "AE" & hinten

End If

Loop



Do

position = InStr(1, Konvtext, "Ö")

If position = 0 Then

Exit Do

Else

vorne = Left(Konvtext, position - 1)

hinten = Mid(Konvtext, position + 1, Len(Konvtext) - position + 1)

Konvtext = vorne & "OE" & hinten

End If

Loop



Do

position = InStr(1, Konvtext, "Ü")

If position = 0 Then

Exit Do

Else

vorne = Left(Konvtext, position - 1)

hinten = Mid(Konvtext, position + 1, Len(Konvtext) - position + 1)

Konvtext = vorne & "UE" & hinten

End If

Loop



Do

position = InStr(1, Konvtext, "ß", 0)

If position = 0 Then

Exit Do

Else

vorne = Left(Konvtext, position - 1)

hinten = Mid(Konvtext, position + 1, Len(Konvtext) - position + 1)

Konvtext = vorne & "SS" & hinten

End If

Loop



Exit_umlaute:

Exit Sub



Err_umlaute:

Resume Exit_umlaute



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: