Hallo Excelfreunde,
ich möchte gern eine Listbox mit Daten füllen. Hierbei möchte ich aber nur die sichtbaren Zeilen einlesen. Leider klappt es nicht so. Ich bekomme immer den Fehler
" Fehler if block ohne end if ". Egal wo ich das end if einfüge.
Kann sich dies mal jemand anschauen und mir zeigen was ich noch falsch habe?
habt schon mal rechtvielen dank für euere Hilfe.
mfg thomas
iRow = wksBlatt.Cells(Rows.Count, "A").End(xlUp).Row
For iRowU = 2 To lngLast
If Cells(iRowU, "A").EntireRow.Hidden = False Then
ReDim Preserve arr(0 To 8, 0 To iRowU)
arr(0, iRowU) = wksBlatt.Cells(iRow, 1)
arr(1, iRowU) = wksBlatt.Cells(iRow, 2)
arr(2, iRowU) = wksBlatt.Cells(iRow, 3)
arr(3, iRowU) = Format(wksBlatt.Cells(iRow, 4), "hh:mm")
arr(4, iRowU) = wksBlatt.Cells(iRow, 5)
arr(5, iRowU) = wksBlatt.Cells(iRow, 6)
arr(6, iRowU) = Format(wksBlatt.Cells(iRow, 7), "hh:mm")
arr(7, iRowU) = wksBlatt.Cells(iRow, 8)
arr(8, iRowU) = wksBlatt.Cells(iRow, 9)
'End If
iRowU = iRowU + 1
End If
Next iRowU
'
End If
UserForm1.ListBox2.Column = arr