Auftragsprogrammierung

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unterstützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!  oder rufen Sie uns einfach an.

Referenzen

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe

Umwandeln von Umlauten

Das folgende Makro wandelt Umlaute wie z. B. ä in ae um.
Fügen Sie dieses Makro einfach in ein Modulblatt ein. Umgewandelt werden alle Zellen mit Umlauten im ausgewählten Zellbereich. Also einfach die gewünschten Zellen markieren und das Makro starten.

Sub umwandel_ä_in_ae()
'Wandelt ä in ae um
With Selection
 .Replace What:="Ö", Replacement:="Oe", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="Ä", Replacement:="Ae", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="Ü", Replacement:="Ue", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="ö", Replacement:="oe", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="ä", Replacement:="ae", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="ü", Replacement:="ue", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
End With
End Sub



Das folgende Makro funktioniert genau umgekehrt. Es wandelt beispielsweise ae wieder zurück in den Umlaut ä.

Sub umwandeln_ae_in_ä()
'Wandelt ae in a um
With Selection
 .Replace What:="Oe", Replacement:="Ö", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="Ae", Replacement:="Ä", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="Ue", Replacement:="Ü", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="oe", Replacement:="ö", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="ae", Replacement:="ä", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
 .Replace What:="ue", Replacement:="ü", LookAt:=xlPart, _
 SearchOrder:=xlByRows, MatchCase:=True
End With
End Sub

Der Code wandelt sowohl Klein- als auch Großbuchstaben entsprechend um.

Drucken E-Mail

Relevante Artikel

  • Umwandeln von Umlauten

    Das folgende Makro wandelt Umlaute wie z. B. ä in ae um. Fügen Sie dieses Makro einfach in ein Modulblatt ein. Umgewandelt werden alle Zellen mit...

  • Zeichen in String zählen

    Dieser Beitrag zeigt verschiedene Möglichkeiten, um bestimmte Zeichen in einem String zu zählen. So soll beispielsweise im Zelleintrag "Wo steht das...

  • Vornamen und Nachnamen trennen

    111014   Mit Hilfe des nachfolgenden Makros wird der Vorname und Nachname im markierten Bereich in zwei Zellen getrennt.    ...

  • CSV-Datei mit UniCode Zeichen erzeugen

    Dieses Beispiel zeigt, wie CSV-Dateien mit UniCode-Zeichen erzeugt werden können. Im Standardzeichensatz können in ASCII-Dateien, also auch in...

  • Zellen mit Hochkomma per VBA ermitteln

    Wenn Sie in Excel vor einer Beliegiben Zeichen- oder Ziffernfolge ein Hochkomma ( ' ) setzen, dann wird der Text oder die Zahl auf jeden Fall als...

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der 
 Lösungsfindung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
R
O
J
E
K
T
A
N
F
R
A
G
E
Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Bestätigung erklären Sie sich mit der Verwendung von Cookies auf Excel-Inside Solutions einverstanden.
Weitere Informationen Ok