Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

AddItem

AddItem
05.09.2003 13:20:19
Bernd
Hi,

habe folgende Prozedur:

Sheets("Termine").Select
   For i = 2 To 200
    frmTermin.ListBox1.AddItem (Workbooks("Terminer.xls") _
    .Sheets("Termine") _
    .Cells(i, 6).Value)
   Next



Funkt ja auch, aber wie muss ich die Prozedur ändern, damit ich nicht "To 200" sondern eben bis zur letzten beschriebenen Zelle habe?

Hatte folgendes versucht, aber die Listbox wurde nicht gefüllt :-(

intY = 2
    With Sheets("Termine")
        .Select
        Do Until .Cells(intY, 1) = ""
            intY = intY + 1
                frmTermin.ListBox1.AddItem (Workbooks("Terminer.xls") _
    .Sheets("Termine") _
    .Cells(i, 6).Value)

        Loop
            '.Cells(intY, 1).Select
    End With



Bitte um Hilfe...

Danke

Bernd

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: AddItem
05.09.2003 13:32:13
WernerB.
Hallo Bernd,

versuche dies:

For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe dazu Forums-FAQ)!
AW: AddItem
05.09.2003 13:45:15
Bernd
Hi Werner,

danke dafür... da hilft's

Bernd

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige