gefunden Zeile direkt in Listbox anzeigen
14.04.2004 14:04:23
Fabio
ist es möglich, die Gefundene Zeile auch direkt in der Listbox anzeigen zu lassen? (d.h. ohne den Umweg über das kopieren und dann zugriff über RowSource)
was ich letztenendlich will, ist dass über den gefundenen Suchbegriff, die ganze Zeile anzeigen. ob diese in einer Listbox oder sonst irgendwie angezeigt wird, ist letztlich wurscht...
Private Sub CommandButton1_Click()
Dim Suchbegriff As Variant
Dim c As Range
Suchbegriff = Cells(60000, 1)
Set c = Columns(9).Find(Suchbegriff)
If Not c Is Nothing Then
Rows(c.Row).Copy _
Destination:=Worksheets("Tabelle1").Rows("60005:60005")
ListBox1.RowSource = "i60005:j60005"
Else
MsgBox Suchbegriff & " wurde nicht gefunden!"
End If
End Sub
Danke für jeden Tip
Grüße FABIO
Anzeige