Formel ZÄHLENWENN über VBA in Zelle eintragen

Forumthread: Formel ZÄHLENWENN über VBA in Zelle eintragen

Daniel

Hallo,
hatte gestern schon fast das selbe Problem, da konnte mir Udo super schnell helfen. Vielleicht weiß heute auch jemand Bescheid...
Ich möchte über VBA in eine bestimmte Zelle (z.B. D8) die Formel
=ZÄHLENWENN(C13:C_dynamisch_;"Bedingung")
eintragen.
Die Formel hab ich als String zusammengesetzt, die VBA-Routine sieht so aus:
Dim Zeiger1 As String
Zeiger1 = "=" & "countif" & "(" & "C13" & ":" & "C" & intlastrow & ";""Bedingung"")"
' intlastrow ist die Variable für die letzte besetzte Reihe (vgl. Herber)
Cells(8, 4).FormulaLocal = Zeiger1
In Zelle D8 wird korrekt der String wie oben angegeben eingetragen. Leider zeigt die Zelle im Tabellenblatt die Meldung #NAME? an. Erst wenn ich oben in der Formel-Eingabezeile in die Klammer klicke und danach RETURN drücke, wird in der Zelle im Tabellenblatt die Summe angezeigt.
Wie lässt sich das vermeiden? Wie wird der Wert sofort angezeigt? Wie muss ich die Variable Zeiger1 übergeben? Was muss ich anstatt .FormulaLocal angeben?Vorab vielen Dank für eure Hilfe!
MfG Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Formel ZÄHLENWENN über VBA in Zelle eintragen

xXx

Hallo,
bei .FormulaLocal muss du die deutschen Funktionsnamen verwenden. Bei englischen Namen nur .Formula.
Dein String ist auch zu kompliziert zusammengebastelt.
Zeiger1 = "=Zählenwenn(C13:C" & intlastrow & ";""Bedingung"")"
Gruß aus'm Pott
Udo
http://www.excelerator.de

AW: Formel ZÄHLENWENN - DANKESCHÖN!!!

06.04.2004 14:08:40

Daniel

Vielen Dank Udo!
MfG Daniel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um die Formel ZÄHLENWENN über VBA in eine Zelle einzutragen, kannst du folgende Schritte befolgen:

Öffne den Visual Basic for Applications (VBA) Editor in Excel. Das kannst du tun, indem du ALT + F11 drückst.
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Modul einfügen" auswählst.

Verwende den folgenden VBA-Code, um die Formel in die gewünschte Zelle (z.B. D8) einzutragen:

Sub EintragenZaehlenWENN()
   Dim intlastrow As Long
   intlastrow = Cells(Rows.Count, "C").End(xlUp).Row ' Bestimme die letzte besetzte Zeile in Spalte C
   Dim Zeiger1 As String
   Zeiger1 = "=ZÄHLENWENN(C13:C" & intlastrow & ";""Bedingung"")"
   Cells(8, 4).FormulaLocal = Zeiger1 ' Trage die Formel in Zelle D8 ein
End Sub

Schließe den VBA Editor und führe das Makro aus, um die Formel in die Zelle D8 einzutragen.

Häufige Fehler und Lösungen

Fehler: #NAME? in der Zelle
- Lösung: Stelle sicher, dass du die richtige Funktionsbezeichnung verwendest. Bei deutschen Excel-Versionen sollte .FormulaLocal und der Funktionsname ZÄHLENWENN verwendet werden. Bei englischen Versionen musst du countif verwenden und .Formula nutzen.
Fehler: Falsche Zelle wird aktualisiert
- Lösung: Überprüfe, ob die Zelle, in die du die Formel einträgst, korrekt angegeben ist. In unserem Beispiel ist es Cells(8, 4), was D8 entspricht.

Alternative Methoden

Falls du die Formel nicht über VBA eintragen möchtest, kannst du auch die Formel direkt in die Zelle D8 eingeben:

Klicke auf die Zelle D8.
Gib die Formel direkt ein: =ZÄHLENWENN(C13:C100;"Bedingung") (oder entsprechend der Anzahl der Zeilen).
Drücke ENTER, um die Formel zu bestätigen.

Praktische Beispiele

Angenommen, du möchtest die Anzahl der Zellen in Spalte C zählen, die den Wert "Bedingung" erfüllen:

Durch den VBA-Code wird die Formel in D8 eingetragen, und du kannst diese zur Analyse deiner Daten verwenden.

Sub BeispielZaehlenWENN()
    Dim intlastrow As Long
    intlastrow = Cells(Rows.Count, "C").End(xlUp).Row
    Cells(8, 4).FormulaLocal = "=ZÄHLENWENN(C13:C" & intlastrow & ";""Bedingung"")"
End Sub

Tipps für Profis

Nutze Option Explicit am Anfang jedes Moduls, um sicherzustellen, dass alle Variablen deklariert sind.
Teste deinen Code regelmäßig, um sicherzustellen, dass keine Fehler auftreten.
Halte deine VBA-Routinen einfach und klar. Komplexe Strings können zu Verwirrung führen.

FAQ: Häufige Fragen

1. Kann ich die Formel auch in einer anderen Zelle eintragen? Ja, du kannst die Zelle ändern, indem du die Zuweisung in Cells(8, 4) anpasst. Zum Beispiel für Zelle E10 wäre das Cells(10, 5).

2. Was ist der Unterschied zwischen .Formula und .FormulaLocal? .Formula wird für englische Funktionsnamen verwendet, während .FormulaLocal für deutsche oder lokalisierte Funktionsnamen verwendet wird. Achte darauf, die richtige Methode entsprechend der Sprache deiner Excel-Version zu verwenden.

Beliebteste Forumthreads (12 Monate)

Formel ZÄHLENWENN über VBA in Zelle eintragen

Forumthread: Formel ZÄHLENWENN über VBA in Zelle eintragen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

ZÄHLENWENN über VBA in Excel eintragen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread