String ausschneiden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Eckhard, :-)
um sich nicht nach den Kommata richten zu müssen, könnte man auch mit Regulären Ausdrücken arbeiten - diese sind für solche Stringoperationen prädestiniert: ;-)

	A	B
1	asdasasd, 234234234, xcyxcyxc, qweqwqwe, 234234234, sdfsafasdf, a@b.de, asdasdasd	a@b.de
2	asdasasd, 234234234, qweqwqwe, 234234234, sdfsafasdf, b@c.de, asdasdasd	b@c.de
3	qweqwqwe, 234234234, sdfsafasdf, c@d.de, asdasdasd	c@d.de
4	asdasasd, 234234234, xcyxcyxc, qweqwqwe, asdasdasd, 234234234, sdfsafasdf, d@e.com, asdasdasd	d@e.com
5	asdasasd, 234234234, xcyxcyxc, qweqwqwe, asdasdasd, 234234234, sdfsafasdf, e@f.de, asdasdasd	e@f.de

Zelle	Formel
B1	=fncWerReitetSoSpaetDurchNachtUndWind(A1)
B2	=fncWerReitetSoSpaetDurchNachtUndWind(A2)
B3	=fncWerReitetSoSpaetDurchNachtUndWind(A3)
B4	=fncWerReitetSoSpaetDurchNachtUndWind(A4)
B5	=fncWerReitetSoSpaetDurchNachtUndWind(A5)

Auch hier die Funktion in ein allgemeines Modul:

Option Explicit
Function fncWerReitetSoSpaetDurchNachtUndWind(strText As String) As String
Dim objRegExp As Object
Dim objMAtch As Object
On Error GoTo Fin
Set objRegExp = CreateObject("VbScript.Regexp")
With objRegExp
.Global = True
.Pattern = "[a-z0-9\-_]?[a-z0-9.\-_]+[a-z0-9\-_]?@[a-z.-]+\.[a-z]{2,}"
If .Test(strText) Then
Set objMatch = .Execute(strText)
fncWerReitetSoSpaetDurchNachtUndWind = objMAtch(0).Value
Else:
fncWerReitetSoSpaetDurchNachtUndWind = "Bitte Funktion überprüfen!"
End If
End With
Fin:
Set objMAtch = Nothing
Set objRegExp = Nothing
End Function

Das "Pattern" erschlägt sicher nicht alle Mailadressen, aber da wird man im Netz schnell fündig.
Servus
Case

…typisch für Standard-ProfiPgmmierer, Case,
und erinnert eher an Access- als an Xl-Anwendung (in ZellFmln!):
1. „Typenreine“ Deklaration von FktsArgumenten ist in Xl oft eher hinderlich als nützlich;
2. dito Festlegung der UDF auf einen Ergebnis-Datentyp verhindert die Rückgabe spezifischer FehlerWerte (so kann die Xl-Steuerung allerhöchstens den StandardFehler #WERT! anbieten);
3. fncBananenSplit lässt vermissen, was schon die intern verwendete vbFkt Split mitbringt, ein 2.Argument für die variable Angabe eines (x-stelligen) TrennZeichens, das beim Original sogar optional ist und einen Default-Wert hat;
4. die Möglichkeit einer AuswahlBestimmung per weiterem Argument könnte hier sinnvoll sein, wäre aber nicht unbedingt erforderlich, da das Ergebnis auch als Argument in INDEX verwendbar wäre (so ist sie aber von vornherein festgelegt!);
5. Reguläre Ausdrücke (RegExp) sind eher etwas für Pgmmierer als für normale Xl-Nutzer, denn deren Formulierung kann ganz schön kompliziert sein (→ welcher NormalNutzer wird sich nebenbei damit befassen wollen?).
Im Übrigen habe ich den Eindruck gewonnen, dass Eckhard mit all dem (meine Anmerkungen eingeschlossen) ohnehin nichts anfangen kann bzw will. Er sollte überprüfen, was er beim Eintrag von Rudis Fml falsch gemacht hat, denn sie fktioniert prinzipiell!
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
B1	=fncBananenSplit(A1)
B2	=fncBananenSplit(A2)
B3	=fncBananenSplit(A3)
B4	=fncBananenSplit(A4)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread