Hallo zusammen,
ich habe eine Spalte (Range 1:100) im Sheet 2. In dieser Spalte steht je Zelle 1 Zeichen (arabisch).
Nun möchte ich jede Zelle in meinem Sheet 1 in Spalte A mit den 100 Zeichen prüfen, ob das/eins der Zeichen aus Sheet 2 enthalten ist.
Mit meinen minimalistischen VBA Kenntnissen und Kollege goog-le hab ich folgendes gebaut:
Im Sheet 1 habe ich sodann in Spalte B "zeichenfilter(a1)" eingefügt und nach unten kopiert.
Ich bekomme leider nur ein "#WERT!"-Fehler.
Wenn ich mir das Array anschaue (z.B. Ausgabe in ein Sheet), sind die 100 Zeichen drin.
Kann mir jemand einen Schubs geben!?
Vielen Dank und viele Grüße
PeRe
ich habe eine Spalte (Range 1:100) im Sheet 2. In dieser Spalte steht je Zelle 1 Zeichen (arabisch).
Nun möchte ich jede Zelle in meinem Sheet 1 in Spalte A mit den 100 Zeichen prüfen, ob das/eins der Zeichen aus Sheet 2 enthalten ist.
Mit meinen minimalistischen VBA Kenntnissen und Kollege goog-le hab ich folgendes gebaut:
Visual Basic:
Function Zeichenfilter(varRange As Variant)
Dim i As Integer
Dim arrVerboten As Variant
Dim Teil As Variant
arrVerboten = Worksheets("Arabisch").Range("a1:a100").Value
For i = 0 To UBound(arrVerboten)
Teil = InStr(varRange, arrVerboten)
'Teil = InStr(varRange, arrVerboten(i)) --> habe ich auch schon versucht
Next
Zeichenfilter = Teil
End Function
Im Sheet 1 habe ich sodann in Spalte B "zeichenfilter(a1)" eingefügt und nach unten kopiert.
Ich bekomme leider nur ein "#WERT!"-Fehler.
Wenn ich mir das Array anschaue (z.B. Ausgabe in ein Sheet), sind die 100 Zeichen drin.
Kann mir jemand einen Schubs geben!?
Vielen Dank und viele Grüße
PeRe