Komme einfach nicht weiter.....brauche dringend Hi
27.01.2019 20:56:37
Schmidt
Meine Versuche wurden für mich immer unübersichtlicher und nun Blicke ich nicht mehr durch. Das geht doch sicher irgentwie einfacher.
Ich habe eine Tabelle mit ca. 70.000 Zeilen.
In dieser Tabelle stehen in einer Zeile Arbeitskarten Nr. die dazugehöige Tätikei...............
AKNR AKTXT KAB KAGA Werkstatt UG ZNR ARBEITSTXT ADAUER ANZAMA
Mein Problem ist jeztz folgendes ich möchte alle Arbeitskartennummer die gleich sind zusammenfassen.
Gleich sind Sie nur wenn AKNR und KAB und KAGA und Werkstatt und UG
gleich sind.
Wenn alles gleich ist sollen die Arbeiten als 1 String zusammengesetzt werden.
z.B. 0999V00002 Anbringen Geländer 4 0010 1500 005 01-09
dann die Arbeitschritte als String zusammengefügt Geländer zuschneiden
Geländer ausrichten Geländer anbohren Geländer schweißen Geländer vorstreichenGeländer Handlauf zusägen Geländer Handlauf aufbringen.
evt soll über die Tabelle Einstellung dazwischen ein Trenner eingefügt werden
z.b. Semikolon oder Leeerezeichen.
Meine VBA Kenntnisse sind leider noch gering.
Ich habe foldendes versucht..
Die Daten der Tabelle in eine Var gespeichert
Dim ArbeitsplanNeu As Variant
'Die Tabelle enthält ca. 65835 Zeilen ArbeitsplanNeu = Daten_Tabelle.Range("A2:L65835")
dann habe ich mit unterschiedlichen For next Schleifen und If then else Vergleichen versucht die Zeilen zu ermitteln die die Bedingungen erfüllen die Gleich sein müssen.
Das hat soweit auch geklappt. Aber nachher bin ich irgendwie mit den Zählern der
For Next Schleifen durcheinander gekommen.
Wieviele Zeilen waren gleich hier habe ich wieder mit for Next gearbeit da
mit ich wusste wieviele Strings der Var ArbeitsplanNeu ich zusammenfügen musste...
es wurde mir dann irgendwie zu unüberschaubar....
Für Euch ist das sicherlich keine Problem aber ich als Anfänger stoße hier doch an meine Grenzen. Wäre wirlich toll wenn Ihr mir hier weiterhelfen könntet. Habe was Array lesen LBound uns gelesen kann damit aber bisher wenig anfangen.
Ich habe die Tabelle asl Grundgerüst beigefügt.
Meine Schleifenversuche und unzähligen IF Bedingungen habe ich erstmal rausgenommen. Meine Excel Version ist 2016
https://www.herber.de/bbs/user/127188.xlsm