per Checkbox Formel eintragen

Hallo Zusammen,
ich habe in ein Tabellenblatt eine Checkbox integriert, die je nach Zustand Werte aus einem _
anderen Tabellenblatt oder Nullwerte anzeigen. Der Code dazu sieht folgendermaßen aus:


Private Sub CheckBox21_Click()
If CheckBox21.Value = True Then Range("C11:N11").Formula = "='P-AIF'!G154:G154"
If CheckBox21.Value = False Then Range("C11:N11").Formula = "=0"
End Sub

Klappt Super, aber wenn ich als Formel eine Summe nehmen will, kommt der Fehler #Name?


Private Sub CheckBox22_Click()
If CheckBox22.Value = True Then Range("C12:N12").Formula = "=SUMME('P-AIF'!G155:G157)"
If CheckBox22.Value = False Then Range("C12:N12").Formula = "=0"
End Sub

Kann mir jemand einen Tip geben, was sich falsch mache?
Vielen Dank im Voraus & viele Grüße
Gunnar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
warum machst du das ganze nicht Codefrei?
verknüpfe die Checkbox mit einer Ausgabezelle (z.B. A1 oder jede andere freie Zelle) und schreibe in die Zellen C11:N11 die Formel:

=WENN($A$1;SUMME('P-AIF'!G155:G157);0)

wenn du mit Makro arbeiten willst, dann vielleicht folgendes dein VBA zu verbessern:
beim Abfragen einer Checkbox kannst du dir das .Value = True/False auch sparen.
der Checkbox-Value ist ja schon TRUE oder FALSE das kann man im Code auch direkt verwenden.
außerdem ist es hier besser, einen kombinieten IF-Block zu erstellen ansatt zwei einzelne:
die WITH-Klammer hilft dabei, so dass man den Zellbereich nicht wiederholen muss:

Private Sub CheckBox21_Click()
with Range("C11:N11")
If CheckBox21.Formula then
.Formula = "=Sum('P-AIF'!G154:G157)"
else
.Formula = "=0"
End with
End Sub

Freunde von kurzem Code greifen hier auch gerne auf IIF zurück

Private Sub CheckBox21_Click()
Range("C11:N11").Formula = IIF(Checkbox21.Value, "=Sum('P-AIF'!G154:G157)", "=0")
End Sub

dass bei .Formula die Formel in englischer Schreibweise, dh mit englischem Funktionsnamen und bei mehreren Parametern einer Funktion mit dem Komma als Parametertrennzeichen gearbeitet werden muss, wurde ja schon erwähnt.
Wenn du lieber mit deutschen Formeln arbeitest, kannst du auch .FormulaLocal anstelle von .Formula verwenden.
Allerdings funktioniert dein Makro nur mit deutschen Excelversionen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per Checkbox Formel eintragen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread