Excel
Funktion: suche die Position in einer Spalte oder Zeile
Eigentlich
sollte hier die Funktion Vergleich(Suchtext;Suchbereich,1) kommen.
Doch die
Formel führt in vba Excel immer zu einem Problem. Deshalb habe ich hier die
Funktion einfach neu geschrieben mit
=get_First_Match(SuchText;Suchbereich)
Die Funktion,
der Code ist unten zum Kopieren oder als Download in der Anhang Datei
|
Option Explicit On
Public Function get_First_Match(ByVal SearchString, ByVal rangeToSearch) As Integer
'--------< get_First_Match() >------------
'*Sucher das erste Vorkommen in einem Range Spalte Zeile und gib
die Position zurueck
Dim iMatch As Integer
iMatch = -1
Dim iCell As Integer
iCell = 0
Dim cell As Range
For Each cell In
rangeToSearch.Cells
iCell = iCell + 1
If cell.Value Like SearchString Then
iMatch = iCell
- 1
Exit For
End If
Next
get_First_Match =
iMatch
'--------</ get_First_Match() >------------
End Function
|
Und in vba
Editor
