Excel Liste mit Datenüberprüfung anlegen und anschließend selektieren ????

Private Sub ComboBox23_Click()
    Dim i As Byte
    i = ComboBox23.ListIndex
    ComboBox23.RemoveItem (i)
End Sub

Private Sub Worksheet_Activate()
    ComboBox23.AddItem "Haus"  
    ComboBox23.AddItem "Scheune"  
    ComboBox23.AddItem "Hütte"  
    ComboBox23.AddItem "Serverraum"  
End Sub

Option Explicit
Option Compare Text

'Mit dieser Function wird die temporäre Mitarbeiterliste nach jeder DropDown-Änderung automatisch angepasst  
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oWks As Worksheet, oCell As Range, oFound As Range
    Dim sName As Variant, iOffset As Long, sFormula1 As String
    
    On Error Resume Next
    For Each oCell In Target
        sFormula1 = oCell.Validation.Formula1
        
        If sFormula1 Like "=Indirekt(TempBezug)" Then  
            Set oWks = GetSheet("Mitarbeiter")  
            
            If Not oWks Is Nothing Then
                Application.EnableEvents = False
                Range("TempListe").CurrentRegion.ClearContents  
                For Each sName In oWks.Range("Mitarbeiter").Value  
                    Set oFound = ActiveSheet.UsedRange.Find(sName, LookIn:=xlValues, LookAt:=xlWhole)
                    
                    If oFound Is Nothing Then
                        Range("TempListe").Offset(iOffset, 0).Value = sName:  iOffset = iOffset + 1  
                    End If
                Next
                Range("TempBezug").Value = Range("TempListe").CurrentRegion.Address  
                Application.EnableEvents = True
            End If
            Exit For
        End If
    Next
    On Error GoTo 0
End Sub

'Diese Function gibt das Sheet-Object des übergebenen Zell-Namens zurück,  
'sofern die erforderlichen Zell-Namen im Namens-Manager definiert sind.  
Public Function GetSheet(ByRef sCellName) As Worksheet
    Dim sName As Variant, bError As Boolean
    
    On Error Resume Next
    With ThisWorkbook
        For Each sName In Array("Mitarbeiter", "TempListe", "TempBezug")  
            If IsError(.Names(sName)) Then
                bError = True:  Exit For
            End If
        Next
        
        If Not bError Then
            Set GetSheet = Sheets(Split(Mid(.Names(sCellName).Value, 2), "!")(0))  
        End If
    End With
    On Error GoTo 0
End Function