Fehler 13
05.11.2017 13:51:27
Jürgen
ärgere mich nun schon einige Zeit mit dem "berühmten" Fehler 13
(Typen unverträglich) rum. Er tritt auf bei der Nutzung von Application.Match
Er kommt aber nur, wenn der Suchwert nicht im Array steht. Wird er gefunden, dann läuft alles...
Hier mein Test-Code:
Sub Durchsuchen()
Dim arr As Variant
Dim iRow As Integer
Dim q As String
q = "irgendwas3"
arr = Range("A1:A16")
iRow = Application.Match(q, arr, 0)
MsgBox "An " & iRow & " .Stelle gefunden"
End Sub
Hier meine Daten im Bereich A1:A16
qwert
fghzu
irgendwas1
qwes
c
fghzu
r
tt
z
u
irgendwas2
we
nnn
rt
zu
g
Darüber gibt es ja viele Beiträge welche man über Google findet.
Habe auch schon viel gelesen aber den Fehler habe ich noch nicht gefunden.
Sicher kann man die Suche auch anders lösen, mir geht es aber darum, warum
Application.Match nicht funktioniert...
Grüß Jürgen