title image


Smiley Re: 2-spaltige Liste in einem Form darstellen?
Hallo!



Die zweispaltige Darstellung erzielst Du mit Hilfe der Eigenschaft columncount.

Und zum Auslösen einer Prozedur kannst Du z.B. das Change- oder das Afterupdate-Ereignis ausnutzen.



Das könnte z.B. in einer Userform mit je einer List- und einer Combobox so aussehen:



Private Sub UserForm_Initialize()

Dim r_Liste As Range

Set r_Liste = Range("a1").CurrentRegion

With ComboBox1

.RowSource = r_Liste.Address

.ColumnCount = r_Liste.Columns.Count

End With

With ListBox1

.RowSource = r_Liste.Address

.ColumnCount = r_Liste.Columns.Count

End With

End Sub



Private Sub ComboBox1_Change()

Call msg(ComboBox1.Value)

End Sub



Private Sub ListBox1_Click()

Call msg(ListBox1.Value)

End Sub



Sub msg(Meldung As String)

MsgBox "ausgewählter Wert = " & Meldung

End Sub



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: