Combobox-Problem
08.10.2006 14:58:30
Mathias
ich kapier es mal wieder nicht.
Ich lasse mittels Modul über den Code
Sub CB_Füllen()
Dim ctr As Control
For Each ctr In EbgVermoegen.Controls
If ctr.Name Like "cbxVermoegen*" Then
With ctr
.AddItem "BV/EHB"
.AddItem "PTR"
.AddItem "MuK"
End With
End If
Next ctr
EbgVermoegen.Show
End Sub
die Combobox füllen. Wie schaffe ich es nun, dass ich nun mittels MODUL-Code diesen Inhalt der Combo-Box in eine Zelle tranportiere?
Das hier ist mein Versuch:
Sub Daten_Uebertragen()
Dim var As Variant
Worksheets("VermoegensberechnungEHB_PTR").Range("A5").Value = var(cbxVermoegenPerson1)
End Sub
Vielen Dank schon mal