Bitte um Rat - Code zu Redim Preserve
20.08.2017 17:20:28
Stefan
Ich bitte euch um eine kleine Hilfe.
Ich habe eine Inventarliste zu meinem Haushalt. Diese möchte ich nach Kategorien wie "Haushalt" oder "Leben" filtern können. Die betreffenden Zeilen sollen in ein Array geladen werden.
Das klappt auch beim ersten Suchtreffer.
Wenn beim zweiten Treffer das Array um eine Dimension nach unten verändert werden soll, kommt der Fehler "Index außerhalb des gültigen Bereiches".
Bitte, was übersehe ich ?
Sub LVFiltern(strSuche As String)
Dim strSelection() As String
Dim intAnzahl As Integer
Dim i As Integer
Dim z As Integer
Dim x As Integer
Dim y As Integer
intAnzahl = 0
With tblHaushalt.ListObjects("tabHaushalt")
For i = 2 To .Range.Rows.Count
If .Range(i, 3).Value = strSuche Then
intAnzahl = intAnzahl + 1
ReDim Preserve strSelection(1 To intAnzahl, 1 To .Range.Columns.Count)
For z = 1 To .Range.Columns.Count
strSelection(intAnzahl, z) = .Range(i, z)
Next z
End If
Next i
End With
End Sub