Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Suchfunktion (VBA) umkehren

Betrifft: Suchfunktion (VBA) umkehren von: AndréL.
Geschrieben am: 30.08.2004 20:45:39

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
  


Betrifft: AW: Suchfunktion (VBA) umkehren von: WernerB.
Geschrieben am: 31.08.2004 08:22:02

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 !


  


Betrifft: AW: Suchfunktion (VBA) umkehren von: AndréL.
Geschrieben am: 31.08.2004 09:08:00

Hallo Werner,
das gefällt mir sehr gut!!

Herzlichen Dank.

Gruß
AndréL.
PS. Jetzt muß ich mir erst mal diesen genialen Code "reinziehen" :-)


 

Beiträge aus den Excel-Beispielen zum Thema "Suchfunktion (VBA) umkehren"