declaratie van combobox

[bowlingman]

Hallo,
Ben nog eens terug op gang geschoten met excel en vba en heb het volgende probleem: Ik heb een frm gemaakt met 2 comboboxen. In de cboDatum kan je een datum kiezen, welke op de sheet "Wedstrijden" staan in kolom a1:a28, in de cboSpeeldag moet dan het nummer van de speeldag komen welke op dezelfde sheet staan in kolom b1:b28. Hiervoor heb ik de volgende code staan:

Private Sub cboDatum_Change()
    Dim oRng As Range, dRng As Integer
    Set oRng = ThisWorkbook.Sheets("Wedstrijden").Cells.Find(what:=cboDatum.Value, lookat:=xlWhole)
    [B][U]cboSpeeldag.Value = oRng.Offset(0, 1).Value[/U][/B]
End Sub

Private Sub CommandButton1_Click()
    Me.Hide
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Dim oC As Range, EndRow As Long, r As Long
    EndRow = ThisWorkbook.Sheets("Wedstrijden").Cells(Rows.Count, 2).End(xlUp).Row
    Set oC = ThisWorkbook.Sheets("Wedstrijden").Cells
    For r = 1 To EndRow
        If oC(r, 1).Value <> "" Then
            cboDatum.AddItem oC(r, 1).Value
        End If
    Next
End Sub

maar telkens krijg ik op de onderlijnde regel de foutmelding :
"Objectvariable of Blokvariable With is niet ingesteld.
Dit zal te maken hebben met een fout inde code, vermits wanneer ik de datums en de nummers van de speeldagen wijzig in tekst alles wel goed gaat.

Grtjs.
Bowlingman

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    EndRow As Long, r As Long
    With Sheets("Wedstrijden")
        EndRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For r = 1 To EndRow
            If .Cells(r, 1).Value <> "" Then
                cboDatum.AddItem .Cells(r, 1)
            End If
        Next
    End With
End Sub

Private Sub cboDatum_Change()
    Dim fRow As Integer
    With Sheets("Wedstrijden")
        fRow = .Columns(1).Find(DateValue(cboDatum), , xlValues, xlWhole).Row
        cboSpeeldag = .Cells(fRow, 2).Value
    End With
End Sub

 

[bowlingman]

Beadnkt Warm Bakkertje voor je snelle reactie, maar ik denk dat er ergens een nog een foutje zit. Ik krijg namelijk op de regel:

"cboDatum.AddItem.Cells(r, 1)"

De foutmelding "Compileerfout - Verwacht:="
Tevens wordt achter het punt geen keuzemenu geopend.

Grtjs.
Bowlingman

 

[Warme bakkertje]

Private Sub UserForm_Initialize()
    Dim EndRow As Integer, r As Integer
    With Sheets("Wedstrijden")
        EndRow = .Cells(Rows.Count, 2).End(xlUp).Row
        For r = 1 To EndRow
            If .Cells(r, 1).Value <> "" Then
                cboDatum.AddItem .Cells(r, 1)
            End If
        Next
    End With
End Sub

 

[bowlingman]

Hallo Warm Bakkertje,
Het was dus wel degelijk het declareren dat nog ontbrak. Bedankt
Maar nu krijg ik dezelfde "fout 91" melding op de regel:

"fRow = .Columns(1).Find(DateValue(cboDatum), , xlValues, xlWhole).Row"

in de cboDatum_change, nu zelfs ook wanneer ik zoals voorheen datums en nummers vervang door tekst

 

[Warme bakkertje]

Zie bijlage.
aanders zal ek et effkes kome veurdoen in beursbeek zenne :d

 

[bowlingman]

Hallo Warm Bakkertje,

Raar maar waar. Als ik Uw bijgevoegde file uitvoer werkt het wel.
Nu heb ik in mijn file, mijn codes met quotes uitgeschakeld en die van U gewoon gekopieerd en in mijn file geplakt en nog krijg ik dezelfde foutmelding.
Kan blijkbaar spijtig genoeg mijn file niet mee sturen.

Grtjs.
Armand

 

[bowlingman]

Hallo,
Sorry was vergeten deze vraag als opgelost te zetten.
De vraag zal nu misschien zijn : Hoe
Wel na de code zo'n honderd keer nagezien te hebben is me eindelijk opgevallen dat in mijn code "value" stond in plaats van "values"
Bedankt voor de reacties.