Werte suchen & Ergebnis in 2 spalt. Listbox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox MsgBox
Bild

Betrifft: Werte suchen & Ergebnis in 2 spalt. Listbox
von: Peter
Geschrieben am: 16.02.2005 21:06:59
Hallo,
ich möchte den Inhalt der aktiven Zelle aus Tabelle1
in Tabelle2, Spalte2 suchen.
Wird der Wert gefunden, sollen die Werte aus Tabelle2 Spalte3 und Spalte4, der Fundzeile,
in eine 2 spaltige Listbox übernommen werden.
Über Hilfe würde ich mich sehr freuen
Peter


Private Sub cmdSuchen_Click()
   Dim rngFind As Range, rngFirst As Range
   Dim rngAuswahl
   
   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
    'lstFind.AddItem rngFind.Offset(0, 1)     ‘bis hie OK
    
    '  *** FEHLER:-TYPENKONFLIKT
    lstFind.AddItem Range(Cells(rngFind.Row, 3), Cells(rngFind.Row, 4)).Value
      
      Set rngFind = Worksheets("Tabelle2").Columns(2).FindNext(rngFind)
   Loop While Not rngFind Is Nothing And rngFind.Address <> rngFirst.Address
End Sub

Bild

Betrifft: AW: Werte suchen & Ergebnis in 2 spalt. Listbox
von: Christoph M
Geschrieben am: 16.02.2005 21:27:44
Hallo Peter,
du kannst einer mehrspaltigen Listbox "itemweise" keinen Range übergeben.
Hier müssen die ListBoxfelder einzeln angesprochen werden à la:

With lstFind
   For i = 1 To ...
      .AddItem rngFind.Offset(0, 1)
      .List(i, 1) = rngFind.Offset(0, 2)
      .List(i, 2) = rngFind.Offset(0, 3)
      'usw.
   Next
End With

oder etwas übersichlicher:

With lstFind
   For i = 1 To ...
      .AddItem
      .List(i, 0) = rngFind.Offset(0, 1)
      .List(i, 1) = rngFind.Offset(0, 2)
      .List(i, 2) = rngFind.Offset(0, 3)
      'usw.
   Next
End With

Gruß
Christoph

Bild

Betrifft: AW: Danke Christoph
von: Peter
Geschrieben am: 16.02.2005 21:34:47
Danke Dir,
jetzt komm ich weiter.
Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Werte suchen & Ergebnis in 2 spalt. Listbox"