#

Download:

Datei 1: Demo_Suche_Position_in_Zellbereich.xlsm

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

Mobile

.

0123movie.net