Formula - Formeln eintragen nicht möglich
04.08.2008 12:27:00
BGMR
ein neues Problem ist aufgetreten und ich habe nach längerem Suchen in verschiedenen Foren und Lektüren nichts gefunden, ich hoffe ihr könnt mir helfen:
Ich Versuche per VBA eine Formel abhängig von einer Eingabe des Benutzers einzugeben. Allerdings bekomme ich immer einen Fehler wenn ich ein = mit reinschreibe. Hier 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)).Address).Formula = "=IF(COUNTA(C13:F13)=0;"";SUM(C13: _
F13))"
ActiveSheet.Cells(13, (AufgZahl + 4)).Select
Selection.AutoFill Destination:=ActiveSheet.Range(Cells(13, (AufgZahl + 4)), Cells((Anz _
+ 13), (AufgZahl + 4))), Type:=xlFillDefault
ElseIf AnzBew
auch bei der Einstellung in FormulaLocal tritt der gleiche Fehler auf.
Beste Grüße,
Julia