Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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.
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige