ListView Grenzen

Forumthread: ListView Grenzen

ListView Grenzen

24.02.2006 17:50:43

Peter

Hallo Excel Experten,
ich versuche mich zum ersten Mal an einem ListView.
Meine Frage hierzu ist: Gibt es eine Grenze des Fassungsvermögens eines ListView?
Bei mir macht das Befüllen nach 18 Zeilen Schluss und sagt Laufzeitfehler '35600' Indexgrenze überschritten
Oder kann ich irgenwo drehen, um mehr Zeilen (Daten) einstellen zu können?
Für einen guten Tipp schon jetzt vielen Dank im voraus.
Gruß Peter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ListView Grenzen

24.02.2006 18:12:01

Horst
AW: ListView Grenzen

24.02.2006 20:22:11

Peter
AW: Problem gelöst

24.02.2006 21:00:17

Peter

AW: ListView Grenzen

24.02.2006 18:12:01

Horst

Hi,
poste mal den Code mit dem du füllst.
mfg Horst

AW: ListView Grenzen

24.02.2006 20:22:11

Peter

Hallo Horst,
hier ist der Code-Auszug:

With ListView1
      .ColumnHeaders.Add , , "Vorname", 70
      .ColumnHeaders.Add , , "Nachname", 85
      .ColumnHeaders.Add , , "Namensergänzung", 50
      .ColumnHeaders.Add , , "Strasse und Hausnummer", 100
      .ColumnHeaders.Add , , "Land", 25
      .ColumnHeaders.Add , , "Pstlz", 40
      .ColumnHeaders.Add , , "Ort", 90
      .ColumnHeaders.Add , , "Ortszusatz", 50
      .ColumnHeaders.Add , , "Reg", 25
      .View = lvwReport

      iLiViIndx = 1

      Do While RecSet.EOF = False

         If RecSet.Fields.Item(0).Value <> "" Then
            .ListItems.Add , , RecSet.Fields.Item(0).Value
         End If
         If RecSet.Fields.Item(1).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(1) = RecSet.Fields.Item(1).Value
         End If
         If RecSet.Fields.Item(2).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(2) = RecSet.Fields.Item(2).Value
         End If
         If RecSet.Fields.Item(3).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(3) = RecSet.Fields.Item(3).Value
         End If
         If RecSet.Fields.Item(4).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(4) = RecSet.Fields.Item(4).Value
         End If
         If RecSet.Fields.Item(5).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(5) = RecSet.Fields.Item(5).Value
         End If
         If RecSet.Fields.Item(6).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(6) = RecSet.Fields.Item(6).Value
         End If
         If RecSet.Fields.Item(7).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(7) = RecSet.Fields.Item(7).Value
         End If
         If RecSet.Fields.Item(8).Value <> "" Then
            .ListItems(iLiViIndx).SubItems(8) = RecSet.Fields.Item(8).Value
         End If
         iLiViIndx = iLiViIndx + 1
         If iLiViIndx > 18 Then Exit Do
         RecSet.MoveNext
      Loop
   End With
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.

AW: Problem gelöst

24.02.2006 21:00:17

Peter

wen es interessiert:
Wenn die erste Spalte nicht belegt ist (ohne Inhalt bleibt, weil das Datenbankfeld keinen Inhalt hat) läuft es an die Wand. Man sollte mindestens einen Punkt "." übertragen, dann läuft das Einfügen.
Viele Grüße Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: ListView Grenzen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread