Office: Combobox einen Wert zuweisen

In VB ist es sooo einfach...
Irgendwie hab ich nen Brett vorm Kopf.
Wie kann ich einer Combobox auf einem Tabellenblatt einen Wert zuweisen ?
Wenn ich dropdown13 = 1 eingebe, passiert nichts.
activeSheet!dropdown13=1 gibt ne Fehlermeldung.
Ich brauche wohl nur einen Denkanstoss.
Hilfee

:)

 

hallo carsten

in vba geht es mit .additem

ansonsten musst du bei der combobox unter listfillrange nen datenbereich angeben in dem die werte für die combobox stehen.

mfg richi

 

Ne, ich meine wie sage ich VBA dass es sich um diese Box handelt ?
Angenommen ich möchte sie unsichtbar machen...

 

achsoo


Worksheets("Tabelle1").ComboBox1.Visible = True

mfg richi

nachtrag: du kannst den namen der combobox sehen, wenn du sie in der entwicklungsumgebung (kleines grünes dreieck gedrückt) markierst und dir dann die eigenschaften anzeigen läßt (den knopf findest du auf der symbolleiste Steuerelemente Toolbox

 

OK, hab jetzt das Steuerelement aus der Entwurfsansicht genommen.
Wie geht das mit dem Listfillrange?

ActiveSheet.ComboBox1.ListFillRange = Sheets(3).Range("A1","A18")

reagiert nicht.

 

also,

die listfillrange eigenschaft kannst du direkt im eigenschaftsfenster des steuerelements eingeben.

per vba klappt das bei mir auch nicht.

da bin ich dann leider auch überfragt. eigentlich dachte ich man könnte alle eigenschaften per vba setzen, warum das jetzt nicht funktioniert???

mit visible z.bsp. gehts ja. er zeigt aber auch leider keine hilfe dazu an.
wenn du diese boxen per vba füllen willst, nutze ich aber sonst auch immer die combobox1.additem ("text") methode und lasse diese einfach im workbook_open durchlaufen

mfg richi

 

So geht das nicht....
Also nochmal von vorne:
Zuerst hab ich eine Combobox aus der Formular-Toolbar genommen.
Hier habe ich den Vorteil, dass beim Anwählen die vorher markierten Zelen auch markiert bleiben.
Dieser Box konnte ich keinen Standardwert zuweisen, weil ich nicht weis, wie ich sie ansprechen soll.
Dann hab ich ein Steuerelement genommen.
Bekommt dieses den Focus, sind die Zellen nicht mehr markiert.
Wie bekommen ich denn jetzt aus einer Auswahlliste (Combobox) einen Wert in die vorher markierten Zelen ???


MUSS MICH KORRIGIEREN....
Geht doch.
Danke fr Deine Geduld.

 

sorry,

dann bin ich auch überfragt.

bei einem knopf kann man den focus unterbinden aber bei einer combobox natürlich nicht.

mein tip wäre aber dich mal an www.herber.de/forum zu wenden

da kann dir auf jeden fall geholfen werden.

mfg richi

nachtrag: wie geht es denn jetzt?

 

Moin, Richie,

wie macht man per Code ...visible = True irgendetwas unsichtbar? Andererseits stellt sich mir die Frage, warum Du Dich an Antworten versuchst und nicht selbst für die Lösung in die FAQ siehst...

 

Hi Carsten,

1) die ListFillrange musst du als String zuweisen, nicht als Range.

Sub ListFillBereichFestlegen()
Worksheets(1).ComboBox1.ListFillRange = "A1:A10"
End Sub

Gegebenenfalls "Tabelle2!A1:A10", falls die Daten aus einem anderen Blatt stammen.


2) Wenn der ausgewählte Wert immer in eine bestimmte Zelle übernommen werden soll, kannst du die Eigenschaft .LinkedCell benutzen. Ebenfalls String!

3) Wenn der Wert in die aktuelle Zelle geschrieben werden soll, kannst du folgende Ereignisprozedur (im entsprechenden Worksheet) nutzen. Einen Weg, mehrere selektierte Zellen gleichzeitig zu bedienen, kenne ich leider nicht.

Private Sub ComboBox1_Change()
ActiveCell = ComboBox1
ActiveCell.Select
End Sub

Das eigentlich unsinnig erscheinende Activecell.Select sorgt dafür, dass die Zelle den Focus zurückbekommt.

Ciao

Johannes

 

So, damit alle was davon haben:

Code:

Gruss Carsten *biggrinlove