Microsoft Excel

Herbers Excel/VBA-Archiv

Liste sortieren

Betrifft: Liste sortieren von: pampel
Geschrieben am: 16.10.2020 23:54:35

Hallo zusammen,

in B2 bis maximal B33 stehen Namen, in C1 bis maximal C33 die zu den Namen gehörenden Betriebe.

Ich möchte nun mit einer Formel (!) folgende Sortierung hinbekommen (Beispiel):
H2: Firma A I2: 1. Name Firma A
H3: Firma A I3: 2. Name Firma A
H4: Firma B I3: 1. Name Firma B
H5: Firma C I3: 1. Name Firma C
H6: Firma C I3: 2. Name Firma C
H7: Firma C I3: 3. Name Firma C
H8: Firma D I3: 1. Name Firma D
H9: Firma E I3: 1. Name Firma E
usw.

Wie bekomme ich das hin?

In den Spalten D, E und F stehen noch die Kontaktdaten der Firmen (Ansprechpartner, Email und Telefon-Nummer). Schön wäre es noch, dass in jeder Zeile, die eine andere Firma ausweist, dann auch die Kontaktdaten für diese Firma stehen:
H2: Firma A I2: 1. Name Firma A J2: Ansprechpartner Firma A K2: Email Firma A L2: Telefon Firma A
H3: Firma A I3: 2. Name Firma A
H4: Firma B I4: 1. Name Firma B J4: Ansprechpartner Firma B K4: Email Firma B L4: Telefon Firma B
H5: Firma C I5: 1. Name Firma C J5: Ansprechpartner Firma C K5: Email Firma C L5: Telefon Firma C
H6: Firma C I6: 2. Name Firma C
H7: Firma C I7: 3. Name Firma C
H8: Firma D I8: 1. Name Firma D J8: Ansprechpartner Firma D K8: Email Firma D L8: Telefon Firma D
H9: Firma E I9: 1. Name Firma E J9: Ansprechpartner Firma E K9: Email Firma E L9: Telefon Firma E

Danke für Hinweise.

Gruß,

Stefan

P.S.; Wollte noch eine Excel-Datei als Vorlage hochladen, aber das klappt nicht.

Betrifft: AW: Liste sortieren
von: Matthias L
Geschrieben am: 17.10.2020 00:46:30

Hallo

P.S.; Wollte noch eine Excel-Datei als Vorlage hochladen, aber das klappt nicht.
Versuchs doch einfach nochmal.

Lies Dir die Bedingungen für den Upload durch.

Gruß ...

Betrifft: AW: Liste sortieren
von: pampel
Geschrieben am: 17.10.2020 01:14:48

Hallo,

das habe ich doch schon ein paar Mal gemacht - sowohl gelesen als auch hochgeladen:
https://www.herber.de/bbs/user/140923.xlsx

Betrifft: AW: wäre schon auch mit einer Formel möglich ...
von: neopa C
Geschrieben am: 17.10.2020 10:06:37

Hallo Stefan,

... doch mit zwei kleinen Hilfsspaltenformeln (Spalten N:O; ausblendbar) und einer bedingten Formatierung ist einfacher nachvollziehbar. Formel H weit genug nach unten und rechts ziehend kopieren
und die bedingte Formatierung dem geltungsbereich I2:L2 zuweisen.

Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDEFGHIJKLMNO
1Nr.FirmaNameAnsprechpartnerEmailTelefon FirmaNameAnsprechpartnerEmailTelefon HSp1HSp2
22.Firma B1. Name Firma BAnsprechpartner Firma BEmail Firma BTelefon Firma B Firma A1. Name Firma AAnsprechpartner Firma AEmail Firma ATelefon Firma A Firma B1. Name Firma BAnsprechpartner Firma B5
31.Firma A1. Name Firma AAnsprechpartner Firma AEmail Firma ATelefon Firma A Firma A2. Name Firma A    Firma A1. Name Firma AAnsprechpartner Firma A7
43.Firma C2. Name Firma CAnsprechpartner Firma CEmail Firma CTelefon Firma C Firma B1. Name Firma BAnsprechpartner Firma BEmail Firma BTelefon Firma B Firma C2. Name Firma CAnsprechpartner Firma C3
54.Firma C1. Name Firma CAnsprechpartner Firma CEmail Firma CTelefon Firma C Firma C1. Name Firma CAnsprechpartner Firma CEmail Firma CTelefon Firma C Firma C1. Name Firma CAnsprechpartner Firma C4
65.Firma A2. Name Firma AAnsprechpartner Firma AEmail Firma ATelefon Firma A Firma C2. Name Firma C    Firma A2. Name Firma AAnsprechpartner Firma A6
76.Firma D1. Name Firma DAnsprechpartner Firma DEmail Firma DTelefon Firma D Firma C3. Name Firma C    Firma D1. Name Firma DAnsprechpartner Firma D1
87.Firma C3. Name Firma CAnsprechpartner Firma CEmail Firma CTelefon Firma C Firma D1. Name Firma DAnsprechpartner Firma DEmail Firma DTelefon Firma D Firma C3. Name Firma CAnsprechpartner Firma C2
98.Firma E1. Name Firma EAnsprechpartner Firma EEmail Firma ETelefon Firma E Firma E1. Name Firma EAnsprechpartner Firma EEmail Firma ETelefon Firma E Firma E1. Name Firma EAnsprechpartner Firma E0
10               

ZelleFormel
H2=WENNFEHLER(INDEX(B:B;VERGLEICH(KGRÖSSTE($O:$O;ZEILE(B1));$O:$O;0));"")
N2=B2&C2&D2
O2=WENN(N2="";"";ZÄHLENWENN(N$2:N$33;">"&N2))
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg


Gruß Werner
.. , - ...

Betrifft: Das klappt!!!
von: Pampel
Geschrieben am: 17.10.2020 14:42:00

Hallo Werner,



die Sortierung klappt - dafür vielen Dank.



Hast Du bei der bedingten Foratierung untersucht, ob der Inhalt der Zelle über der aktuellen Zelle dem Inhalt der aktuellen Zeile entspricht und für diesen Fall die Schriftfarbe der aktuelle Zelle auf weiß gesetzt? Oder gibts dafür eine elegantere LÖsung?





Gruß,



Stefan

Betrifft: AW: bitteschön und ja ...
von: neopa C
Geschrieben am: 17.10.2020 14:49:11

Hallo Stefan,

... meine bedingte Formatierungsformel in J3 ist =J3=J2 und definiert für =$J$3:$L$33

Gruß Werner
.. , - ...

Betrifft: AW: bitteschön und ja ...
von: Pampel
Geschrieben am: 17.10.2020 15:03:23

... das ist die logisch kurze Formel für mein umständliche Prosa :-)

Und Du setzt dann "nur" die Schriftfarbe auf "weiß"? Oder bekommt man den doppelten Inhalt der aktuelle Zelle irgendwie komplett "weg"?


Gruß,

Stefan

Betrifft: AW: ich nutze benutzerdef. Zahlenformat: ;;; owT
von: neopa C
Geschrieben am: 17.10.2020 15:21:55

Gruß Werner
.. , - ...

Betrifft: AW: ... und ohne bedingte Formatierung ...
von: neopa C
Geschrieben am: 17.10.2020 15:27:57

Hallo Stefan,

... folgende Formel ab J2:

=WENN($H2=$H1;"";WENNFEHLER(INDEX(D:D;VERGLEICH(KGRÖSSTE($O:$O;ZEILE(D1));$O:$O;0));""))

und diese dort nach unten und rechts ziehend kopieren.

Gruß Werner
.. , - ...

Betrifft: AW: ... und ohne bedingte Formatierung ...
von: Pampel
Geschrieben am: 17.10.2020 15:36:40

super - Vielen Dank!

Gruß,

Stefan

Betrifft: AW: gerne owT
von: neopa C
Geschrieben am: 17.10.2020 16:00:53

Gruß Werner
.. , - ...