Office: Ein Wort in einer Zelle finden mit VBA

Hallo,

ich habe eine Tabelle, in der in Spalte A ein bestimmtes Wort steht, aber immer in einer anderen Zeile.

Jetzt will ich die Zeilennummer herausfinden.
Irgendwie von Zeile 1 in Spalte A solange runter suchen bis er das Wort gefunden hat.
Jemand ne Idee?
Mit FIND???

Mfg

 

Hallo!

Ja, mit "Find".

Code:

Sub xyz()
Dim x As Range
Set x = Range("A:A").Find("Hallo")
If Not x Is Nothing Then MsgBox x.Address
End Sub

 

Vielleicht noch als kleine Ergänzung:

Die Zeile selbst, nach der du fragtest, findest Du danach in "x.row", da ".find" in "x" einen Bereich zurückliefert.

Gruß, Michael

 

Hi Marius,

Code:

Sub Finden()
   Dim lngZeile As Long
   On Error Resume Next
   lngZeile = Application.Match("Hallo", Columns(1), 0)
   On Error GoTo 0
   If lngZeile <> 0 Then MsgBox lngZeile
End Sub

Bis später,
Karin