Ist es möglich die Zählewenn-Formel mit einem Code zu ergänzen?

[Tommiks]

Hallo zusammen,

gibt es eine Möglichkeit die "Zählewenn"-Formel aus der Zelle "E14" mit einem Code zu ergänzen?

Die Beispieldatei habe ich hinzugefügt.

Bedanke mich im Voraus für die Unterstützung...

[Cadmus]

Hallo,

was soll dieser Code tun oder darstellen?

[Tommiks]

Der Code soll die gleiche Aufgabe der "Zählewenn"-Formel aus der Zelle E14 übernehmen.

[Cadmus]

Du willst die Funktion also nicht ergänzen, sondern auch in VBA abbilden?


https://docs.microsoft.com/de-de/office/...on.countif

[Tommiks]

Ja, die Funktion als VBA(Makro) darstellen. Anschließend werde ich die Formel löschen.

[Case]

Hallo,  

schreibe ÜBER der Codezeile...

Code:

.UsedRange.Value = .UsedRange.Value

ENTWEDER...

Code:

.Range("E14").Formula = "=COUNTIF(E15:E" & Tage + 1 & ",""U"")"

ODER...

Code:

.Range("E14").Value = .Evaluate("=COUNTIF(E15:E" & Tage + 1 & ",""U"")")

[Tommiks]

@case,


vielen Dank. Die Berechnung reagiert auf den Wechsel nicht sofort, sondern ich muss jedes Mal das Jahr immer neu eingeben.

Ich habe die Excel Datei hinzugefügt. Du wirst sehen, dass die Tabelle 8 Urlaubstage anzeigt, aber der Code reagiert auf den Wechsel der Dropdown-Liste nicht. Nur wenn ich das Jahr neu eingebe, wird die Berechnung getätigt.

Kann die Berechnung auf den Wechsel der Dropdown-Liste reagieren? Danke...

Ich habe die beiden Codes versucht.

---

Ich habe das Problem gelöst. Ich habe den Platz des Codes geändert. Jetzt reagiert dein Code sofort auf den Wechsel.  Danke....

[Case]

Hallo,

das kannst du über ein Ereignis - Private Sub Worksheet_Change(ByVal Target As Range) - erreichen (Code im jeweiligen Tabellenblatt). Wenn du das nutzt, solltest du dir aber auch Gedanken über das abschalten der Events machen, da der Code sonst unnötig oft durchlaufen wird.

[Cadmus]

So ist es.

Beispiel im Anhang.

[Tommiks]

@case ,

ich habe nur Bahnhof verstanden . Kannst du mir bitte deiner Schilderung in meiner Datei zeigen? Danke...