Sub
werteauslesen()
Dim
werteliste()
Dim
spalte
As
Integer
Dim
zeile
As
Integer
Dim
i
As
Integer
ReDim
Preserve
werteliste(0)
werteliste(0) = 0
For
spalte = 1
To
3
If
Worksheets(1).Cells(Rows.Count, spalte).
End
(xlUp).Row > 1
Then
For
zeile = 2
To
Worksheets(1).Cells(Rows.Count, spalte).
End
(xlUp).Row
If
Worksheets(1).Cells(zeile, spalte).Value <>
""
Then
ReDim
Preserve
werteliste(werteliste(0) + 1)
werteliste(0) = werteliste(0) + 1
werteliste(werteliste(0)) = Worksheets(1).Cells(zeile, spalte).Value
End
If
Next
zeile
End
If
Next
spalte
End
Sub