nicht ausgebl. Zeilen in Datenfeld einlesen
12.12.2003 14:07:00
iven_s
habe folgendes 2 Problem.
Ich lese in ein 2d Datenfeld nur nicht ausgeblendete Zeilen, um diese in einer Listbox darzustellen. Mit dem nachfolgenden Code funktioniert das auch ganz gut. Habe aber einfach keine Idee wie ich realisieren kann, dass die ausgeblendeten Zeilen nicht als leere Zeilen ins Datenfeld übernommen werden, sondern gar nicht.
Sub listbox_füllen()
Dim intI As Integer, intJ As Integer
Dim intImax As Integer
intImax = 10
Dim sngMulti(1 To 10, 1 To 35) As String
For intI = 1 To intImax
If Rows(intI + 4).Hidden = False Then
For intJ = 1 To 35
sngMulti(intI, intJ) = Cells(intI + 4, intJ)
Next intJ
Else
End If
Next intI
ListBox1.List = sngMulti
End Sub
Bin für jeden Tip dankbar!
iven_s