Suchen in einem String z.B. ab @ nach Rückwärts

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Text-in-Spalten, Siegfried,
und dann alles manuell zuordnen. Alternativ auch mit meiner UDF VSplit und der pluralen MatrixFml {=VSplit(C2:C1201;"; ")} über die erforderliche Spalten- und ZeilenAnzahl.
Allerdings habe ich mir deine Daten doch noch mal angesehen und festgestellt, dass eine Auswertung mit UDF-haltigen Fmln doch recht zielgenau erfolgen kann, weil die DatenSätze relativ regelmäßig sind, nur eben nicht vollständig. Aber das kann man einigermaßen gut abfangen. Nur die Rubrik Straße sieht ziemlich wild aus und hat viele Lücken, während Ort immer vorhanden ist (falls das der richtige ist).
Ich gebe dir hier mal ein Bsp (die ersten 20 Zeilen der Tabelle):

PLZ

Name

TelNr

Wertung

STP-Anz

Preis

Offen

Mail

Straße

Ort

HR-20250

Camping Perna

+385 207 192 86

2 (5)

110

27.40

01.05.-30.09.

kamp.perna@club-adriatic.hr

Perna bb

Orebic

HR-21320

Camping Basko Polje

3.3 (11)

22.00

01.05.-31.10.

kamp.baskopolje@club-adriatic.hr

Baako Polje

HR-21334

Camping Dalmacija

+385 216 293 00

3.3 (3)

29.50

01.03.-21.10.

info@zaostrog.net

Hrvatskih Domoljuba bb

Zaostrog

HR-21465

Camping Grebisce

+385 217 611 91

4.1 (15)

153

33.00

01.05.-31.10.

camp@grebisce.hr

Jelsa

HR-23262

Camping Lucina

+385 232 601 73

01.06.-15.09.

Pasman

HR-52212

Camping Pineta

+385 522 2318 84

3.6 (25)

28.60

01.05.-30.09.

pineta@brijunirivijera.hr

Perojska Cesta bb

Fazana

HR-51559

Camping Brajdi na Moru

+385 518 405 22

branka.sare@ri.t-com.hr

Cres

HR-51260

Camping Kacjak

+385 517 864 44

4 (1)

kacjak@jadran-crikvenica.hr

Dramalj

Crikvenica

HR-51000

Camping Preluk

+385 516 235 00

2.4 (13)

15.04.-15.10.

info@autocamppreluk.com

Preluk bb

Rijeka

HR-51250

Camping Punta Povile

+385 51 793 083

3.7 (10)

24.00

01.04.-30.09.

Milana Butkovica 18

Novi Vinodolski

CZ-69301

Autokemp Formanka Hustopece

+420 739 376 013

4 (2)

14.00

01.01.-31.12.

info@formanka.net

Safaríkova 448/21

Hustopece

CZ-67913

Camping Relaxa

1 (1)

camp.relaxa@seznam.cz

Sloup

CZ-63500

Autokemp Obora

2.5 (2)

info@autocampobora.cz

Rakovecká 149/72

Brno

CZ-66471

Autokemp Oaza

4 (2)

info@kampoaza.net

Chudcice

CZ-69664

Autocamping Lucina

5 (1)

Tvarozna' Lhota-lucina

Knezdub

CZ-76326

Autocamping Luhacovice

5 (1)

lubosnovosad@seznam.cz

Výsluní 400

Luhacovice

CZ-38411

Autocamp Podrouzek

+420 388 324 468

4 (2)

100

13.00

01.05.-01.10.

autocamp-podrouzek@c-box.cz

Tyrsova 226

Netolice

CZ-39301

Camping Milos Valek

+420 565 394 104

10.00

01.05.-31.08.

svalkova@seznam.cz

Moravec 16

Pelhrimov

CZ-38232

Camping Guesthouse Rajka

+420 380 743 855

2.5 (2)

16.00

01.06.-07.09.

info@guesthouserajka.com

Mojné 7

Mojné/Velesin

Falls du daran Interesse hast, können wir wie folgt vorgehen:
&bullet; Variante1: Ich poste die gesamte Tabelle als HTML-Tabelle direkt im Beitrag oder als UpLoad, ggf auch eine .xlsx-Datei nur mit den Ergebnissen.
&bullet; Variante2: Falls du so etwas öfter machst und dich auch die Fmln interessieren, kann ich zusätzlich die Fmln der 2.Zeile posten und außerdem eine Liste mit Archiv- bzw DownLoad-Links zu den 6 verwendeten UDFs (CountOn, MaskOn, PickOn, Splint, SplitVx, VSplit)
&bullet; Variante3: Notfalls, wenn du mit Var2 nicht zurecht kommst, könnte ich dir auch die komplette Datei mit diesen UDFs als .xlsm hochladen, was ich ungern mache, weil ich dafür immer erst mein Xl temporär umstellen muss.
Falls du auf mein Angebot eingehen willst, kannst du mir hier auch nochmal antworten. Dazu gebe ich dir die ForumsAdresse deines letzten Beitrags (vom 22.11.) an (die von dem, den ich gerade schreibe, habe ich natürlich noch nicht!). Du hast dann bis mindestens 26.11. Zeit zu antworten, danach erreichst du die angegebene Adresse nicht mehr, aber die meines Beitrags 1 Tag länger, wenn du die ArchivAdresse in eine ForumsAdresse wandelst. Wir unterhalten uns dann (wahrscheinlich solo) im Hidden Forum. ;-)
Dein letzter Beitrag: https://www.herber.de/forum/messages/1593070.html
Morrn, Luc :-?

Rem Muster f.eMail-Adress: Arg2:= "\b(\w[-.\w]*@\w[-.\w]*\.[a-zA-Z]{2,6})\b" Function TextFilter(Bezug, ByVal Muster As String) Dim lngIndex As Long, M, Treffer, varTmp() As Variant, Regex As Object On Error GoTo ex Set Regex = CreateObject("Vbscript.regexp") With Regex .Pattern = Muster .IgnoreCase = True .Global = True Set Treffer = .Execute(Bezug) Redim varTmp(Treffer.Count - 1) For Each M In Treffer varTmp(lngIndex) = M.Value lngIndex = lngIndex + 1 Next M End With ex: If CBool(Err.Number) Then TextFilter = CVErr(xlErrNull) Else: TextFilter = varTmp End If End Function

und mit meiner vgln, Werner;
dabei ergab sich, dass ich einige britische PLZ verstümmelt hatte (Leerzeichen in manchen PLZ nicht beachtet) und auch die StraßenListe nicht so vollständig hatte wie Du, wobei bei Dir auch einiges Überflüssige eingeht, was aber nicht weiter wild ist, da sofort erkennbar. Allerdings hat sich bei Dir in den Zeilen 97 und 1123 ein seltsamer Fehler eingeschlichen. In 1123 könnte ich das ja noch verstehen, denn es fehlt eine Ziffer am Ende (ist aber leider 'ne Hausnr!), in 97 aber mittendrin, aber wohl nur in einer zusätzlichen TelefonNr o.ä.
So, daraus ergeben sich 2 korrigierte Fmln in meiner Liste, Siegfried;
E2[:E1201]:=TEIL(Splint(MaskOn(C2;"mrk[]");"]";1;1);2;12)
M2[:M1201]:=WENN(CountOn(C2;"; ")<2;"";WENNFEHLER(T(1/(ANZAHL2(SplitVx(Rmd(PickOn(C2;CountOn(C2;"; ");"; "));
{": "."@"." ("};1))-1));WECHSELN(GLÄTTEN(INDEX(SplitVx(Rmd();"+";-1);1));"""";"")))
In M habe ich wg der Länge der Fml eine 7.UDF eingeführt, die das Anlegen benannter (Teil-)Fmln unter definierten Namen erspart. Falls du die nicht verwenden willst, musst du den entsprd (argumentierten!) Fml-Teil vom Einschluss durch Rmd(…) befreien und anstelle des Rmd() ohne Argument den befreiten Fml-Teil erneut notieren.
Anderenfalls kannst du diese UDF natürlich auch in den Fmln der Spalten G:L verwenden, was aber nicht unbedingt erforderlich wäre, aber dann so aussähe:
G2[:G1201]:=WENNFEHLER(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("+*";Rmd();));"")
H2[:H1201]:=WENNFEHLER(Splint(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("*wert*";Rmd();));": ";2);"")
I2[:I1201]:=WENNFEHLER(--Splint(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("*plätze*";Rmd();));": ";2);"")
J2[:J1201]:=VSplit(WENNFEHLER(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("*EUR (*)";Rmd();));"");;1)
K2[:K1201]:=WECHSELN(WENNFEHLER(Splint(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("*zeit*";Rmd();));": ";2);"");" ";" & ")
L2[:L1201]:=WENNFEHLER(INDEX(Rmd(VSplit(C2;"; "));VERGLEICH("*@*";Rmd();));"")
Das Pgm dieser UDF (Vs1.1) ist unter diesem Link zu finden.
Falls du uns noch 1× hier antworten willst, was nett wäre, kannst du das unter folgd Link zu Werners letztem Beitrag tun: https://www.herber.de/forum/messages/1593976.html
Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1	Gästewertung: 4.3 (10); +43 6227 3228 0; Stellplätze: 135; 24.70 EUR (inkl. 2 Erw.); Öffnungszeiten: 01.05.-30.09.; info@seecamping-primus.at; Schwand 39; ert@iiuhdsfdik.bf[Abersee]	info@seecamping-primus.at	ert@iiuhdsfdik.bf	#BEZUG!

Suchen in einem String z.B. ab @ nach Rückwärts

43
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen in einem String z.B. ab @ nach Rückwärts

43 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

43
Beiträge zum Forumthread

Beiträge zu diesem Forumthread