Office: (Office 2016) Auswertung einer Jahresübersicht am aktuellen Tag

Hallo in die Runde,
Ich habe einen Jahreskalender der mit Datum in Zeile E5 beginnt. Das Jahr wird in einer Zeile bis Spalte NF5 dargestellt. In der Jahresübersicht werden aus anderen Abteilungen (Arbeitsblättern) Werte übernommen, die ich dann als "abwesend" mit den 5 vorgegebenen Kriterien LG, U/S, DR, E, ÜP auswerten möchte. Gleichzeitig möchte ich mit aktuellem Datum die "Abwesenden" nach Dienstgraden getrennt auflisten und von der Sollzahl, die sich im Tabellenblatt "Auswertung" in den Zellen R8:AF8 befinden, abziehen.-
Dank Aloys78 konnte ich im vergangenen Jahr eine ähnliche Aufgabenstellung erfolgreich lösen. Hier noch einmal meinen Dank.
Die Datei mit den Infrage kommenden Tabellen ist beigefügt.
Herzlichen Dank für Eure Hilfe.

:)

 

Hi Gerhard,

"die "Abwesenden" nach Dienstgraden getrennt auflisten"
Im Tagesfilter Zelle LO6 die leeren Zellen wegfiltern.

"Tabellenblatt "Auswertung" in den Zellen R8:AF8"
Diese Zellen sind leer.

Wenn Du aber eine Tabelle mit DG und Kriterien willst, dann schreib doch mal in Blatt Auswertung Zelle
R11: LG
R12: U/S
usw.

Dann schreibe für den 18. Nov. in
S11: =SUMMENPRODUKT((Jahresübersicht!$B$7:$B$99=S$7)*(Jahresübersicht!$LO$7:$LO$99=$R 11))
und kopiere das bis AF12.

Hoffe, dass ich die Frage richtig verstanden habe.

LGB

 

Hallo Barbara,
Danke für Deine Antwort, ich werde es morgen einmal probieren.
Der in VBA im Modul Stärke hinterlegte Code berechnete die vorher monatsweise angeordneten Tabellenblätter nach aktuellem Monat und Tag. Die Anweisung zum Ausführen wurde in "Diese Arbeitsmappe" hinterlegt. und mit einem Command Button "Auswertung gestartet.
Code in diese Arbeitsmappe
Option Explicit
Option Base 1

Dim Monatsarray As Variant
Dim Monat As Long
Dim Tag As Long

Private Sub Workbook_Open()
Monatsarray = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
Dim mName As String
Monat = Month(Now())
mName = Monatsarray(Monat)
ThisWorkbook.Worksheets(mName).Activate
End Sub

Sub auto_open()
Dim Monatsarray
Dim Monat As Integer
Dim Tag As Integer
Monatsarray = Array("none", "Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")

Monat = Month(Now())
Tag = Day(Now)

Worksheets(Monatsarray(Monat)).Select
Cells(1, (Tag * 1) - 3).Select

End Sub

Private Sub CmdBtn_auswerten_Click()
Dim mName As String
Monatsarray = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
Monat = Month(Now())
mName = Monatsarray(Monat)
ThisWorkbook.Worksheets(mName).Activate
If ActiveSheet.Name = mName Then
Call Zählen_A(mName)
End If
End Sub

Dieser Teil müsste jetzt auf das Arbeitsblatt "Jahresübersicht" angepasst werden.

Einen schönen Abend und gesund bleiben
Gerhard

 

Hi Barbara,
ich habe Deinen Vorschlag eingebaut und die Formel Summenprodukt mit der Zählfunktion "aktuelles Datum" ergänzt. Diese Funktion ermöglicht die Auswertung der Jahresübersicht wie von mir gewünscht.-
Die Auswertung via VBA würde ich aber aus Platzgründen auf dem Tabellenblatt bevorzugen.
Danke noch einmal für Deine Hilfe

 

Hallo Gerhard, freut mich, dass ich helfen konnte. Du könntest aus der Formel eine sog. "benutzerdefinierte Funktion" programmieren und dann einsetzen. Das überschreitet dann meine öffentliche Hilfe hier.

Danke für die Rückmeldung.

Alles Gute, LGB

 

Hallo Barbara,
Danke noch einmal für Deine Unterstützung! Ich wünsche Dir eine besinnliche Adventszeit, ein frohes Weihnachtsfest, einen guten Rutsch ins Neue jahr , aber vor allem bleibe gesund..
l. G.
Gerhard