Private Function Import_USpez(ByVal lk As Integer, ByVal j As Integer) As _
      String
        Dim strUSpez As String = xlBlatt.Range("A34").Value
        Dim uspez() As String = strUSpez.Split(";")
        If Not strUSpez = "" Then
            For i As Integer = 0 To uspez.Length - 1
                Dim usp() As String = uspez(i).Split(",")
                Dim lkx As Integer = usp(0)
                If lkx = lk Then
                    Return usp(j + 1)
                End If
            Next
        End If
        Return String.Empty
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist