Suchfunktion (VBA) umkehren
30.08.2004 20:45:39
AndréL.
ich habe hier im Forum ein hervorragendes Suchmakro gefunden.
Erstellt von Bertram Müller.
Nun möchte ich aber die Suche umkehren, d.h.
jetzt wird das Ergebnis in den Zelle "B18" und "B19" augegeben
wonach im Eingabefeld "B17" gesucht wurde.
Ich wollte nun in den Zellen "B18" und "B19" die Suchparameter
vorgeben und in "B17" das Ergebnis ausgegeben bekommen.
Ich hoffe das es noch besser verstanden wird, wenn man die Datei
anschaut.
Hier schon mal der Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zelle As Range
If Target.Address(False, False) = "B17" Then
With Worksheets(1).UsedRange
Set Zelle = .Find(Range("B17").Value, LookIn:=xlValues)
If Not Zelle Is Nothing Then
Range("B18").Value = Cells(1, Zelle.Column).Value
Range("B19").Value = Cells(Zelle.Row, 1).Value
End If
End With
End If
End Sub
Vielen Dank für Eure Hilfe
Gruß
AndréL.
https://www.herber.de/bbs/user/10317.xls