UF- Was wenn array leer ist?
23.02.2005 21:28:02
Drazen
mit folgendem Code den ich von der Herber-CD habe fülle ich eine ListBox mit Daten, gefiltert nach Zeitraum:
Private Sub FillList()
Dim arr() As Variant
Dim lCounter As Long, iCounter As Integer, iCol As Integer
If cboVon.Value = "" Or cboBis.Value = "" Then Exit Sub
lstNamen.Clear
lCounter = 1
Do Until IsEmpty(Cells(lCounter, 1))
If CDbl(Cells(lCounter, 29)) >= CDbl(CDate(cboVon.Value)) And _
CDbl(Cells(lCounter, 29)) <= CDbl(CDate(cboBis.Value)) Then
ReDim Preserve arr(0 To 37, 0 To iCounter)
For iCol = 1 To 38
arr(iCol - 1, iCounter) = Cells(lCounter, iCol)
Next iCol
iCounter = iCounter + 1
End If
lCounter = lCounter + 1
Loop
lstNamen.Column = arr
End Sub
Man legt also in cboVon und cboBis den Zeitraum fest für den man die Daten laden will. Klappt auch prima, was aber wenn es keine Daten zu laden gibt weil es keine Datensätze im Februar gibt, dann gibt der Code einen Fehler in der letzten Zeile aus ("lstNamen,Column = arr"). Kann man das irgendwie umgehen, z.B. mit einer MsgBox in der drin steht, dass es für diesen Zeitraum keine Daten gibt?
Grüsse
Drazen