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

Zweispaltige ListBox in Do-Schleife einfüllen

Zweispaltige ListBox in Do-Schleife einfüllen
28.05.2005 02:06:36
agapeyev
Hallo Leute,
bitte um Hilfe.
Habe ein Problem beim füllen einer ListBox innerhalb einer Do-Schleife.
Ziel: Bei der Suche nach Suchbegriff aus der TextBox, die gefundene Werte aus der Tabelle2 (Spalte A und Spalte B) in die zweispaltige ListBox einfüllen.
Die Methode "addItem" kann ich nur bei der einspaltigen ListBox benutzen. Versuche ich die ".LIST"-Methode zu verwenden, kriege ich immer nur eine einzelne Zeile. Gibt es vielleicht eine "append"-Anweisung?
Kann mir jemand helfen? :-(
Hier das Coding(Kern):
Set rngFind = ActiveSheet.Cells.Find(what:=txtSuchen.Text, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
'###
Do
'Stop
'lstFind.AddItem rngFind
Zeile = rngFind.Row
lstFind.List = Range(Cells(Zeile, 1), Cells(Zeile, 2)).Value
'___________________________________________________________
Set rngFind = ActiveSheet.Cells.FindNext(After:=rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address rngFirst.Address
'###

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zweispaltige ListBox in Do-Schleife einfüllen
28.05.2005 08:57:03
Hajo_Zi
Hallo ?
ich baue die Datei zum testen nicht nach. ein Beispiel.
Do
Set RaZelle = .Range("B" & Zähler & ":B" & .Range("B1") - 1).Find(What:=Suche)
If Not RaZelle Is Nothing Then
LST_Nummer.AddItem .Range("C" & RaZelle.Row)
LST_Nummer.List(LoZeile, 1) = .Range("B" & RaZelle.Row)
LST_Nummer.List(LoZeile, 2) = .Range("D" & RaZelle.Row)
LST_Zeile.AddItem RaZelle.Row
LoZeile = LoZeile + 1
Zähler = RaZelle.Row + 1
If Zähler &gt .Range("B1") - 1 Then Exit Do
Else
Exit Do
End If
Loop
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige