Office: (Office 2016) Listboxen werden im Modul nicht erkannt

Guten Tag Liebe Experten

Ich stehe wieder einmal auf dem Schlauch und brauche eure Hilfe.

Mein Problem ist eigentlich einfach und ich nehme an, dass Ihr den Fehler sofort erkennen werdet. Leider sehe ich Ihn nicht und bin daher langsam aber sicher im roten Bereich meiner Geduld angelangt.

Zur Ausgangslage:
Ich habe in einem Exceldokument eine Tabelle erstellt mit dem Namen Steuerung. In dieser Tabelle finden sich vier Listboxen die ich nun beim öffnen der Datei befüllen will.
Das ganze mache ich in einem Modul in der Prozedur "InitElemente".

der Code dazu sieht so aus:

Code:

Option Explicit
Dim wboQuelle As Workbook
Dim wshSteuerung As Worksheet
Dim wshMatrix As Worksheet

Public Sub InitElemente()
    Dim arrKunden() As String
    Dim arrJahr() As String
    Dim i As Integer
    Dim intZaehler As Integer
    
    Set wboQuelle = ThisWorkbook
    Set wshSteuerung = wboQuelle.Worksheets("Steuerung")
    Set wshMatrix = wboQuelle.Worksheets("Matrix_Faktoren")
    
    ' Bildschirmaktualisierung aus
    Application.ScreenUpdating = False
    
  
    intZaehler = 1
    For i = 1 To 50
        If wshMatrix.Cells(4, intZaehler).Value = "" Then
            Exit For
        Else
            ReDim Preserve arrJahr(1 To i)
            arrJahr(i) = wshMatrix.Cells(4, intZaehler)
            intZaehler = intZaehler + 5
        End If
    Next i
    
    intZaehler = 7
    For i = 1 To 50
        If wshMatrix.Cells(intZaehler, 1).Value = "" Then
            Exit For
        Else
            ReDim Preserve arrKunden(1 To i)
            arrKunden(i) = wshMatrix.Cells(intZaehler, 1)
            intZaehler = intZaehler + 30
        End If
    Next i
    
    With wshSteuerung
         .lboNachJahr.List = arrJahr            [COLOR="#FF0000"]<--- Elemete werden nicht erkannt[/COLOR]
         .lboNachKunde.List = arrKunde      [COLOR="#FF0000"]<--- Elemete werden nicht erkannt[/COLOR]
         .lboVonJahr.List = arrJahr              [COLOR="#FF0000"]<--- Elemete werden nicht erkannt[/COLOR]
         .lboVonKunde.List = arrKunde      [COLOR="#FF0000"]<--- Elemete werden nicht erkannt[/COLOR]
    End With
    
    ' Bildschirmaktualisierung ein
    Application.ScreenUpdating = True
    
End Sub

Die Listboxen werden nicht als Element dieses Tabellenblattes erkannt. Wenn ich aber eine Überwachung auf die Variable wshSteuerung setzte und den Code schrittweise abhandle, sind diese Objekte vorhanden.



Ausserdem kann ich diese im genannten Tabellenblatt selbst Problemlos ansteuern.
Was mache ich hier falsch?

Danke schon im Voraus für eure Mühe.

Gruss Roland