Hilfe bei Code Änderung
05.10.2004 19:44:47
Dieter
Meine Tabelle3 hat Einträge in 4 Spalten ab A5:D60, in Spalte A= Datum , in Spalte B= Uhrzeit, in den Spalten C u. D= Text.
Ich möchte euch bitten mir mal auf zu zeigen wo der Fehler liegt. Das ganze wird ( oder soll) in einer UF dargestellt werden.
MFG Dieter
Private Sub UserForm_Initialize()
Dim C As Range, lR As Long, arr() As Variant, l As Long
l = -1
With Worksheets("Tabelle3")
lR = .[n65536].End(xlUp).Row
For Each C In .Range("A5:A" & lR)
If C - Date <= 10 And C - Date >= 0 Then
l = l + 1
ReDim Preserve arr(2, l)
arr(0, l) = .Range("B" & C.Row)
arr(1, l) = .Range("C" & C.Row)
arr(2, l) = .Range("D" & C.Row)
End If
Next C
End With
With ListBox1
.ColumnCount = 3
.Column() = arr
End With
End Sub
Anzeige