kann mir jemand sagen, warum mir der Fehler "End if without block if" hier angezeigt wird und wie ich das wegbekommen kann?
__________
For j = 1 To 90
If Range("A" & j) = Sheets("Eingabe").Range("D3").Value Then Range("A101:U101").Select
Selection.Copy
Worksheets(Worksheets("Eingabe").Range("B3").Text).Activate
Range("B" & j).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End if
Next j
_______________