mit folgendem Code lese ich Daten in eine ListBox ein.
Nach dem 8. Eintrag hört es allerdings auf ? Es kommt "ungültiger Eigenschaftswert"
Per Mauszeiger(Quickinfo) sind aber bis List(zeile, 13)die richtigen Daten eingelesen.
Ist das einlesen begrenzt?
Private Sub interneZg()
Dim intern, zeile, gefunden
intern = interneNr
zeile = 0
Sheets("Auftrag").Select
With Worksheets("Auftrag").Range("i10:i3000")
Set c = .Find(intern, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
gefunden = c.Row
ListBox1.AddItem gefunden
ListBox1.ColumnCount = 14
ListBox1.ColumnWidths = "80;55;55;20;60;20;100;70;40;40;40;75;40;70"
ListBox1.List(zeile, 0) = Cells(gefunden, 1)
ListBox1.List(zeile, 1) = Cells(gefunden, 3)
ListBox1.List(zeile, 2) = Cells(gefunden, 4)
ListBox1.List(zeile, 3) = Cells(gefunden, 5)
ListBox1.List(zeile, 4) = Cells(gefunden, 6)
ListBox1.List(zeile, 5) = Cells(gefunden, 7)
ListBox1.List(zeile, 6) = Cells(gefunden, 8)
ListBox1.List(zeile, 7) = Cells(gefunden, 9)
ListBox1.List(zeile, 8) = Cells(gefunden, 10)
ListBox1.List(zeile, 9) = Cells(gefunden, 11)
ListBox1.List(zeile, 10) = Cells(gefunden, 12)
ListBox1.List(zeile, 11) = Cells(gefunden, 25)
ListBox1.List(zeile, 12) = Cells(gefunden, 26)
ListBox1.List(zeile, 13) = Cells(gefunden, 27)
zeile = zeile + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Gruß
otto