Microsoft Excel

Herbers Excel/VBA-Archiv

Mehrspaltige combobox

Betrifft: Mehrspaltige combobox von: Erich
Geschrieben am: 28.08.2004 20:52:39

Hallo Excelprofis,

habe wieder ein Problem,wie kann ich nachfolgenden code veränderen das ich Mehrspaltige Coboboxen habe

Dim a As Integer, j As Integer
Dim aMax As Integer
aMax = Sheets("System").Cells(Rows.Count, 1).End(xlUp).Row
With Me
For j = 1 To 90
.Controls("ComboBox" & j).Clear
For a = 2 To aMax
.Controls("ComboBox" & j).AddItem Sheets("System").Cells(a, 1)
Next a
Next j
End With


kann mir jemand weiter helfen?

gruß

erich

  


Betrifft: AW: Mehrspaltige combobox von: Nepumuk
Geschrieben am: 29.08.2004 06:41:30

Hallo Erich,
wie viele Spalten, wie breit und was soll da drinstehen?
Gruß
Nepumuk


  


Betrifft: AW: Mehrspaltige combobox von: Erich
Geschrieben am: 29.08.2004 07:17:27

Hallo Nepermuk,

danke für deine antwort.

die comboboxen sollen 2 spalten haben, und sollen die inhalte aus der tabelle Systen von der Spalte a und b drinnen stehen

breite Spalte 1 ca 10 mm, Spalte 2 ca 40 mm

gruß

erich


  


Betrifft: AW: Mehrspaltige combobox von: Nepumuk
Geschrieben am: 29.08.2004 07:46:54

Hallo Erich,
versuch es mal so:


Option Explicit

Private Sub UserForm_Activate()
    Dim int_Index As Integer
    For int_Index = 1 To 90
        With Controls("ComboBox" & CStr(int_Index))
            .ColumnCount = 2
            .ColumnWidths = "1cm;4cm"
        End With
        With Worksheets("System")
            Controls("ComboBox" & CStr(int_Index)).List = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 2)).Value
        End With
    Next
End Sub


Gruß
Nepumuk


  


Betrifft: AW: Mehrspaltige combobox von: Erich
Geschrieben am: 29.08.2004 16:01:22

Danke Nepumuk,


funktioniert einwandfrei, danke für deine hilfe

P.S. entschuldigung das ich so spät geantwortet habe, war in der Arbeit!

gruß

erich


 

Beiträge aus den Excel-Beispielen zum Thema "Mehrspaltige combobox"