Array ab A3 füllen
11.02.2008 18:41:00
Wolfgang
der untenstehende Code stammt aus einem UF. Er bewirkt wohl, dass die Spalten A:G in einem Listfeld angzeigt werden. Wie ist der Code zu verändern, damit aus dem Array erst ab A3 die Daten im Listfeld angezeigt werden? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Public Sub Array_fuellen()
Dim lLetzte As Long ' letzte belegte Zeile in Spalte A
Dim lZeile As Long ' For/Next Zeilen-Zähler
Dim lIndex As Long ' der Zeilen-Index im Array
Dim iSpalte As Integer ' der Spalten-Index im Array
With Worksheets("Stand")
lLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 2 To lLetzte
'If Not IsEmpty(Cells(lZeile, 8)) Then ' Spalte H nicht leer?
lIndex = lIndex + 1
ReDim Preserve aTmp(1 To 8, 1 To lIndex)
' um die Formatierungen der Tabellenblatt-Spalten zu übernehmen, '
' darf nicht .Value, sondern es muss .Text verwendet werden. '
For iSpalte = 1 To 7
aTmp(iSpalte, lIndex) = Cells(lZeile, iSpalte).Text
aTmp(8, lIndex) = lZeile
Next iSpalte
'End If
Next lZeile
End With
End Sub