Office: (Office 2016) Listenfeld mit VBA auslesen und Textfeld befüllen

Guten Tag alle zusammen, ich habe ein Listenfeld in einem Formular, ich möchte auf diesem einen Wert aus der Liste auswählen, dann auf einen "OK" button klicken, den Ausgewählten Wert in einer Variable merken und gleichzeitig in ein Textfeld packen, aber die Variable soll sich den weiterhin merken, damit ich den Wert später für die Zuweisung anderer Formulare / Berichte verwenden kann. Ist ein String, also keine Zahl

:)

 

Moin,
vielleicht hilft dir dies weiter: Lebensdauer + Sichtbarkeit von Variablen - Das VBA-Tutorial
maike

 

Das mit Public und Private war mir bekannt, mit Static hab ich was dazu gelernt. Ich weiß aber noch nicht so ganz wie mir das bei meinem Problem weiterhilft

 

Dann definiere doch mal bitte das Problem etwas genauer, ich dachte es ginge um das Merken des Wertes?
maike

 

Es ging um das merken des wertes, allerdings weiß ich nicht mit welcher Anweisung ich den wert speichere? Und wie ich das ganze in einem _Click Ereignis integriere?

 

Den OK-Button finde ich überflüssig, das Listenfeld hat doch ein Klick-Ereignis (ich würde allerdings den Doppelklick nehmen):
Code:

Der entsprechende Wert muss sich dafür in der ersten Spalte der Liste befinden (sonst über die Eigenschaft .Column(x) des Feldes definieren).
maike

 

Hallo,

auch die Verwendung von TempVars käme in Betracht.
Arbeiten mit TempVars

 

Hallo Maike, erstmal danke für die Antwort

Danke das wusste ich nicht.
Ich würde jetzt im nächsten Schritt versuchen deinen Ansatz mit dem Code umzusetzen. pubstrDeineVariable kann ich wahrscheinlich einfach in einem Modul deklarieren, mit Code:

In der Tabelle auf der das Listenfeld basiert, sind alle Werte aus dem Listenfeld in der ersten Spalte. Da sollte es also keine Probleme geben. Ich geh jetzt einfach mal davon aus, das es, mit zusätzlichem Code, so für unendlich Werte im Listenfeld funktioniert

Hallo TommyK, ich habe mir die Beispiel Datenbank von der Website geladen.
Allerdings versteh ich es nicht ganz, wenn ich als Test, Werte in die Felder des Formulars eintrage und auf Anzeigen drücke, bleibt die msgbox leer.
und wie kann ich diese Public Function denn bei einem Listenfeld integrieren?

 

Hallo,

diesen Code in ein neues Modul:
Code:

Im Doppelklick-Ereignis eine neue TempVar anlegen und füllen.
z.B.:
Code:

 

\@TommyK:

Warum extra eine Anweisung in eine Funktion ohne Mehrwert packen, wenn ich diese direkt im Quelltext verwenden kann?

Das gibt m.M. nach wenig Sinn.

Gruß Ulrich

 

Danke, habe beide Beispiele getestet, beide tun das was ich mir vorgestellt habe, die frage ist, welches von den beiden Beispielen ich verwenden soll?
Was sind die Vor - und Nachteile der beiden?

 

Mit den TempVars kenne ich mich nicht aus, aber ich würde sagen, wenn du das Ganze nur an einer Stelle bzw. für diese eine Variable brauchst, reicht der von mir vorgeschlagene Weg. Hast du mehrere solcher Variablen an verschiedenen Stellen, könnte Tommys Vorschlag besser sein.
maike

 

TempVars sind schon sehr praktisch und bieten den Vorteil, daß sie auch in Abfragen verwendet werden könnten. Allerdings sollte man, wie bei allen globalen Variabeln, darauf achten, sie nur dort zu verwenden, wo das unbedingt notwendig ist und sie sollten immer richtig initialisiert sein.

Ulrich

 

Nim doch einfach die Globale Variabel als Function
Beisiel:

Global Gva_Sortierung
____________________________________

Function fkt_Gva_Sortierung()
fkt_Gva_Sortierung = Gva_Sortierung
End Function
_____________________________________

Mit einem Doppelklick in das Formularfeld die Gva_* befüllen, anschließend steht der Wert über die Gva_* in jedem Formular, Abfrage, oder Bericht zur Verfügung.

Viel Erfolg

 

Vielen Dank an alle, es läuft wie es soll