alle Vokale in einem String

Hallo Forum,
ich möchte aus einem String alle Vokale ermitteln, aus dem String entfernen und dann in einem neuen String umgekehrt wieder aneinanderreihen.
Einen kleinen Ansatz hab ich schon:
Tabelle3

	A	B	C	D
1	Vorgabe		Auffenwasser
2
3	Umlaute etc. wandeln		Auffenwasser
4	Vokale entfernen		FFNWSSR
5	A		1	A
6	E		5	E
7	I		#WERT!
8	O		#WERT!
9	U		2	U
10
11	Umgekehrt verketten			UEA

verwendete Formeln
Zelle	Formel	Bereich
C3	=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(C1;"ß";"ss");"ä";"ae");"ö";"oe");"ü";"ue");"Ü";"Ue");"Ö";"Oe");"Ä";"Ae")
C4	=WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(WECHSELN(GROSS(C3);"A";"");"E";"");"I";"");"O";"");"U";"");"SCH";"Y")
C5	=SUCHEN("A";GROSS(C1);1)
D5	=WENN(ISTFEHLER(C5*1);"";GROSS(TEIL(C3;C5;1)))
C6	=SUCHEN("E";GROSS(C1);1)
D6	=WENN(ISTFEHLER(C6*1);"";GROSS(TEIL(C3;C6;1)))
C7	=SUCHEN("I";GROSS(C1);1)
D7	=WENN(ISTFEHLER(C7*1);"";GROSS(TEIL(C3;C7;1)))
C8	=SUCHEN("O";GROSS(C1);1)
D8	=WENN(ISTFEHLER(C8*1);"";GROSS(TEIL(C3;C8;1)))
C9	=SUCHEN("U";GROSS(C1);1)
D9	=WENN(ISTFEHLER(C9*1);"";GROSS(TEIL(C3;C9;1)))
D11	=VERKETTEN(D9;D8;D7;D6;D5)

Tabellendarstellung in Foren Version 5.28

Kann mir jemand weiterhelfen?
Vielen herzlichen Dank
Mit freundlichen Grüßen
Albrecht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Albrecht,
in VBA ist das natürlich einfacher, dachte Du wolltest unbedingt eine Formellösung:

Public Function VokaleVerkehrt(myRng As Range) As Variant
Dim regEx As Object
Dim treFFer As Object
Dim i As Long
On Error GoTo errorHandler
' Regulären Ausdruck erzeugen
Set regEx = CreateObject("VbScript.Regexp")
With regEx
' Suchmuster, also alle Vokale
.Pattern = "[aeiou]"
' Groß/Kleinschreibung egal
.IgnoreCase = True
' und alles soll gefunden werden
.Global = True
' Suche ausführen
Set treFFer = regEx.Execute(myRng.Text)
' Und nun die Treffer in umgekehrter Reihenfolge auslesen
' (ACHTUNG: beginnt bei 0!)
For i = treFFer.Count - 1 To 0 Step -1
VokaleVerkehrt = VokaleVerkehrt & UCase(treFFer.Item(i).Value)
Next
End With
' Falls es leer ist, würde wegen der Variant-Deklaration eine
' 0 in die Zelle eingetragen, deswegen explizite Zuweisung
' eines Strings
If VokaleVerkehrt = "" Then VokaleVerkehrt = vbNullString
Exit Function
errorHandler:
' Bei einem Fehler wird ein Fehlerwert ausgegeben
VokaleVerkehrt = CVErr(xlErrValue)
End Function

Das in ein allgemeines Modul, dann kannst Du es als UDF ansprechen.
Gruß, Jogy

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread