Textsuche mit Rückgabe der Zell-Adresse
28.09.2004 17:29:19
Tommy
ich habe versucht mir mit Hilfe der Find-Funktion ein Makro zu bauen. Leider bin ich zu keinem Ergebnis gekommen. Kann mir vielleicht einer weiterhelfen, weshalb folgendes Makro kein Ergebnis liefert?
Public
Function GetAddress(ByVal strFind As String, ByVal rngRange As Range)
Dim rngFind As Range
Set rngFind = Range(rngRange).Find(What:=strFind, _
LookAt:=xlPart, _
SearchOrder:=xlByRows)
If Not rngFind Is Nothing Then
GetAddress = rngFind.Address
End If
End Function
Es ist dabei sichergestellt, dass in meiner Tabelle jedes gesuchte Wort garantiert nur einmal auftaucht.
Die aus dem Makro gelieferte Zell-Adresse würde ich dann ganz gerne mit der Funktion "Bereich.Verschieben" verknüpfen. Ist sowas möglich?
Es würde mich sehr freuen, wenn mir einer weiterhelfen könnte!
MfG
Anzeige