ich habe ein Problem. am besten erstmal der Code:
Sub NeueBewertung()
Dim AnzBew As Integer
Dim AufgZahl As Integer
Dim Anz As Integer
Anz = Val(Worksheets("Punkte").Range("B10").Value)
AufgZahl = Val(Worksheets("Punkte").Range("A5").Value)
AnzBew = Application.InputBox(Prompt:="Wieviele Aufgaben sollen bewertet werden?", _
Title:="Gewichtete Bewertung", Type:=1)
If AnzBew = AufgZahl Then
Range(Cells(13, (AufgZahl + 4)), Cells((Anz + 13), (AufgZahl + 4))).Formula = "=IF( _
COUNTA(C13:F13)=0;"";SUM(C13:F13))"
End If
If AnzBew AufgZahl Then
GoTo ende
End If
ende:
End Sub
Hier soll eine Punktebewertung nach den Aufgaben mit demn maximalen Punkten erreicht werden. Dazu soll der benutzer eingeben, wieviele der Aufgaben(AufgZahl) er bewerten will (AnzBew). Dann soll s bei zum Beispiel den zwei besten aufgaben in Zeile 13 mit 3 Aufgaben folgendermaßen heißen
=KGrösste(C13:E13);2) + KGrösste(C13:E13;1)
und nun soll diese Formel s in der Zelle G13 stehen und nachher bis zu einem bestimmten Punkt nach unten gezogen werden.
Jetzt erhalte ich immer den Fehler 1004 bei Cells(13, (AufgZahl + 4)).Formula = "=" & s
KANN MIR JEMAND HELFEN?
Beste Grüße,
Julia