Option Explicit
Public sPath, bname As String
Public sID As String
Public Dateiname As String
Public intCounter As Integer
Public lngNumberOfRows, lngRowNumber As Long
 
Private Sub Form_Load()
Dim i, x, o As Long
Dim lngBackColor(4) As Long
lngBackColor(0) = &HFFFFC0
lngBackColor(1) = &HFF00&
lngBackColor(2) = &HFFFF&
lngBackColor(3) = &HFF&
frmMain.testExcel
lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row
For x = 0 To File1.ListCount - 1
    bname = File1.List(x)
    For i = 1 To lngNumberOfRows
        lngBackColor(4) = lngBackColor(0)
        If frmMain.xlWS.Cells(i, 1) = bname Then
            If frmMain.xlWS.Cells(i, 4) = "in field" Then
                If frmMain.xlWS.Cells(i, 18) = frmMain.uID Then
                    lngBackColor(4) = lngBackColor(CLng(frmMain.xlWS.Cells(i, _
                      19)))
                End If
            End If
        End If
        Tree1.Nodes.Add Text:=bname
        o = Tree1.Nodes.Count
        Tree1.Nodes(o).BackColor = lngBackColor(4)
    Next
Next
Rem hier Dein restlicher Code
End Sub