Private Sub CommandButton1_Click()
    Dim Zelle1 As Range
    Set Zelle1 = Workbooks("range2.xlsm").Worksheets("Tabelle1").Range("A18")
    Call ListBox_ÖffnenUndFüllen("range2.xlsm", Zelle1)
End Sub
 
Public Sub ListBox_ÖffnenUndFüllen(wkb As String, Ze1 As Range)
    Dim rngCurrent As Range
    Dim ListName As String
    Dim ListB As MSForms.ListBox
 
    Set rngCurrent = Ze1.CurrentRegion
    ListName = "[" & wkb & "]" & rngCurrent.Worksheet.Name & "!" & _
      rngCurrent.Address
 
    Worksheets("Tabelle1").OLEObjects.Add(ClassType:="Forms.ListBox.1", _
      Link:=False, _
        DisplayAsIcon:=False, Left:=489.6, Top:=105.6, Width:=165, Height:= _
        138.6).Select
    Set ListB = Worksheets("Tabelle1").OLEObjects("ListBox1").Object
    With ListB
        .ListFillRange = ListName
    End With
 
    'Hier sollte die Auswahl von Inhalten der Listbox möglich sein
 
    ActiveSheet.Shapes.Range(Array("ListBox1")).Select
    Selection.Delete
End Sub