Erste eine msg Fehler bei der Verwendung von IF-Bedingung

Question

I IF-Bedingung bin mit aber mir Fehler „Else ohne IF“ kompilieren gegeben ich nach rechts -Schleifenanweisungen wollen, so wird es Formel bis Anzeigezellen

With Range("K3:K" & LR) 
LR = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row 

With .Resize(.Rows.Count - 1, .Columns.Count).Offset(2, 0) 


If Range("K" & LR).Value = "No" Then 
With .Resize(.Rows.Count - 1, .Columns.Count).Offset(2, 0) 
With Range("L3:L" & LR) 
Sheets("Sheet1").Range("L3" & LR).FormulaR1C1 = "" 

ElseIf Range("K" & LR).Value = "Yes" Then 

With .Resize(.Rows.Count - 1, .Columns.Count).Offset(2, 0) 
With Range("L3:L" & LR) 
Sheets("Sheet1").Range("L3" & LR).FormulaR1C1 = "=RC[-2]*0.25%" 

Else 

Return 




End With 
End With 
    End If 
    End With 
    End With 

berechnen Bitte helfen Sie hierzu

Answer 1

Sie können Blöcke nicht verschachteln.

folgenden Code ein End If without If block Fehler erzeugen:

If True Then 
    With Range("A1") 
End If 
    End With 

folgenden Code generiert einen End With without With block Fehler:

With Range("A1") 
    If True Then 
End With 
    End If 

Benutzen Sie den Code wie folgt aus:

With Range("A1") 
    If True Then 
    End If 
End With 

oder

If True Then 
    With Range("A1") 
    End With 
End If 

Wie von arcadeprecinc erwähnt, hätte eine richtige Einrückung Ihres Codes das Problem gezeigt.