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

Suchergebnis in mehrsp. Listbox Nachfrage

Suchergebnis in mehrsp. Listbox Nachfrage
16.02.2005 23:31:38
Peter
Hallo,
muß doch nochmal fragen.
Ich hatte heute Hilfe erhalten komme jedoch nicht klar.
Wie man die gefundenen Werte in die mehrsp. Listbox verteilt?
(siehe Markierung ">>>>" )
Peter

Private Sub CmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Dim rngAuswahl
Dim i
ListBox1.Clear
rngAuswahl = ActiveCell.Value
Set rngFind = Worksheets("Tabelle2").Columns(2).Find(rngAuswahl, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
ListBox1.AddItem rngFind.Offset(0, 1)
'>>>>With ListBox1
'>>>>For i = 1 To ?
'>>>>  .AddItem
'>>>>  .List(i, 0) = rngFind.Offset(0, 0)
'>>>>  .List(i, 1) = rngFind.Offset(0, 1)
'>>>>  .List(i, 2) = rngFind.Offset(0, 2)
'>>>> Next
'>>>>End With
Set rngFind = Worksheets("Tabelle2").Columns(2).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Suchergebnis in mehrsp. Listbox Nachfrage
16.02.2005 23:53:51
Josef
Hallo Peter!
Einmal .AddItem genügt!
Ausserdem musst du den Spaltenindex angeben.
Ungetestet:

Private Sub CmdSuchen_Click()
Dim rngFind As Range, rngFirst As Range
Dim rngAuswahl
Dim i As Integer, n As Integer
ListBox1.Clear
rngAuswahl = ActiveCell.Value
Set rngFind = Worksheets("Tabelle2").Columns(2).Find(rngAuswahl, lookat:=xlPart, LookIn:=xlValues)
If rngFind Is Nothing Then
MsgBox "Kein Suchbegriff gefunden!"
Exit Sub
End If
Set rngFirst = rngFind
Do
With ListBox1
.AddItem rngFind
.List(n, 1) = rngFind.Offset(0, 1)
.List(n, 2) = rngFind.Offset(0, 2)
n = n + 1
End With
Set rngFind = Worksheets("Tabelle2").Columns(2).FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Danke -jetzt funktioniert es
17.02.2005 00:04:59
Peter
Danke für die schnelle Hilfe.
Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige