Variable Liste mit mehreren Vaiablen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hello again Lutz :-)

Ich hab mich an meinem ersten Vorschlag für dich mal selbst versucht - und war gescheitert^^ :-)
(vieles is doch nich immer sooo einfach, wie ich erst denke :-) )

Aber is nich schlimm...

Hier, versuch mal - funktionierende Lösung mit VBA
https://www.herber.de/bbs/user/164085.xlsm

Ablauf:
- wähl in Zelle I23 eine Linie aus
- so werden, wie du es schon kennst, in Zelle K23 nur die Auswahlmöglichkeiten angeboten, die für Wert in I23 verfügbar sind
- jetzt wird in Gesamttabelle in Spalte D nach Wert aus Zelle K23 durchsucht
...bei jedem Fund wird erstmal aus gleicher Zeile die Inventarnummer aus Spalte B in einer Variablen zwischengespeichert; jedem Eintrag in der Variablen folgt ein Komma
...nach Abschluss der Suche nach Firma in Spalte D wird in der Variablen das letzte Komma gelöscht
...im letzten Schritt erhält nun auch Zelle M23 eine Datengültigkeitsliste
...der Inhalt dieser Liste ist immer die zuvor aktualisierte Sammlung an Inventarnummern in der Variablen

Und so funktioniert immer wieder eine neue Auswahl.

Hilfts?

Ciao
Thorsten

Hi Lutz,

änder mal bitte im Sub sbDataInv diese Zeile...

If lstrDataList = "" Then Exit Sub

...um in...

If lstrDataList = "" Then GoTo weiter

Und änder bitte diesen Code...



        End With



    Set lshData = Nothing

    Set lshList = Nothing

...um in...



        End With



weiter:

    Set lshData = Nothing

    Set lshList = Nothing

Es gibt in meiner gezeigten, neuen Datei keinen Fehler, aber ich war mit Copy/Paste von alter zu neuer Datei zu schnell...so kam es zu einer für mich "unschönen" Programmierung.

Hintergrund (auch, wenn dich das vllt (noch) nicht interessiert :-) )

Ganz zu Anfang im Code werden die Variablen lshData + lshList mit jeweils 1 bestimmten Tabellenblatt verknüpft.
Und in "Programmiererkreisen" "gehört es sich", dass man alle zuvor mit Set...= gesetzten Variablen wieder mit Set...= Nothing zurücksetzt.

Im alten Code hatte ich keine Set-Variablen. Somit konnte ich, wenn Variable lstrDataList = "" bleibt, sofort mit Exit Sub das Makro beenden.
Jetzt, im neuen Code, hat sich das mit Set... ja geändert - und am Ende des Makros gibt es ja auch die ..=Nothing-Befehle.
Nun ja, diese müssen, egal, was vorher im Code passiert, nun immer ausgeführt werden - deswegen mein Wunsch auf Korrektur, auch wenn diese auf die eigentliche Ausführung desselben keinen Einfluss hat....is halt nur "schöner, im Sinn von sauberer, programiert" :-)

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Variable Liste mit mehreren Vaiablen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread