Hallo Leute,
ich habe ein Problem. Wie kann ich in VBA(Excel) Arrays an Funktionen übergeben? Ich bekomme ständig einen Fehler beim Kompilieren "Unverträglicher Typ: Datenfeld oder benutzerdefinierter Typ erwartet". Fehler in Zeile 34.
Was mache ich falsch?
ich habe ein Problem. Wie kann ich in VBA(Excel) Arrays an Funktionen übergeben? Ich bekomme ständig einen Fehler beim Kompilieren "Unverträglicher Typ: Datenfeld oder benutzerdefinierter Typ erwartet". Fehler in Zeile 34.
VB.NET-Quellcode
- Public Function MyInStr(myString As String, array1() As String) As Boolean
- Dim elem As String
- For Each elem In array1
- If myString.Contains(elem) Then MyInStr = True
- Next
- MyInStr = False
- End Function
- Sub Modules()
- Dim wks1, wks2 As Worksheet
- Dim i, j, smt_End, mstr_End As Long
- Dim partnum(), partnum2() As String
- Set wks1 = Worksheets("SmartFile Data")
- Set wks2 = Worksheets("Tabelle1")
- mstr_End = wks2.Cells(wks2.Rows.Count, "AB").End(xlUp).Row
- ReDim partnum(1 To mstr_End)
- ReDim partnum2(1 To mstr_End)
- For i = 0 To mstr_End
- partnum(i) = Trim(wks2.Cells(i + 12, 3).Value)
- ' partnum2(i) = Trim(wks2.Cells(i + 12, 4).Value)
- Next i
- Debug.Print Join(partnum, vbLf)
- smt_End = wks1.Cells(wks1.Rows.Count, "J").End(xlUp).Row
- For j = 6 To smt_End
- If MyInStr(wks.Cells(j, 16).Value, partnum) = True Then wks1.Cells(j, 68).Value = wks2.Cells(i, 8).Value
- Next j
- End Sub
Was mache ich falsch?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FiLA85“ ()