Hallo Big Ben,

danke das hat mir sehr weitergeholfen. Ich habe jetzt den Baum weiter aufgebaut und habe ein Problem an der Stell wo die Funktion von Einem Bereich in den anderen Bereich springen soll. Es wird " Else ohne IFFehler beim Komplieren" angezeigt. Habes unten fett markiert. Was mach ich falsch?

Option Explicit

Public Function teilbaum(faktor1 As Integer, faktor2 As Integer, faktor3 As Double, faktor5 As Double, Faktor6 As Integer)
     Dim faktor4 As String
     If faktor1 = 1 Then
         If faktor2 < 0.24 Then
             If faktor3 < 0.6 Then
                 faktor4 = "A"
             Else
                If faktor3 < 0.9 Then
                 faktor4 = "B"
                 Else
                 faktor4 = "C"
        End If
     End If
     End If
     Else
      faktor4 = "2"
      If faktor3 < 0.7 Then
      faktor4 = "A"
      Else
      If faktor3 < 0.95 Then
      faktor4 = "B"
      Else
      faktor4 = "C"
      End If
      End If
      End If
     
      Else
      faktor4 = "L"
      If faktor5 < 0.7 Then
      faktor = "1"
      If Faktor6 < 0.22 Then
      If faktor3 < 0.53 Then
      faktor4 = "A"
      Else
      If faktor3 < 0.74 Then
      faktor4 = "B"
      Else
      faktor4 = "C"
      End If
      End If
      End If
     
      Else
      If faktor3 < 0.48 Then
      faktor4 = "E"
     
      Else
     
      faktor4 = "F"
     
      End If
      End If
      End If
     
      Else
      faktor4 = "2"
      If Faktor6 < 0.22 Then
      If faktor3 < 0.74 Then
      faktor4 = "A"
      Else
      If faktor3 < 0.95 Then
      faktor4 = "B"
      Else
      faktor4 = "C"
      End If
      End If
      End If
      Else
      If faktor3 < 48 Then
      faktor4 = "D"
      Else
      faktor4 = "E"
      End If
      End If
      End If
     
     teilbaum = "M11_" & faktor4
 End Function