Dim i As Integer
i = lv.Anz
Dim array2(i, 6) As String
If split1.StartsWith("LF") Then
     lf = array2(x, 2)
        If lf = Nothing Then
            array2(x, 2) = "=" + split5(0)
        Else
             Dim split10 As String() = lf.Split("/")
             Dim lf2 As String = 0
             lf2 = split6(0)
             lf += lf2
             If Not split10.Length = 1 Then
                  array2(x, 2) = "=" + lf + "/" + split10(0)
             Else
                  array2(x, 2) = "=" + lf
        End If
     End If
End If

For x = 0 To s - 1
    CType(xlBlatt.Cells, Excel.Range)(curRow, 9) = array2(x, 2)
    curRow += 1
Next