combolbox invullen onder een combobox

[Eastw00d]

ik heb een combobox gemaakt met daarin de weekdagen.
Als er een dag geselecteerd wordt, worden er data in onderliggende comboboxen geplaatst. Nu moeten deze data ook kunnen worden aangepast.
En dan loop ik vast

 

[edmoor]

"En dan loop ik vast" is niet echt een uitleg van wat er niet goed gaat.
Een beetje uitleg over hoe het document te gebruiken en waar we die comboboxen kunnen vinden mag er ook wel bij.

Over je VBA schrijfwijze:
Laat ik maar niks zeggen...

 

[Eastw00d]

Het is de bedoeling dat je per dag aan gaat geven van welke leverancier je een lading hebt ontvangen en waar je hem opslaat.
Het probleem wat ik heb, is dat ik na het selecteren van een dag, de onderliggende boxen niet met de volgende code

Private Sub silo4_Change()
Worksheets("invul").Range("c5") = Me("silo4").Value

End Sub

gevuld krijg.

ik kan geen subroutine binnen een subroutine starten.

 

[edmoor]

Die code vult geen combobox maar cel C5 in het werkblad invul.
Vanuit een subroutine kan je altijd een andere subroutine starten:

Private Sub SubroutineA()
    SubroutineB()
End Sub

Maar het is me niet duidlijk wat je precies wilt bereiken.

 

[Eastw00d]

Dank !
Dat zet me een heel end op weg. Op bijv. maandag wil ik kunnen selecteren welke leverancier er komt en in welke silo hij heeft gelost

 

[AHulpje]

En als voorbeeldje, je zou de 68 regels van dagbox_Change in Userform1 kunnen vervangen door

Private Sub dagbox_Change()
    Dim kolom As Long
    kolom = 1 + 4 * dagbox.ListIndex
    For a = 1 To 6
        Me("combobox" & a).Value = Worksheets("invul").Cells(kolom, a + 2)
        Me("keuze" & a).Value = Worksheets("invul").Cells(kolom + 1, a + 2)
        Me("silo" & a).Value = Worksheets("invul").Cells(kolom + 2, a + 2)
    Next a
    Me.TextBox3 = Worksheets("dagplanning").Range("e19")
    Me.TextBox1 = Worksheets("invul").Cells(kolom + 1, 9)
    Me.TextBox2 = Worksheets("invul").Range("y9")
    Me.TextBox4 = Worksheets("dagplanning").Range("m12")
End Sub

En het wordt een stuk leesbaarder als je je controls een duidelijke naam geeft.

 

[HSV]

kolom = rij en rij is kolom geworden?

 

[AHulpje]

Eh, oeps, nou ja, het was toch al een rommeltje.

Private Sub dagbox_Change()
    Dim kolom As Long
    kolom = 1 + 4 * dagbox.ListIndex
    For a = 1 To 6
        Me("combobox" & a).Value = Worksheets("invul").Cells(a + 2, kolom)
        Me("keuze" & a).Value = Worksheets("invul").Cells(a + 2, kolom + 1)
        Me("silo" & a).Value = Worksheets("invul").Cells(a + 2, kolom + 2)
    Next a
    Me.TextBox3 = Worksheets("dagplanning").Range("e19")
    Me.TextBox1 = Worksheets("invul").Cells(9, kolom + 1)
    Me.TextBox2 = Worksheets("invul").Range("y9")
    Me.TextBox4 = Worksheets("dagplanning").Range("m12")
End Sub