hab noch ein bißchen rumprobiert, es klappt jetzt fast alles, nur kann ich die Matrik nicht übergeben und es tritt immer noch ein Fehler auf, wenn ich
ActiveSheet.Cells(13, (AufgZahl + 4)).Formula = formel
setzte, weil er irgendwie dieses = nich abkann
also hier noch mal der ganze 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
MsgBox (t)
ende:
End Sub
Vielen Dank schon einmal im voraus,
Gruß
Julia