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

Suchfunktion (VBA) umkehren

Suchfunktion (VBA) umkehren
30.08.2004 20:45:39
AndréL.
Hallo,
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

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

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion (VBA) umkehren
WernerB.
Hallo André,
wie gefällt Dir das?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim SuBe1 As Range, SuBe2 As Range
If Target.Address(False, False) = "B19" Then
If Range("B18").Text = "" Or Range("B19").Text = "" Then Exit Sub
With Worksheets(1).Range("A1:M16")
Range("B17").ClearContents
Set SuBe1 = .Find(Range("B18").Value, LookIn:=xlValues)
If SuBe1 Is Nothing Then
MsgBox "Suchbegriff 'Monat' nicht gefunden !"
Exit Sub
End If
Set SuBe2 = .Find(Range("B19").Value, LookIn:=xlValues)
If Not SuBe2 Is Nothing Then
Range("B17").Value = Cells(SuBe2.Row, SuBe1.Column).Value
Set SuBe1 = Nothing
Set SuBe2 = Nothing
Else
Set SuBe1 = Nothing
MsgBox "Suchbegriff 'Jahr' nicht gefunden !"
End If
End With
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Suchfunktion (VBA) umkehren
AndréL.
Hallo Werner,
das gefällt mir sehr gut!!
Herzlichen Dank.
Gruß
AndréL.
PS. Jetzt muß ich mir erst mal diesen genialen Code "reinziehen" :-)

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige