Ausgangssituation
Ich möchte meine gefundenen Daten von Tabelle2 in der Listbox ausgeben. Soweit so gut, das klappt. Jedoch sollte das Array Out in Zeile 2 der Listbox beginnen. Da ich in der ersten Zeile fixe Werte habe, die ich beim Öffnen in der Listbox anzeige. Mein Problem ist, dass mir das jetzige Array Out die erste Zeile überschreibt.
Deshalb meine Frage: Wie kann ich ein Array Out in die zweite Zeile der Listbox schreiben ?
Mein Code :
Private Sub cmdSuchenDecke_click()
Dim i As Long, k As Long, m As Long
Dim arr As Variant
Dim arrOut() As Variant
Dim blnGefunden As Boolean
If cmbDeckeGeschoss.Value = "" Then Exit Sub
With Worksheets("Tabelle2")
arr = Sheets("Tabelle4").Range("A2:Q200")
ListBox2.List = arr
End With
UserForm1.ListBox2.Clear
UserForm1.ListBox2.ColumnCount = UBound(arr, 2)
For i = 1 To UBound(arr)
For k = 1 To UBound(arr, 2)
If InStr(arr(i, k), cmbDeckeGeschoss.Value) > 0 Then
blnGefunden = True
Exit For
End If
Next k
If blnGefunden Then
m = m + 1
ReDim Preserve arrOut(1 To UBound(arr, 2), 1 To m)
For k = 1 To UBound(arr, 2)
arrOut(k, m) = arr(i, k)
Next
blnGefunden = False
End If
Next i
If m 0 Then ListBox2.Column = arrOut
End Sub
Danke für die Hilfe