Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mehrspaltige Combobox

mehrspaltige Combobox
30.03.2009 08:08:01
Captain
Moin,
habe auf meinem Sheet eine Combobox und versuche dort, zwei Spalten einzulesen. Leider erhalte ich die Fehlermeldung 381 - Eigenschaft List konnte nicht gesetzt werden. Why?

Private Sub Worksheet_Activate()
Dim i%
With Worksheets(1).ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "70;20"
For i = 2 To Worksheets(2).UsedRange.Rows.Count
If Worksheets(2).Cells(i, 1)  "" Then
.AddItem Worksheets(2).Cells(i, 1)
.List(i, 1) = Worksheets(2).Cells(i, 2)
Else
'nix
End If
Next i
.ListIndex = 0
End With
End Sub


Danke
Jack

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrspaltige Combobox
30.03.2009 08:45:38
Hajo_Zi
Hallo Jack,
weil I im ersten Durchlauf schon 2 ist und die Liste beginnt bei 0

AW: mehrspaltige Combobox
30.03.2009 08:56:22
Captain
Hi Hajo,
danke...das hatte ich nicht bedacht...
Jack
AW: mehrspaltige Combobox
30.03.2009 08:45:54
Tino
Hallo,
die Zeile i gibt es bei Dir noch nicht, versuche es mal so.

Private Sub Worksheet_Activate()
Dim i%
With Worksheets(1).ComboBox1
.Clear
.ColumnCount = 2
.ColumnWidths = "70;20"
For i = 2 To Worksheets(2).UsedRange.Rows.Count
If Worksheets(2).Cells(i, 1)  "" Then
.AddItem Worksheets(2).Cells(i, 1)
.List(Worksheets(1).ComboBox1.ListCount - 1, 1) = Worksheets(2).Cells(i, 2)
Else
'nix
End If
Next i
.ListIndex = 0
End With
End Sub


Gruß Tino

Anzeige
AW: mehrspaltige Combobox
30.03.2009 08:55:44
Captain
Hi Tino,
danke für die Hilfe...nu geht es :-)
Jack

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige