Na in der ersten Spalte steht ein Text in der zweiten die dazugehörige ID.
Je nach Anwendungsfall soll durch Doppelklick auf Spalte1 oder Spalte2 der Wert in die Zelle übernommen werden. Bisher habe ich es mit 2 Radiobuttons gelöst:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If UserForm1.OptionButton1.Value = True Then
ListBox1.TextColumn = 1
Else
ListBox1.TextColumn = 2
End If
ActiveCell.Value = Trim(ListBox1.Text)
UserForm1.Hide
End Sub
Bleibt etwa nur die Möglichkeit 2 Listenfelder nebeneinander zu packen? Das wär dann ziemlich aufwändig, da z.B. das Filtern der Listenfelder "synchronisiert" werden müsste. Gibt es kein Column(75,2).Select oder etwas ähnliches?
Anzeige
AW: Listenfeld - Spalten einzeln selektieren?
26.09.2005 19:42:57
Leo
Hi,
nutz doch einfach das MouseDown-Ereignis, darin kannst du die X-Position des Cursors
auswerten.
mfg Leo