Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frage zu "Replace"

Frage zu "Replace"
Ingo
Liebe Leute :)
Replace(Cells(iRow, 4), " (Hartplastik)", "")
Bei obigem Code wird ja aus dem Inhalt der Zelle
der String " (Hartplastik)" ausgeschnitten.
Wenn ich nun gerne aus dem Inhalt der Zelle
die Umlaute maskieren möchte ...
... wie muss es denn dann heissen.
Für einen Umlaut dachte ich mir das so:
Replace(Cells(iRow, 4), "ä", "ä")
Aber wie muss denn der Code aussehen,
wenn ich ä, ö, ü und ß maskieren möchte ?
Wenn mir da von Euch jemand helfen könnte,
würde ich mich riesig freuen :)
Gruß aus Münster
Ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Frage zu "Replace"
Hajo_Zi
Hallo Ingo
du hast ja schon einige Fragen zu VBA gestellt, ich hoffe mal Du bekommst es angepaßt.

Sub Umlaute()
' von ManuelaM
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

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
DANKE ... (o.T.)
01.04.2004 08:32:51
Ingo
o.T.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige