Excel-VBA "End If ohne block Wenn" - VBA-Fehler

Ich kann nicht herausfinden, warum VBA ist Schreien mich an auf diese ein. Sehr einfacher code, nur eine if-Anweisung ist beteiligt, und es hat eindeutig ein "Ab" Wenn und ein passendes Ende Wenn. Ich bin ein VB.NET Entwickler, so kann es einen Unterschied in der syntax, die ich bin fehlt.

 Sub splitter()
   Dim line() As String
   Dim rng As Range
   Dim row As Range
   Dim cell As Range
      For Each row In rng.Rows
        If row.Value <> "" Then
            line = Split(Range(row, 1), ",")
            Select Case line(0)
               Case "Desktop"
                   Range(row, 8).Value = "Desktop"
               Case "Laptop"
                   Range(row, 8).Value = "Laptop"
               Case "Server"
                   Range(row, 8).Value = "Server"
               Case Else
                   Range(row, 8).Value = "N/A"
        End If
       Next
    End Sub

Speziell, das Endergebnis ist, dass Sie füllen ein "Kind" drop-down-Liste (Range(Zeile, 8)) basierend auf der Auswahl aus der "Eltern" - drop-down-Liste (Range(Zeile, 1)). Denn die Frage, der Grund warum ich das mit VBA ist da die ich verwenden kann mit der Split () - Funktion mit der Art, wie die Elemente in der Übergeordneten drop-down-Liste gemacht werden, zB. "Desktop-PC, Dell 745". Auch bin ich ein besserer Programmierer als eine excel-Entwickler.

Schreibe einen Kommentar