Myujth

I have a problem with Listboxes.
In the Screenshots below you can see that I have “Templates” in which you can fill in the name of a scenario (here: 1,2, 3) and select the affected people for this scenario via a Listbox. The Listbox should appear when the cell next to the “Affected people”-Cell ( B5) is active. After selecting the affected people and selecting another cell then B5 the selected options should be inserted into B5.

What I have already managed to do is to make the code work for Listbox1. The problem now is inserting a new scenario-template (and thus also a new listbox ) via Macro. I don´t know how to change the fixed references in the code into relative references to make the code work for each new listbox.
If you have an Idea how to fix that problem, I would be extremely grateful! :)

[1) screenshot][1]
[2) screenshot][2]
[3) screenshot][3]
[4) screenshot][4]

Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim aCR As Integer ' aCR= Row of the ActiveCell
Dim aCC As Integer 'aCC =Column of the ActiveCell 
Dim m As Integer
Dim c As String
aCR = ActiveCell.Row
aCC = ActiveCell.Column
m = aCR Mod 5
If m = 0 Then
 If aCC = 2 Then
 Listbox1.Visible = True ‘ Problem! Here the Listbox should be made visible which is above the ActiveCell (not visible yet!) ! No relative reference here
End If 
End If
End Sub

Sub ListBox1_LostFocus() ‘ Problem! No relative reference here
Dim str_selected_items As String, i As Long
With Listbox1 ‘ Problem! No relative reference here
 For i = 0 To .ListCount - 1
 If .Selected(i) Then
 str_selected_items = str_selected_items & "- " & .List(i) & Chr(10)
 End If
 Next i
End With
If Len(listitems_spalte_1) > 0 Then 
Range("B5").Value = Left(str_selected_items, Len(str_selected_items) - 1) ‘ ‘ Problem! No relative reference here 
Else
Range("B5") = "" ‘ Problem! No relative reference here 
End If
Listbox1.Visible = False ‘ Problem! No relative reference here
End Sub

 [1]: https://i.stack.imgur.com/Og1Lr.png
 [2]: https://i.stack.imgur.com/PmzK3.png
 [3]: https://i.stack.imgur.com/4QdWh.png
 [4]: https://i.stack.imgur.com/i2ml6.png