Suchfunktion über rng.find() aufbauen
29.10.2003 21:44:56
Christian
ich probiere gerade, mir eine Funktion zu basteln, die nach dem vorkommen eines bestimmten Zeichens in einer frei zu wählenden Tabelle und Spalte sucht und bei einem Treffer die Zelladresse zurückgibt.
Soweit so gut. Das Problem ist nur, ich krieg das ganze nur über eine Subroutine hin, nicht aber in eine Funktion. Der Code anbei:
Sub directSearch(Sheetname As String, searchText As String, searchcol As Integer)
Dim searchRange, matchCell As Range
Dim s As String
Set searchRange = ThisWorkbook.Worksheets(Sheetname).Columns(searchcol)
searchRange.Activate
Set matchCell = Selection.Find(What:=searchText, After:=ActiveCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
If matchCell Is Nothing Then
MsgBox "#NO MATCH"
Else
MsgBox "Found search pattern: " + CStr(searchText) + " in cell: " + _
CStr(matchCell.Address(False, False))
End If
End Sub
Hat jemand eine Idee, ob und wie ich das ganze in einer Funktion realisieren kann?
Danke im Voraus
Christian