moechte gerne meinen Code so anpassen das der ListCount stimmt, bekomms aber nicht hin.
Wuerde mich freuen wenn mir jemand dabei helfen koennte.
1.
- Pruefe den Bereich CAx:CMx (13 Spalten)
- ist eine Zelle befuellt schreibe alle Daten von CAx:CMx in die erste Zeile der Listbox (auch 13 Spalten)
- ListCount = 1 (weiter mit 2.)
- sind alle Zellen von CAx:CMx leer, dann Ende, Listbox leer.
2.
- pruefe den naechsten Bereich (CNx:CZx)
- ist eine Zelle befuellt schreibe alle Daten von CNx:CZx in die zweite Zeile der Listbox
- ListCount = 2 (weiter mit 3.)
- sind alle Zellen von CNx:CZx leer, dann Ende, Listbox nur 1 Zeile und ListCount = 1.
3. pruefe den naechsten Bereich (DAx:DMx)
-....
With Sheets("Complaint&Return")
ArrayData = .Range("CA" & lngR & ":CN" & lngR, .Cells(lngR, .Columns.Count).End(xlToLeft))
End With
With ListBox150
.ColumnCount = 13
ReDim Preserve NewArray(1 To .ColumnCount, 1 To UBound(ArrayData, 2))
For nCount = 1 To UBound(ArrayData, 2)
If .ColumnCount = nCol Then nCol = 0
nCol = nCol + 1
If nCol = 1 Then nRow = nRow + 1
NewArray(nCol, nRow) = ArrayData(1, nCount)
Next
ReDim Preserve NewArray(1 To .ColumnCount, 1 To nRow)
.List = Application.Transpose(NewArray)
End With
Gruss
abu