cbo op de juiste vullen

[bowlingman]

Hallo,
Nog een probleempje
Om mijn cbo te vullen gebruik de volgende code

Private Sub Userform_initialize()
    Dim SchermMaten As New CScreenRes 'verwijzing naar Klassenmodule
    Dim iControls As Integer          'Aantal besturingselementen
    
    
    Me.Width = SchermMaten.SchermBreedte * 3 / 4 ' hiermee wordt het frm getoond in volledig scherm,_
    Me.Height = SchermMaten.SchermHoogte * 3 / 4 ' door te vermenigvuldigen met 3/4 krijg je op elk beeldscherm een schermvullend frm
    
    With Me                                                             '
        For iControls = 0 To .Controls.Count - 1                        '
            With .Controls(iControls)                                   '
                .Top = .Top * SchermMaten.SchermHoogte / 768            '
                .Height = .Height * SchermMaten.SchermHoogte / 768      'aanpassen van de besturingselementen
                .Left = .Left * SchermMaten.SchermBreedte / 1024        '
                .Width = .Width * SchermMaten.SchermBreedte / 1024      '
            End With                                                    '
        Next                                                            '
    End With                                                            '
    
[COLOR="#FF0000"]    cboiD.List = Sheets("Leden").Columns(1).SpecialCells(xlCellTypeConstants).Value
    cboTeams.List = Sheets("AlgemeneData").Columns(1).SpecialCells(xlCellTypeConstants).Value[/COLOR]
    
    Calendar1.Value = Date ' zet de datum in de kalender op de juiste datum
    txtTeam1.SetFocus ' zet de cursor bij opstarten frm automatisch in de eerste txtbox
End Sub

Maar in de eerste rij van de betreffende sheets staat de omschrijving van de kolommen.
Nu wordt deze omschrijving ook meegenomen in de cbo en zou dit eigenlijk maar mogen zijn van de tweede rij.
Hoe kan ik dit oplossen.

Grtjs.
Armand

 

[ExcelAmateur]

bowlingman,

Heb je dit al geprobeerd om dit te doen inplaats van de 1?

Columns(2)

 

[sylvester-ponte]

hallo
hier de eenvoudige versie
vervang

Columns(1)

door

range(A2,A60000)

groet

 

[Warme bakkertje]

cboiD.List = Sheets("Leden").Range("A2:A" & Sheets("Leden").Cells(Rows.Count, 1).End(xlUp).Row).Value
cboTeams.List = Sheets("AlgemeneData").Range("A2:A" & Sheets("AlgemeneData").Cells(Rows.Count, 1).End(xlUp).Row).Value

 

[bowlingman]

Hallo helpers,

Bedankt voor jullie reacties
@ExcelAmateur, met deze code wordt gewoon in plaats van de eerste kolom, de tweede kolom gebruikt
@Sylvester, met deze wijziging krijg ik een foutmelding in het laden van het frm
@Rudy, deze code werkt perfect.

Iedereen bedankt voor de hulp en doe maar verder met jullie prachtig werk.

Grtjs.
Armand