Clever-Excel-Forum

Wenn ich mein Emailprogramm auslese, sind dort mehrere tausend Emails drin, von wo man was bekommen hat und an wen man etwas gesendet hat. Viele sind "noreply", viele sind Werbung Dritter, einige sind private, eine von Bekannten aus verschiedenen Vereinen und die wollte ich mal alle in ein Liste legen und vom Abfall bereinigen und was übrig ist, gewissen sparten zuweisen.

Wenn ich also 100 Bekannte beim Reiterhof habe, die dann Email xx@reiterhof-xyz.de haben, muss ich die ja von hinten sortieren. ich will mich da auch nicht Jahre drana aufhalten und auch für eine weitere Sortieraktion gleich passendes Werkzeug da haben.

Hallo,
nun weiß ich immer noch nicht, ob ich helfen konnte.

MfG Günter

Ja doch, für den ersten Teil des Zertrennens klappt das super, das Schwierige ist ja der direkte Sortierteil.

Angebomen ich lade 1.000 Emails völlig in Spalte B, dann trennt es sich in CDE auf.

H könnte die selben Emails sortiert enthalten, aber eben nur, wenn Excel das kann, und zwar so, dass erst mal hinten alles nach den Domains alphabetisch sortiert ist und d danach vorn der Name, so wie das ja schon als mein Ausgansmuster dargestellt ist. Dort kann man nich dann ganze Blöcke GMX/ Telekom/ Pferdehof/ xyz heraustrennen.
Ich glaube bald, dass das ecxel ohne Stress nicht hinbekommt. Es wäre die Vorgehensweise wie " > Daten > sortieren " im Menü.

(28.04.2023, 18:23)Erika2 schrieb: [ -> ]Ich glaube bald, dass das ecxel ohne Stress nicht hinbekommt.

Wie das geht, hat Dir LCohen bereits in #4 gezeigt.
Bei tausenden Email-Adressen gehe ich von einem professionellen Umfeld aus.
Excel 5 ist mittlerweile fast 30 Jahre alt!
Nennst Du das professionell?
Leiste Dir Excel 365 oder nutze Excel Online!

	A	B
1	Z@A.de	I@A.de
2	Y@A.de	N@A.de
3	X@D.de	W@A.de
4	W@A.de	Y@A.de
5	V@C.de	Z@A.de
6	U@B.de	J@B.de
7	T@D.de	R@B.de
8	S@D.de	U@B.de
9	R@B.de	G@C.de
10	Q@D.de	H@C.de
11	P@C.de	L@C.de
12	O@D.de	P@C.de
13	N@A.de	V@C.de
14	M@D.de	K@D.de
15	L@C.de	M@D.de
16	K@D.de	O@D.de
17	J@B.de	Q@D.de
18	I@A.de	S@D.de
19	H@C.de	T@D.de
20	G@C.de	X@D.de

Zelle	Formel
B1	=SORTIERENNACH(A1:A20;TEXTNACH(A1:A20;"@");;A1:A20;)

Gruß Ralf

Da ja auch noch die Endung mitsortiert werden soll …
1. domain → 2. top-level-domain → 3. local
… könnte man das auch noch integrieren:
=SORTIERENNACH(A1:A20;TEXTNACH(A1:A20;"@");1;TEXTNACH(A1:A20;".");1;A1:A20;)

EDIT:
(muss man aber nicht, weil bereits durch LCohens Formel erschlagen)

	A	B
1	Z@B.P	G@A.P
2	Y@C.Q	M@A.P
3	X@B.P	R@A.Q
4	W@B.P	W@B.P
5	V@C.Q	X@B.P
6	U@E.P	Z@B.P
7	T@E.P	J@C.P
8	S@E.Q	V@C.Q
9	R@A.Q	Y@C.Q
10	Q@E.P	K@D.P
11	P@E.P	O@D.P
12	O@D.P	H@D.Q
13	N@E.Q	I@D.Q
14	M@A.P	P@E.P
15	L@E.Q	Q@E.P
16	K@D.P	T@E.P
17	J@C.P	U@E.P
18	I@D.Q	L@E.Q
19	H@D.Q	N@E.Q
20	G@A.P	S@E.Q

Zelle	Formel
B1	=SORTIERENNACH(A1:A20;TEXTNACH(A1:A20;"@");1;A1:A20;)

Das Problem was bein uns vorliegt ist, dass wir (ausschließlich) über virtuelle Maschienen den PC benutzen und die gigantische Größe aller Programme einfach deren Umfang sprengt. das alte Excel hat nur 10% vom Speicher zu heute. Man hat aber eben auch Acrobat, Emailprogramme, einige Browser, Bildbearbeitung usw. och drauf und da wird so eine maschine auch schnell mal 70GB groß, beginnt aber bei 20GB. Da steigt dann irgendwann der Rechner aus. Also muss man bei vielem einen Kompromiss finden.
Wir arbeiten auch gern noch mit WinXP, welches nur 1/3 der Größe insgesamt hat, 10-20GB und man viel flüssigeres Arbeiten hat, vor allem wenn die genutzen Programme noch XP können.
Es ist ja auch mit "professionell" nicht so, dass wir täglich Emails sortieren, sondern einmal im Jahr, aber eben wirksam soll das gehen.

Die Frage steht, ob es ein Plugim fürs alte Excel gibt, denn das Plugin zu XLSX gabs ja auch und die Frage ob OpenOffice sowas kann was Excel kann. Wenn nicht, muss der bessere Kompromiss geprüft werden, alles andere aber wenigstens schon mal vorbereitend mit hinzugelernt werden.
Auch mögen wir keine Programme die regelmäßig nach Hause telefonieren und gerade dem Hersteller zeigen, dass man daran arbeitetider bei Sperrung dessen gar nicht mehr funktionieren oder sich gar nicht sperren lassen, wie der Acrobat, der hintenrum ins Web geht.

Aber immerhin, Danke erst mal. Jede Idee hat Sinn.

[off topic]
Ja, ich erinnere mich dunkel.
Mein erstes Office-"Paket" bestand aus Excel 5.0, Word 7.0 und Access 2.0
Paket in "" weil man ja bereits an den Versions-Nummern sieht, dass es sich um 3 eigenständige Programme mit z.B. völlig anders aussehenden Standard-Dialogen handelte.

Falls Du wirklich Excel 5.0 installiert hast, geht wohl auch kein VBA.
Das wurde zwar mit dieser Version eingeführt, war aber lokalisiert, sprich es war deutsch!

Spätere Versionen waren ausschließlich englisch.

Man könnte die Funktionalität obiger Formeln in VBA nachbauen.
Ich gehe aber davon aus, dass bei eurem Sicherheitsbedürfnis (sorry: some call it paranoia) die Verwendung von VBA untersagt ist.

Gruß Ralf

Für "einmal im Jahr" kannst Du das auch in XL-Online tun. Und dann zurück in Deinem AntikExcel verwenden.

Oder, damit man nicht in verschiedenen Programmen laden muss: Text in Spalten trennen mit @ und dann nach B und A sortieren. Und dann wieder zusammensetzen mit &.

@RPP63: Nicht in 5.0 (erstes Mal VBA; war normal englisch), sondern in XL95.

OK, ich hatte nie Excel95, sondern das ältere Excel 5.0

Ich hatte gerade Lust, mal eben ein kleines Progrämmchen zu schreiben.
Ausgang das bekannte

	A
1	E-Mail
2	Z@B.P
3	Y@C.Q
4	X@B.P
5	W@B.P
6	V@C.Q
7	U@E.P
8	T@E.P
9	S@E.Q
10	R@A.Q
11	Q@E.P
12	P@E.P
13	O@D.P
14	N@E.Q
15	M@A.P
16	L@E.Q
17	K@D.P
18	J@C.P
19	I@D.Q
20	H@D.Q
21	G@A.P

VBA-Code (ab Excel 95?? )

Sub Sort_Domain()
With Range("A2", Range("A2").End(xlDown))
  .TextToColumns .Cells(1), OtherChar:="@"
  With .Resize(, 2)
    .Sort .Cells(1, 2), Key2:=.Cells(1)
    With .Offset(, 2).Columns(1)
      .Formula = "=A2&""@""&B2"
      .Copy
    End With
  End With
  .PasteSpecial xlPasteValues
  .Offset(, 1).Resize(, 2).Delete
End With
End Sub

ergibt:

	A
1	E-Mail
2	G@A.P
3	M@A.P
4	R@A.Q
5	W@B.P
6	X@B.P
7	Z@B.P
8	J@C.P
9	V@C.Q
10	Y@C.Q
11	K@D.P
12	O@D.P
13	H@D.Q
14	I@D.Q
15	P@E.P
16	Q@E.P
17	T@E.P
18	U@E.P
19	L@E.Q
20	N@E.Q
21	S@E.Q

In allen Excels mit VBA VOR und NACH Excel95/7.0.

Kannst Du daraus noch ein Worksheet_Change zaubern? Und zwar so, dass man sich bei der einsortierten Änderung/Eintrag anschließend befindet? (.Select)