kleines array problem
20.10.2016 23:01:20
Thomas
.
nach dem ich schon sehr viel hilfe von martin bekommen habe, dachte ich mir ich baue mal eine andere listbox um und fülle sie mit einem array. damit wollte ich mal schauen was ich schon alles gelernt habe. soweit so gut, es ist folgendes rausgekommen
Dim arrData As Variant
Dim intRow As Integer, lngIndex As Integer
~f~
ReDim arrData(1 To 50, 1 To 19) ' Array grösse einstellen
For lngIndex = 1 To 18 ' anzahl der spalten
For intRow = 1 To 50
arrData(intRow, lngIndex) = Worksheets("adressen").Cells(lngIndex, intRow).Text
arrData(intRow, 19) = CStr(intRow)
Next
Next
With ListBox1
.ColumnCount = 19
.List() = Application.Transpose(arrData)
End With
~f~
das ganze funktioniert > fast die listbox wird ohne Fehlermeldung gefüllt aber ich möchte gern mit
~f~
arrData(intRow, 19) = CStr(intRow)
das in die letzte spalte der listbox die zeilennummer steht. Aber ich schaffe es einfach nicht.
ist mein Array zu klein?
kann mir jemand bei dieser übung zeigen was ich vergessen habe ( und ich hab mir von martins macro schon soviel abgeschaut trotzdem muss hier noch was fehlen.
liebe grüsse thomas