AW: ListBox bedingt füllen, bedingt ausgeben Teil 3
30.01.2019 15:58:19
Markus
Hallo Matthias
Die Filter funktionieren Perfekt, vielen Dank. Also mir fällt nur ein Wort zu deiner Lösungansatz mit dem zusammensetzen ein ÜBERRAGEND ,er ist einfach ideal für meine Bedürfnisse. Auf die Lösung wäre ich selber nie gekommen.
Wenn es für dich machbar ist und du mir an der Zusammensetzung noch was ergänzen könntest, wäre das echt toll.. Es geht um die Zuordnung der Namen und ID zu den jeweiligen Zeilen beim zusammensetzen. Es müssten die richtigen Namen in den richtigen Zeilen sein wenn es mehr als vier Adressen sind bzw: Mehr als zwei Personen. Ich hab vor der Namen und ID Spalten eine Spalte gemacht dazwischen noch zwei Spalte in der Ziel Tabelle eingebaut und noch eine nach der zweiten ID. Das sind jetzt die Spalten T(Index = 20) , W (23) , X(24) ,AA (27).
Spalte T und X brauch ich für was anderes. Die Spalten W und AA sollen einen kurzen Hinweis enthalten das die Zeile zusammengesetzt ist bzw. das nicht alle Adressen der Person sich in der Zeile befinden. Das könne drei Buchstaben sein. ANV=Adressen nicht Vollständig oder etwas in der Richtung. Da es sicher schwer hinzubekommen ist das so zu regulieren: wenn es mehr als Adressen von 2 Personen sind die da zusammengesetzt werden dann kann die dritte Verkettet in Spalte AB (28) stehen zbsp. so Baum Anna 111111 AVN da es ja nur jeweils zwei Spalten für Name und ID sind. Ich hab es zum besseren Verständnis in die Tabelle eingezeichnet IN ZWEI Varianten. Da ich noch am entschlüsseln /Verstehen des Codes bin weis nur nicht wie aufwändig das ist es umzusetzen. Ich hab jetzt am bestehenden aufbau des Codes noch nichts angepasst um nichts zu zerstören.
Und könnte man noch bei den zwei überschreiben OptionBottens 3 u.4 beim Prüfen ob zwei Zeilen überschrieben werden sollen noch einbauen das außer der (alter Tabellen Aufbau)Spalte V (Spalte 22 im Index) auch die Spalten G(7), T (20) , X (24) , geprüft werden.
Ist glaub ich diese Code Zeile ist es (IST DER ALTE TABELLENAUFBAU OHNE DIE ZUSATZSPALTEN)
If quelle.Cells(zeile, 22) = quelle.Cells(zeile + 1, 22) Then
.
Würde das reichen
If quelle.Cells(zeile, 7) = quelle.Cells(zeile + 1, 7) and quelle.Cells(zeile, 20) = quelle. _
Cells(zeile + 1, 20) and quelle.Cells(zeile, 24) = quelle.Cells(zeile + 1, 24) Then
.
Oder würdest du das anders machen?
Bei OptionBotten4 Wenn durch jemanden mit mehr als 4 Adressen ersetzt wird also eine zweite Zeile erstellt wird dann müssen in der Zweiten Zeile die Werte aus der ersten Zeile Spalte Spalte B bis G übernommen werden.
Naja ich bin für alles dankbar was du bereit bist zu tun um die Leserlichkeit zu verbessern aber ich kann nicht verlangen das du da jetzt noch Schönheitsoperationen am Code durchführst. Schuld bin ja ich weil ich die Angabe nicht gut genug formuliere. Es dauert seine zeit aber ich wird ihn früher oder später komplett verstehen.
Datei mit Darstellung wegen dem zusammensetzen https://www.herber.de/bbs/user/127298.xlsund
ein paar Fragen in den Kommentaren, die Fragen sind immer ********** gekennzeichnet. Könntest du es vielleicht überfliegen ob ich es richtig verstehe. Sind aber noch nicht alle Fragen alles was nicht kommentiert habe verstehe ich noch zu wenig um eine Frage zu stellen :( Aber auf jeden fall ist das ganze was du da für mich erstelt hast, echt Hammer genial :)))).
Grüße Markus