Clever-Excel-Forum

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

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

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

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

Super, funktioniert Danke :)

Excell

Crazy Tom

Excell

Crazy Tom

Excell