ich habe mir über ein UserForm eine Suchfunktion erstellt (mit sehr viel Mühe und Hilfe über dieses Forum).
Jetzt muss ich aber in einer anderen Datei suchen. Suchen muss ich in Spalte d und das Ergebnis soll b+e sein.
Kann mir jemand helfen? Vielen Dank!
Private Sub CommandButton1_Click()
Dim zelle As Range
Dim strZelle As String
ListBox1.Clear
With Range("c2:B10000" & Range("c10000").End(xlUp).Row) 'Suche bis Zeile 10000
Set zelle = .Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
strZelle = zelle.Address
Do
With ListBox1
ListBox1.ColumnWidths = "0 Pt;60 Pt"
.ColumnCount = 3
.AddItem zelle.Address .List(.ListCount - 1, 1) = "Zeile " & zelle.Row _
_
_
_
_
.List(.ListCount - 1, 2) = Cells(zelle.Row, 1)
End With
Set zelle = .FindNext(zelle)
Loop While zelle.Address strZelle
End If
End With
End Sub