Sers,
kann mir jemand sagen was hieran falsch ist bzw. warum das eine Fehlermeldung (Erwartet: Anweisungsende) gibt?
Gruß
kann mir jemand sagen was hieran falsch ist bzw. warum das eine Fehlermeldung (Erwartet: Anweisungsende) gibt?
Code:
Private Sub Label25_Click()
nAbt = Application.InputBox("Eingabe:")
Sheets(2).Cells(lIndex, 5).Formula = "=ZÄHLENWENN(Data!A:A;nAbt)"
Sheets(2).Cells(lIndex, 6).Formula = "=ZÄHLENWENNS(Data!A:A;nAbt;Data!AC:AC;"WAHR")"
End Sub