vba istfehler
28.09.2012 09:51:26
Rümenapp
da die Filter nur 2 Kriterien zu lassen, versuche ich eine Funktion zu schreiben, die diese Aufgabe übernimmt.
In A1:An stehen meine Suchkriterien, zb blau, grün, gelb, rot, ...
In B1 steht der zu prüfende Text zb "Das Wetter ist schön" oder "Der Himmel ist blau"
In C1 steht meine Formel =enthält(Matrix(A1:An),Text(B1))
Meine Funktion:
Function enthält(matrix, text)
Dim zelle As Range
wert = 0
For Each zelle In matrix
On Error GoTo weiter
If Application.WorksheetFunction.Search(zelle, text, 1) > 0 Then
wert = 1
Exit For
End If
weiter:
Next
enthält = wert
End Function
Problem: die Funktion läuft einmal durch, nach dem 2 Durchlauf bricht sie auf jeden Fall ab, entweder mit "1" oder "#WERT"Ich hätte gerne "1" oder "0"!
iserror habe ich probiert - klappt nicht (nicht verstanden)
Ich verstehe auch nicht warum "on error" nur 1x funktioniert?
Wer kann helfen? Bitte mit Erklärung.
Vielen Dank
Marcus