Ik wil de waarde uit een ListBox plaatsen in de cell rechts van de cell waarvandaan de ListBox geopend is.
Voorbeeld:
In cel A1 kies ik uit een validatielijst een waarde waardoor de ListBox geactiveerd wordt. In de ListBox kies ik maand 'Maart'. Maart moet nu vermeld worden in de cel rechts van A1 dus cel A2.
Ik heb onderstaande tevergeefs geprobeerd; wie heeft een beter (werkend !) idee ??
Private Sub Userform_Activate()
ListBox1.ColumnCount = 1
ListBox1.RowSource = "'INPUT&DATA'!$q$3:$q$14"
ListBox1.ControlSource = ActiveCell.Offset(0, 1)
End Sub
Voorbeeld:
In cel A1 kies ik uit een validatielijst een waarde waardoor de ListBox geactiveerd wordt. In de ListBox kies ik maand 'Maart'. Maart moet nu vermeld worden in de cel rechts van A1 dus cel A2.
Ik heb onderstaande tevergeefs geprobeerd; wie heeft een beter (werkend !) idee ??
Private Sub Userform_Activate()
ListBox1.ColumnCount = 1
ListBox1.RowSource = "'INPUT&DATA'!$q$3:$q$14"
ListBox1.ControlSource = ActiveCell.Offset(0, 1)
End Sub