Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

AddItem

Forumthread: 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
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige