Keuzelijst benaderen vanuit macro

[KorvanderMeulen]

Hallo,

Ik heb in een sheet veel keuzelijsten staan. Deze keuzelijsten zijn gevuld met werknemers. Per dag 9 stuks en dat 7x. Na een keuze van een werknemer uit deze combo wordt het uurtarief gekopieerd vanuit een ander sheet. Werkt allemaal prima.

Maar ik heb nu per keuzelijst een procedure moeten maken omdat ik niet bij de combo kan komen. Excel werkt blijkbaar niet met indexen dus ik weet niet vanuit welke combo de macro is opgestart. Ik heb het nu zo opgelost maar dat is natuurlijk vragen om problemen;

'Maandag
Sub Vervolgkeuzelijst_BijWijzigen101()
Cells(4, "C") = Worksheets("Algemeen").Cells(Cells(4, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen102()
Cells(5, "C") = Worksheets("Algemeen").Cells(Cells(5, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen103()
Cells(6, "C") = Worksheets("Algemeen").Cells(Cells(6, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen104()
Cells(7, "C") = Worksheets("Algemeen").Cells(Cells(7, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen105()
Cells(8, "C") = Worksheets("Algemeen").Cells(Cells(8, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen106()
Cells(9, "C") = Worksheets("Algemeen").Cells(Cells(9, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen107()
Cells(10, "C") = Worksheets("Algemeen").Cells(Cells(10, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen108()
Cells(11, "C") = Worksheets("Algemeen").Cells(Cells(11, "B") + 3, "D")
End Sub
Sub Vervolgkeuzelijst_BijWijzigen109()
Cells(12, "C") = Worksheets("Algemeen").Cells(Cells(12, "B") + 3, "D")
End Sub

Weet iemand hier een mooiere oplossing voor?

Alvast bedankt!

Groet,
Kor