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.
Du musst angemeldet sein, um einen Kommentar abzugeben.
Ihrer select-Anweisung muss ein Ende: