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