title image


Smiley so z.B. mit VBA....
Option Explicit

Option Base 1

Sub Umlaute()

Dim arrUm(7) As String

Dim strUm(7) As String

Dim x%

arrUm(1) = "ä"

arrUm(2) = "ö"

arrUm(3) = "ü"

arrUm(4) = "Ä"

arrUm(5) = "Ö"

arrUm(6) = "Ü"

arrUm(7) = "ß"

strUm(1) = "ae"

strUm(2) = "oe"

strUm(3) = "ue"

strUm(4) = "AE"

strUm(5) = "OE"

strUm(6) = "UE"

strUm(7) = "ss"

For x = 1 To 7

On Error Resume Next

Selection.Replace What:=arrUm(x), _

Replacement:=strUm(x), _

LookAt:=xlPart, _

SearchOrder:=xlByColumns

Next

Erase arrUm

Erase strUm

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: