Office: Kombinationsfeld (Combobox) Mehrere Werte übergeben

Hallo Zusammen,

ich komme mit folgendem nicht so ganz klar. Ich habe Excel Tabelle, in der ich ein Kombinationsfeld (activeX) erstellt habe und es mit folgendem Code mit Werten aus einer anderen Excel Datei fülle.

Code:

Ich Würde aber gener mehrere Spalten in das Kombinationsfeld einlesen wollen, die dann auch in meherern Spalten im Kombinationsfeld aufgelistet werden, so dass ich meherer Werte an die Excel Datei übergeben kann.

Aktuell fülle ich die Zelle direkt über die Eigenschaften des Kopmbinationsfeldes.

Dies müsste dann sicherlich auch umgestellt werden oder?

Vielen Dank schon mal für eure Hilfe

Johannes

:)

 

Hi,

anbei ein einfaches Beispiel einer mehrspaltigen Combo, befüllen selbiger, Übergabe der Comboinhalte an Zellen sollte daraus ersichtlich sein.

 

Hallo,

das Beispiel war super. Habe nun fast alles was ich brauche.
Eine Kleinigkeit noch, kann ich der Form beim Aufruf noch einen Parameter mitgeben?
Code:

Kann ich dem Aufruf noch was mitgeben? Oder wie würde ich mitbekommen welcher Button meine Form aufgerufen hat?

Vielen Dank auf alle fälle schon mal

Gruß
Johannes

 

Hallo Johannes,

Parameter gibt es schon aber das ist nur vbModal bzw. vbModeless

Lege das was Du willst auf eine Globale Variable und arbeite mit dieser weiter

in der Form

sub woherauchimmer()
MeineVariable ="was ich haben möchte, weil hier aufgerufen"
frm_meineform.show
end sub

und in einem allgemeinen Modul

public MeineVariable as MeingewünschterDatentyp

 

Hallo,

Danke noch mals, so hatte ich es auch schon gemacht, aber ich hatte gehofft ohne Globale Variabeln auskommen zu können und mit einem Parameter zu arbeiten.

Vielen Dank noch mals
Johannes

 

Hallo Johannes,

man kann sich die Variable auch ersparen *wink.gif*

Code:

du könntest z.B diese Einträge gleich direkt wo auch immer in die Form schreiben
im Bsp. z.B in eine Textbox

 

Hallo Johannes,

eigentlich ist es ganz einfach, eine UserForm mit Parametern zu starten. Du musst nur innerhalb der UserForm eine Public-Routine einbauen, die Du von außerhalb aufrufst und dabei den/die gewünschen Parameter mit übergibst. Der Befehl zum Anzeigen der UserForm (egal ob modal oder nicht) erfolgt dann erst innerhalb der Routine: Code:

Man kann das noch erweitern und die UserForm auch einen Rückgabewert liefern lassen, in dem man eine Public Function im UserForm-Code einbaut: Code:

 

Hallo Haklesoft,

vielen Dank auch für Deine Hilfe.
Bin nun aber bei der globalen Variable geblieben. Ich denke, dass ich damit aktuell ganz gut fahre.

Viele Grüße
Johannes

 

vielleicht hat ja noch jemand einen Tipp für mich bezüglich des Rückgabeformates des Kombinationsfeldes.

Schreibe meine Werte so zurück

Code:

bekomme nun bei Werten, die richtig im Kombinationsfeld angezeigt werden (z.B. bei 2,7455 den Wert 27455 in die Zelle geschrieben oder bei 1.104 den Wert 1,104)
Kann man das noch irgendwo formatieren?

Danke und Gruß
Johannes

Ach ja, ich weis, dass es nicht mehr zum Thema gehört, vielleicht besser neues Thema aufmachen?

 

Hi,

versuche es einmal so

Range("Q" & CStr(Zeile)).Value =cdbl(Me.cbo_Box.List(cbo_Box.ListIndex, 0))

da über eine TextBox nur Text übertragen wird... und VBA englisch spricht^^

oder zuerst die TextBoxen(Combo) auf Variablen übertragen und diese übergeben.

 

Supi, genau dass habe ich gesucht und nicht gefunden.

Vielen Dank sagt
Johannes