title image


Smiley Re: UserForm ListBox
Hallo,



die Spaltenbreite der ersten Spalte musst du anpassen.



Option Explicit

Private Sub cbfüllen_Click()

Dim My_ArrayA As Variant

My_ArrayA = Workbooks("SVA Heilbehelfe und Hilfsmittelkatalog.xls").Worksheets("Tabelle2").Range("$C$1:$D$40")

With ListBox1

.ColumnCount = 2

.BoundColumn = 2

.ColumnWidths = "5cm;0cm"

.List = My_ArrayA

End With

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

TextBox3.Text = ListBox1

End Sub



Gruß M.I.Nitraum

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: