Problem mit Code wenn leer
14.06.2020 11:02:27
Peter
ich benötige eure Hilfe. Ich habe einen Code zum Befüllen einer Listbox.
Der Fehler liegt darin, dass wenn nichts gefunden wird, dass dann bei "out" die Fehlermeldung Laufzeitfehler 13 typenunverträglich erfolgt.
Könnt ihr mir bitte helfen.
'Kategorien je nach gewähltem Datum
Private Sub CommandButton30_Click()
Dim objSortedList As Object
Dim objArrayList As Object
Dim Arr As Variant
Dim out As Variant
Dim L As Long
Dim z1 As String
z1 = Sheets(ComboBox3.Value).Cells(Rows.Count, 5).End(xlUp).Row
Set objSortedList = CreateObject("System.collections.SortedList")
Set objArrayList = CreateObject("System.collections.ArrayList")
Arr = Sheets(ComboBox3.Value).Range("A1:H" & z1) 'anpassen
For L = 10 To UBound(Arr)
If CDate(Arr(L, 2)) >= TextBox2.Value Then
If CDate(Arr(L, 2)) "" Then
objSortedList(CStr(Arr(L, 5))) = Array((Arr(L, 5)))
End If
End If
End If
Next
objArrayList.addrange objSortedList.getvaluelist
out = WorksheetFunction.Transpose(WorksheetFunction.Transpose(objArrayList.toarray))
With ListBox3
.List = out
.ColumnCount = 1
End With
End Sub
Peter