In anderer Tabelle funzt folgender Code problemnlos.
Dim Daten() As Variant, avntValues As Variant 'Ab hier läuft die Prozedur zum Befüllen der ListBox
Dim lng, lngCount As Long
With frmGruppenphase
With Worksheets("Daten")
avntValues = .Range(.Cells(1, 28), .Cells(90, 37)).Value
End With
.ListBox1.ColumnCount = 10
.ListBox1.ColumnWidths = "40;148;35;35;35;35;35;35;35"
.ListBox1.Clear
For lng = LBound(avntValues) To UBound(avntValues)
If Sheets("Daten").Cells(lng, 25) = cbGruppe.ListIndex Then
lngCount = lngCount + 1
ReDim Preserve Daten(0 To 15, 1 To lngCount)
Daten(0, lngCount) = avntValues(lng, 1)
Daten(1, lngCount) = avntValues(lng, 2)
Daten(2, lngCount) = avntValues(lng, 3)
Daten(3, lngCount) = avntValues(lng, 4)
Daten(4, lngCount) = avntValues(lng, 5)
Daten(5, lngCount) = avntValues(lng, 6)
Daten(6, lngCount) = avntValues(lng, 7)
Daten(7, lngCount) = avntValues(lng, 8)
Daten(8, lngCount) = avntValues(lng, 9)
Daten(9, lngCount) = avntValues(lng, 10)
Daten(13, lngCount) = lng
End If
Next lng
.ListBox1.Column = Daten
End With
Aber jetzt in einer neuen Tabelle bekomme ich folgende Fehlermeldung:
Weiss jemand anhand des Codes bereits woran das liegt? Wäre nett wenn ihr wie immer helfen könntet!
Gruß Frank H.