私は、以下の機能を持っている:VBA機能 - 引数オプションではありません
Function EntryInTable(stringToBeFound As String, arr1 As Variant) As Integer
EntryInTable = 0
Rem default return value if value not found in array
For i = LBound(arr1, 1) To UBound(arr1, 1)
If StrComp(stringToBeFound, arr1(i, 1), vbTextCompare) = 0 Then
EntryInTable = EntryInTable + 1
Exit For
End If
Next i
End Function
は、アレイは、次の範囲のデータが含まれています
Dim arr() As Variant
Set r3 = Sheets("Konten Tabelle").Range("Tabelle4[[Konto]:[Gruppe]]")
i = r3.Rows.Count
Rem Datenfeld für die Konten-Tabelle
ReDim arr(1 To i, 1 To 2)
For j = 1 To i
arr(j, 1) = r3.Cells(j, 1)
arr(j, 2) = r3.Cells(j, 2)
Next
機能自体は正常に動作するようです、しかし私を呼び出すときにエラー引数を受け取るオプションはありません:
Call EntryInTable(Target.Value, arr)
If EntryInTable > 0 Then
Debug.Print EntryInTable
End If
私はこのwiを含む多くのフォーラムを検索しました成功する。誰にもお返事ありがとうございます。
arrには何が含まれていますか? – inarilo
申し訳ありませんが、質問を更新しました。 – Dooey