Bereich definieren und nach mehreren Kriterien Zählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Bonjour Alonso,

der klassische Excel-Problem: deine erfassungsorientierte Gestaltung macht es dem Mensch einfach, aber der Computer besinders schwer.
Ideal wären 3 Spalten: Mitarbeiter, Tag, Abwesenheitsgrund.

Aber es lässt sich mit Power Query leicht ummodellieren:
_ gehe in A1
_ Menü "Daten", "Aus Tabelle"
_ es wird den Bereich $A$1:$AE$32 mit Überschrift als relevant ermittelt, einfach ok drücken,
_ Du bist in Power Query Editor, der "low Code / no Code" Transformer von Excel
_ Spalte "Perso Nr" auswählen (per Klick im Überschrift)
_ Menü "Transformieren", "Spalte entpivotieren", "andere Spalten entpivotieren"
_ Spalte "Attribute" in "Datum" (Doppelklick auf "attribute") und "Wert" in "Abwesenheit" umbenennen,
_ Spaltenüberschrift con Datum rechtsanklicken "Typ ändern", "Datum" wählen
_ Menü "Datei", "Schliessen und laden in ..."
_ Auswahl "Pivottable-Bericht", "Bestehendes Arbeitsblatt" und eine Zelle z.B. $O$37 anklicken
_ Pivotdaten-Feld (rechts, oben) "Abwesenheit" nehmen und in "Zeilen" (nicht ganz rechts, unten) verschieben (Drag'n-drop)
_ Pivotdaten-Feld "Datum" nehmen und in "Spalten" (rechts nicht, ganz unten) verschieben,
_ auf einem der Datum im Pivot (z.B. $P$38) rechtsklicken und "Gruppieren" auswählen, "Monat" anklicken
_ Pivotdaten-Feld "Abwesenheit" nochmal von oben, aber ins "Wert" verschieben. Da "Abwesenheit" keine Zahl ist, wird "Anzahl" als Aggregationsfunktion automatisch gewählt.
Fertig

VG
Yal

Hallo

ich sende dir mal deine Beispieldatei zurück, leider ein altes Excel 2003 Format. (alter Laptop)
Im Modul1 findest du 3 Makros, das erste ist das Start Makro um die beiden anderen auszuführen.
In Zeile 50 werden Formelbereiche für den 1. Mitarbeiter erstellt. Das zweite Makro erstellt die ZählenWenn Formeln

Bei Änderung in Zelle A 35 (DropDown), wird mit Replace in allen Formeln die Mitarbeiter Zeile geändert.
Ich habe sowas noch nie programmiert, und weiss nicht wie gut es sich in der Praxis bewährt? Einfach testen.
https://www.herber.de/bbs/user/164720.xls

Kleine Fehler Korrektur: im 2. Code must du nach Next s noch diesen Befehl einfügen:
Er aktiviert immer den 1. Mitarbeiter, sonst stimmt die Formel Zuordnung nicht!
Range("MTADown").Value = Range("A2")

mfg Piet

Beliebteste Forumthreads (12 Monate)

Bereich definieren und nach mehreren Kriterien Zählen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich definieren und nach mehreren Kriterien Zählen

3 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)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread