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.
Vielleicht hilft es ja jemanden.
Noch einen schönen Tag.
viele Grüße
Tino
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