ReDim
Gregor
Ich möchte folgende Funktion ausbauen:
Dim n As Double
Dim arrFind()
With Worksheets("Tabelle1")
intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Start = 6 To intLastRow
If .Cells(Start, 10) > 0 Then
n = n + 1
ReDim Preserve arrFind(1 To 7, 1 To n)
arrFind(1, n) = .Cells(Start, 1).Value
arrFind(2, n) = .Cells(Start, 15).Value
arrFind(3, n) = .Cells(Start, 20).Value
arrFind(4, n) = .Cells(Start, 22).Value
arrFind(5, n) = .Cells(Start, 25).Value
arrFind(6, n) = .Cells(Start, 30).Value
arrFind(7, n) = .Cells(Start, 31).Value
End If
Next
End With
With usrErgebnis.lstFind
.ColumnCount = 7
.List = Application.Transpose(arrFind)
End With
usrErgebnis.Show
Ich möchte nun die ReDim-Funktion auf 99 Spalten ausbauen. Im Forum habe ich etwas gefunden wie mehrere Ebenen:
Private Sub LeseDaten()
Dim Ar2, Ar3()
Dim A&, AA&, AAA&
Dim LRowMax As Long
Dim DatumTxT As Date
With Tabelle1
LRowMax = .Cells(.Rows.Count, 53).End(xlUp).Row
If LRowMax 0 Then
ReDim Preserve Ar3(1 To UBound(Ar3), 1 To AAA) 'HIER: _
Redimensionierung von anderer als der zweiten Dimension? (Hanisch, 27.04.2010)
ListBox1.ColumnCount = UBound(Ar3)
ListBox1.List = Application.Transpose(Ar3)
End If
End Sub
Vielen Dank und Gruss
Gregor