title image


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



benutze eine Listbox in einer ComboBox wird nur die erste Spalte angezeigt.

Schreibe Deine Tabelle von A1 bis .... In Zeile 1 eine Überschrift.



Option Explicit



Private Sub UserForm_Activate()

Dim rngSource As Object

Dim intColums As Integer

ListBox1.Tag = 1

Set rngSource = Range("A1").CurrentRegion

' Die oberste Zeile enthaelt die Feldnamen.

' Diese brauchen wir nur dort um die Columnheader darzustellen,

' aber nicht fuer die Listboxeintraege.

' Also den Datenbereich um die Erste Zeile reduzieren.

Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns.Count)

' Spaltenanzahl des Datenbereichs ermitteln.

intColums = rngSource.Columns.Count

With Me.ListBox1

.ListStyle = fmListStyleOption ' Auswahlfeld zu Beginn der Zeile

' von Peter Haserodt

' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox

'.MultiSelect = fmMultiSelectSingle

' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo

.MultiSelect = fmMultiSelectMulti

'.MultiSelect = fmMultiSelectExtended

' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.

' Dies bewirkt, dass mit Shift und Strg Tasten eine Mehrfachauswahl getroffen

' werden kann

' *******

.ColumnCount = intColums

.ColumnHeads = True

.RowSource = rngSource.Address

End With

Set rngSource = Nothing

ListBox1.Tag = ""

End Sub





Private Sub ListBox1_Change()

If ListBox1.Tag "" Then Exit Sub

TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)

TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)

TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)

TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)

TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)

TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)

TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)

End Sub










 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: