Auf thisworkbook Tabelle zugreifen

Sub changeListsKorr(obtn As Control)
Set WB_Problemliste = Workbooks.Open(strZiel)
Select Case obtn.Caption
Case "A"
sErsteller = "A"
sAs = "AS_EF_A"
sFehler = "Fehler_EF_A"
Bereich = "A"
Worksheets(Bereich).Activate
showlastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(showlastrow, 1).Activate    'letzte zeile Aktivieren, damit man die  _
_
letzten Einträge sieht
Case "GB"
sErsteller = "MA_GB"
sAs = "AS_GB"
sFehler = "Fehler_GB"
Bereich = "GB"
Worksheets(Bereich).Activate
showlastrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(showlastrow, 1).Activate              'letzte zeile Aktivieren, damit man die  _
_
_
letzten Einträge sieht
Case Else
End Select
' Hier kommt dann das Problem. Er findet die RowSource nicht mehr.
With ThisWorkbook
UserForm_User.ComboBox_Ersteller.RowSource = sErsteller 'Liste neubefüllen
'UserForm_User.ComboBox_Ersteller.ListIndex = -1
End With
End Sub