geschlossene Combobox mehrspaltige Anzeige
16.12.2008 10:07:00
Herbert
Ich habe eine UserForm mit einer Combobox und 3 Textboxen. Die Auswahl wird
in die 3 Textboxen zum Bearbeiten übernommen.
Beim Aufruf der UserForm wird in der Combo nur der Zellinhalt (A1) angezeigt.
In der aufgeklappten ComboBox werden alle 3 Spalten gezeigt - nach Auswahl
eines Eintrags in der geschlossenen Combo wieder nur der Inhalt der
gewählten Zeile, Spalte A .
Wie muß ich die Initialisierung anpassen, daß beim Starten der Userform der
Inhalt Spalte A:C Zeile 1, bzw. nach Auswahl der Inhalt Spalte A:C angezeigt wird oder geht das
gar nicht?
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim arr As Variant
Set wks = ThisWorkbook.Worksheets("Tabelle2")
arr = wks.Range("A1", "C" & Range("A65536").End(xlUp).Offset(1, 0).Row)
With cboEins
.List = arr
.ColumnWidths = "140;36;50"
.ColumnCount = 3
End With
cboEins.ListIndex = 0
TextBox1.SetFocus
End Sub
Danke im Voraus
Gruß Herbert
