Gruppe
UDF
Problem
Ein Suchbegriff soll in einer mehrspaltigen Tabelle gesucht und der Fundstellenindex soll als Ergebnis zurückgegeben werden.
StandardModule: basMain
Function mVergleich(varSearch As Variant, rng As Range) As String
Dim var As Variant
Dim iCol As Integer
For iCol = 1 To rng.Columns.Count
var = Application.Match(varSearch, rng.Columns(iCol), 0)
If Not IsError(var) Then
mVergleich = var & "," & iCol
Exit Function
End If
Next iCol
End Function