Bestimmte Suchfunktion in Excel erstellen

[Excell]

Hi Leute,

Möchte ne Suchfunktion erstellen, bei welchem ein Fenster erscheint, welches den Inhalt einer Zeile und Spalte ausgibt.

Soll heißen: Suche "test" und das Suchergebnis soll den Inhalt in der Spalte G zur dementsprechenden Zeile ausgegeben in der "test" steht.

Hier mein Code:

Sub TitelSuchen(Titel As String)
     Dim C As Object
    
     If Trim(Titel) = "" Then Exit Sub
   
     Set C = ActiveSheet.Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Find(What:=Titel, LookAt:=xlWhole)
   
     If Not C Is Nothing Then
          C.Select
          MsgBox "Ja"
     Else
          MsgBox "Nein"
     End If
End Sub


Pseudocode:

if MsgBox "ja" dann "gib aus" Spalte G "Zeile test"

Hoffe ihr wisst was ich meine...

Viele Grüße und Danke

[Crazy Tom]

Hallo

meinst du so?

Code:

Sub TitelSuchen()
    Dim C As Range
    Dim Titel As String
    Titel = "test"
    Set C = Cells.Find(What:=Titel, LookAt:=xlWhole, LookIn:=xlValues)
    If Not C Is Nothing Then
         MsgBox Cells(C.Row, 7).Value
    Else
         MsgBox "Nein"
    End If
End Sub

MfG Tom

[Excell]

ja, fast.

Der soll halt das Ergebnis einer Spalte in der jeweiligen Zeile ausgeben, in dem "test" steht.

Zum Beispiel soll die Spalte G soll abgefragt werdenm, weil dort die Ergebnisse stehen.
"test" steht aber in der zeile 8.

Also müsste G8 ausgegeben werden..

Sorry, ich bin leider nicht der Excel-Pro..


Vielen Dank und viele Grüße

[Crazy Tom]

Hallo

also noch mal zum Verständnis...

du suchst im Tabellenblatt nach dem Wort "test"
das Wort wird zum Beispiel irgendwo in der Zeile 8 gefunden
und du möchtest dann den Wert aus der Spalte G in Zeile 8 haben?

das macht doch genau das hier

Cells(C.Row, 7).Value

C.Row ist die gefundene Zeile, im Beispiel die 8
und die 7 stellt die Spalte G dar

MfG Tom

[Excell]

Super, funktioniert Danke  :)