Combobox - insert text to cells

[Lukael]

Hi,

I have a Combobox which lists text (time-intervals). I managed to split this text in Combobox and put It separately in two cells under, for needs of calculating time differences.

Problem is, that I need this kind of solution for many rows(79) and columns (31), and all this Comboboxes must insert text only in cells right under them. Combobox is not positioned in cell, so I don't know how to write code that would do that, other than write a code for each Combobox alone (that would be like 2.400 times !).

Please take a look at my sample worksheet, notice that only first "solution" (column B and C) is programmed so far. I want It to be done for both (and all afterwards), in a VBA loop maybe...

My code so far:

Private Sub ComboBox1_Change()

If ComboBox1.ListIndex <> "" Then
Range("B4").Value = Left(ComboBox1.Value, 5)
Range("C4").Value = Right(ComboBox1.Value, 5)
End If
End Sub

Is It even possible ?

Thanks for help !!

Regards, Luka