Sub ExecuteListView(varSearch As String, Tabelle As List, Listview_Service As CustomListView)
Loggen.cl("Execute List View, Main: " & varSearch)
Dim varCols, varColsUp As String
Listview_Service.Clear
For i = 0 To Tabelle.Size - 1 'simple begrenzung mit min funktioniert nicht, da auch die Berge drauf zugreifen
varCols = Tabelle.Get(i)
varColsUp=varCols.ToUpperCase
If varColsUp.Contains(varSearch.ToUpperCase) Then Listview_Service.AddTextItem(varCols,varCols)
Next
End Sub