Dim varEinheit As Variant
    Dim lngLetztes As Long
    With Sheets("Stammdaten - Einheiten")
        lngLetztes = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set varEinheit = .Range("H2:H" & lngLetztes)
    End With
   AuswahlEinh.List = varEinheit.Value