Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

ersatz für "LIKE" aus VBA als Zellfunktion





Frage

Hallo alle Excel-Freunde, ihr kennt hoffentlich alle die Funktion LIKE in VBA. Meine Frage ist nun: Gibt es eine Zellfunktion in Excel die den selben Fukntionsweise hat oder muss ich diese doch erst selbst schreiben. Vielen Dank für die Antwort. MfG Tino

Antwort 1 von powder

So,

da noch keiner geantwortet hat scheint es mir keine Zellfunktion zu geben.
Dann muss ich es doch programmieren.

Dies ist eine mögliche Lösung.
Sicher noch nicht perfekt aber meine Vorstellung erfüllt es.


Option Explicit
Option Compare Text   

Function Enthält(Suchkriterium As Range, suchmatrix As Range, spalte As Long)
    Application.Volatile

Dim i%
    
    If suchmatrix.Columns.Count < spalte Then GoTo Fehler
    
    For i = 1 To suchmatrix.Rows.Count
        If Suchkriterium.Value Like "*" & suchmatrix.Cells(i, 1).Value & "*" Then
            Enthält = suchmatrix.Cells(i, spalte).Value
            Exit Function
        End If
        
    Next i
    
    Exit Function
Fehler:
    Enthält = "#Error"
End Function



Vielleicht hilft es ja jemanden.

Noch einen schönen Tag.

viele Grüße
Tino