Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichen ersetzten

Forumthread: Zeichen ersetzten

Zeichen ersetzten
16.08.2005 11:12:42
volker
Hei,
ich möchte innerhalb einer Variable prüfen ob sich in ihr bestimmte Zeichen befinden, die dann ersetzt werden müssten.
Wie kann ich da vorgehen?
Es handelt sich um die ZEichen Ä, ä, Ö, ö, Ü, ü, ß und das Leerzeichen, die ersetzt werden müssten.
Gibt es eine Möglichkeit über die ASCII-Zeichen Nummer zu gehen? Wie?
Danke,
Volker
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichen ersetzten
16.08.2005 11:39:39
MichaV
Hallo,

DeinText = WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
WorksheetFunction.Substitute( _
DeinText, " ", "*") _
, "ß", "ss") _
, "ä", "ae") _
, "ö", "oe") _
, "ü", "ue") _
, "Ü", "Ue") _
, "Ö", "Oe") _
, "Ä", "Ae")

Gruss- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Zeichen ersetzten
16.08.2005 13:28:38
volker
Hei Micha,
vielen Dank, mir gefiel aber MAtthias Lösung besser :-(
Schau mal rein!
Volker
AW: Zeichen ersetzten
16.08.2005 13:28:50
volker
Hei Micha,
vielen Dank, mir gefiel aber MAtthias Lösung besser :-(
Schau mal rein!
Volker
AW: Zeichen ersetzten
16.08.2005 15:45:48
Matthias
Hallo Volker,
Replace() gibt es aber erst ab 2000 oder ab XP (weiß nicht genau).
Wenn es auch mit älteren Versionen laufen soll, ist WorksheetFunktion.Substitue() vorzuziehen.
Gruß Matthias
Anzeige
AW: Zeichen ersetzten
16.08.2005 15:50:40
MichaV
Hallo,
Replace gibts erst in VB 6.0, also erst ab XL2000. Das ist auch der Grund, warum ich das nicht benutze, war mir nicht so geläufig ;o)
Gruss- Micha
AW: Zeichen ersetzten
16.08.2005 17:53:10
volker
Guter Tipp, ist aber für mich kein Problem!
Wir sind nur Windows XP, Office 2000+ Verwender.
Danke!
Volker
AW: Zeichen ersetzten
16.08.2005 11:43:43
Matthias
Hallo Volker,

Function OhneUmlaute(ByVal s As String) As String
s = Replace(s, "ä", "ae")
s = Replace(s, "ö", "oe")
s = Replace(s, "ü", "ue")
s = Replace(s, "Ä", "Ae")
s = Replace(s, "Ö", "Oe")
s = Replace(s, "Ü", "Ue")
s = Replace(s, "ß", "ss")
OhneUmlaute = s
End Function
Sub test()
MsgBox OhneUmlaute("Überschall Gähn")
End Sub

Gruß Matthias
Anzeige
Danke!
16.08.2005 13:19:57
volker
Hei Matthias,
die Replace Funktion kannte ich noch nicht. Ist ja super EASY!
Danke!
Volker
AW: Zeichen ersetzten
16.08.2005 12:07:23
dieter
Hi Volker,
folgendes Makro ersetzt alle Sonderzeichen. Einfach Tabelle aufrufen und dann Makro starten.
Gruß
Dieter (Drummer)
Makro:

Sub SonderzeichenErsetzen()
Application.ScreenUpdating = False
Cells.Replace What:="", Replacement:="ü", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="”", Replacement:="ö", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="„", Replacement:="ä", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="á", Replacement:="ß", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
MsgBox "Alle ersetzbaren Sonderzeichen wurden korrigiert > ä, ö, ü, ß <"
Application.ScreenUpdating = True
End Sub
()
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige