Hulp bij cel referentie gevraagd.

[trevordaines]

Beste Helpers,

Ik heb de volgende sheet (zie plaatje)


Nu wil ik graag middels VBA een waarde (Tijd) invullen op het kruispunt van bijv. Boren en Woensdag.

Ik heb hiervoor een userform met twee ComboBoxen (Werk, Dag) , een TextBox om de tijd in te vullen, en een button.
Als de Button ingedrukt wordt, moet de tijd worden ingevuld.

Ik zat zelf aan Intersect te denken, maar ik weet niet hoe Boren cq Woensdag te koppelen aan Rij/Kolom nummers.

Iedere hulp is welkom.

Groet, Trevor

 

[ExcelAmateur]

trevordaines,

Waarom zet je de file niet hier met wat je al heb?
Met je file kan men gelijk aan de slag maar nu moet alles weer gemaakt worden.

 

[trevordaines]

Hallo ExcelAmateur,

Bij deze de file tot zover..
Het werkt wel, maar ik wil graag weten of het beter... sneller en/of compacter kan.

Bekijk bijlage Try1.xls

 

[Warme bakkertje]

Private Sub cmdSchrijven_Click()
    With Worksheets("Sheet1")
        rw = .Columns(1).Find(cmbWerk, , xlValues, xlWhole).Row
        cw = .Rows(1).Find(cmbDag, , xlValues, xlWhole).Column
        .Cells(rw, cw) = txtUren.Value
    End With
End Sub

 

[trevordaines]

Rudi,

Dank je wel voor je snelle reactie...

Ik heb jouw oplossing in gebruik genomen en het werkt fantastisch. :thumb:
Kortere code, overzichtelijk en snel.... erg mooi!

Ook ExcelAmateur bedankt voor het meedenken....

Groet, Trevor

 

[Warme bakkertje]

Je was nochtans op de goede weg en je had de juiste invalshoek, heb niet al te veel moeten aanpassen :thumb: