Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
212to216
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
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einlesen der ListBox (VB6) ohne leer Zellen

Einlesen der ListBox (VB6) ohne leer Zellen
04.02.2003 17:19:10
Gerd
Hallo alle im Excelforum

Ich habe über VB6 ein Programm geschrieben
Das ganz gut ist.
Wäre da nicht das einlesen der Spalte ohne leer Zellen.
In Spalte C erscheint zum bestimmten Datum
der Text ( Termin ).
In Spalte F sind die Kundennamen eingetragen.
Wen in Spalte C Termin erscheint möchte ich nur die
Namen der dazugehörigen Kunden in der ListBox einlesen.

Private Sub Kunden_liste()
Dim X%
List2.Clear
For X = 4 To 500
List2.AddItem (Excel.cells(X, 3))
Next
List2.ListIndex = 0
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einlesen der ListBox (VB6) ohne leer Zellen
04.02.2003 17:50:12
Ramses

Hallo Gerd,

aus der Hüfte und ungetestet:

Gruss Rainer



Re: Einlesen der ListBox (VB6) ohne leer Zellen
04.02.2003 18:03:33
Gerd

Hallo Rainer

Leider werden immer noch alle Kunden angezeigt die kein Termin
haben.

Danke Gerd



Re: Einlesen der ListBox (VB6) ohne leer Zellen
04.02.2003 18:26:40
Thomas Risi

Hallo Gerd

Versuch's mal etwa so ...


Option Explicit

Private Sub Kunden_liste1()
    
    Dim X&
    
    List2.Clear
    
    For X = 4 To 500
        If LCase(Excel.Cells(X, 3)) = "termin" Then _
         List2.AddItem Excel.Cells(X, 6)
    Next
    
    List2.ListIndex = 0
    
End Sub

' Oder so ...

Private Sub Kunden_liste2()
    
    Dim X&
    
    List2.Clear
    
    For X = 4 To 500
        If LCase(Excel.Cells(X, 3)) Like "termin" Then _
         List2.AddItem Excel.Cells(X, 6)
    Next
    
    List2.ListIndex = 0
    
End Sub
 

     Code eingefügt mit Syntaxhighlighter 1.15

Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige
Re: Danke
04.02.2003 18:43:33
Gerd

Danke es ist genauso wie ich es brauche.
Gerd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige