Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Excel Funktion: suche die Position in einer Spalte oder Zeile

26.11.2019 (👁139)

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