---

Kettenbildung.zip

Hi CADler

Einen schönen guten Tag wünsche ich allerseits.

Brauche mal Hilfe bei der Erstellung eines Makros/VBA Codes.

Zur Verdeutlichung meines Vorhabens ist eine Excel-Datei gepackt dabei.

Aufgabenstellung:
Tabelle "Daten" enthält eine ungeordnete Liste mit Einträgen. Ein Teil dieser Einträage sind identisch (AKZ A,OKZA,BMK A,Pin A); d. h. sie kommen auf beiden Teilen meiner Liste vor.

Ich möchte diese nun so sortieren das ich eine sogenannte Kette bekomme; diese ist dargestellt im Tabellenblatt "Ketten".

Welches ist die beste Vorgehensweise um eine solche Sortierung durch zu führen?

Bin für jede Anregung dankbar.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo hotstaks2005,

probier' doch mal die normale Sortierfunktion. Im Register 'Daten' markierst Du die Zellen A1 bis U18; dann (2007) Ribbon Daten - Sortieren.

Wenn Du Dir schon die Mühe gemacht hast, ein Makro zu schreiben, welches Zellfarben zuweist, so kannst Du dieses auch nutzen.

Sortieren nach:
AKZ A Zellenfarbe (gibts das in Deinem xls auch schon?)
OKZA Zellenfarbe
BMK A Zellenfarbe
...

Nach Werten müssten auch die Vorgängerversionen schon mehrere Spalten behandeln können - allerdings wirft es Dir dann evtl. Deine Farben durcheinander.

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Paulchen - Danke für deine Antwort.

Mit der von dir genannten Sortierfunktion werd ich nicht weiterkommen.

Es sollen bestimmte Zellen (AKZ A,OKZA,BMK A,Pin A) und (AKZ B,OKZB,BMK B,Pin B) nach Übereinstimmung verglichen werden und anschließend auf die gleiche Seite kopiert werden.
Dargestellt wie in der Tabelle "Ketten"

Sortierung nach Zellenfarbe hab ich in meinem Excel 2003 nicht gefunden.

Mit besten Grüßen
Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Es sollen bestimmte Zellen (AKZ A,OKZA,BMK A,Pin A) und (AKZ B,OKZB,BMK B,Pin B) nach Übereinstimmung verglichen werden und anschließend auf die gleiche Seite kopiert werden.
Dargestellt wie in der Tabelle "Ketten"

---

Irgendwie habe ich Schwierigkeiten die Aufgabe zu verstehen...

Soll Inhalt der Spalten A - D mit Inhalt der Spalten H - K verglichen werden?
und wieso taucht dann zb Zellwert C3 -147E3 in der Tabelle Kette auf,
das sollte doch laut Einzigartigkeit nicht dargestellt werden,
wenn die Logik WAHR ergeben soll aka =UND(A2=H2;B2=I2;C2=J2;D2=K2)

aber ich habe auch Schwierigkeiten die Aufgabe zu verstehen ,)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schönen Dank für Eure Antworten.

Zum besseren Verständnis meiner Anfrage:

1. In einer Zeile ist eine Drahtinformation aus Eplan enthalten. Diese Beschreibt den Anfang und das Ziel des Drahtes sowie seine Eigeschaften.
Beispiel:
AKZ A,OKZA,BMK A,Pin A = Start des Drahtes
AKZ B,OKZB,BMK B,Pin B = Ziel des Drahtes
Querschnitt,Drahtfarbe,KC,L = Eigenschaften des Drahtes
+S1;=C1;-K1,:A2;=+S1;=C1;-K2,:A2;1,5;rt;1500;  = 1. Zeile
+S1;=C1;-K2,:A2;=+S1;=C1;-K2,:A2;1,5;rt;1500;  = 2. Zeile
+S1;=C1;-K3,:A2;=+S1;=C1;-K2,:A2;1,5;rt;1500;  = 3. Zeile

In der 2. und 3. Zeile ist ein Duplikat enthalten (gleicher Anschluss). Diese Dublikate möchte ich nun so verschieben das sie auf der gleichen Seite sind. Dabei sollen die Eigenschaten des Drahtes erhalten bleiben.

+S1;=C1;-K1,:A2;=+S1;=C1;-K2,:A2;1,5;rt;1500;  = 1. Zeile
+S1;=C1;-K3,:A2;=+S1;;C1;-K2,:A2;1,5;rt;1500;  = 2. Zeile
+S1;=C1;-K3,:A2;=+S1;=C1;-K4,:A2;1,5;rt;1500;  = 3. Zeile

Hoffe, das es jetzt etwas verständlicher geworden ist.

Grüße Wolfgang

------------------
Immer wieder neu lernen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP