Absenzen verwalten

[matthias wehrli]

Ich brauche mal wieder eure Hilfe.

Meine Schulsoftware erstellt mir ein Excel-Export aller Absenzen.
Nun möchte ich diese sinnvoll darstellen und auswerten.
Ich habe euch ein Dokument angehängt. Dieerste Tabelle zeigt die importierten Daten, die zweite Tabelle wäre meine Wunschdarstellung, wobei in den Spalten C2..F16 nur Zahlenwerte stehen. Schön wäre ein Button für einen direkten .pdf Ausdruck.
Für euch sicherlich kein Problem, für mich leider schon.
Liebe Grüsse und herzlichen Dank an alle, die meine Nachricht bis hierhin gelesen haben.
Matthias

[Egon12]

Hallo,

PDF ausgeben so:

Code:

Sub PDF_Speichern()
    With Tabelle2
        .PageSetup.PrintArea = "$A$1:$F$" & .Cells(Rows.Count, 1).End(xlUp).Row
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Absenzenkontrolle.pdf", IncludeDocProperties:=True, IgnorePrintAreas:=False
        .PageSetup.PrintArea = ""
    End With
End Sub

  Absenzenkontrolle.xlsm (Größe: 21,57 KB / Downloads: 5)

Gruß Uwe

[matthias wehrli]

Wow, das ging aber schnell.
Einige Anpassungen würd ich mir noch wünschen:

- Da gewissen Kinder an unterschiedlichen Tagen gefehlt haben, müsste man deren Anzahl bei "Menge" addieren. Ich will ja einen Überblick, wie oft ein Kind pro Quartal gefehlt hat. 
- Spalte "entschuldigt" sollte die Anzahl entschuldigter Absenzen anzeigen, nicht das Wort entschuldigt.
- Spalte "Jokertag" sollte die Anzahl Jokertag (Ja = 1) anzeigen, nicht das Wort "NEIN/JA".
- Spalte "Wehrli" entspräche eigentlich der Anzahl unentschuldigter Absenzen.


Sorry, ich hab wohl vergessen zu schreiben, dass das Dokument VBA-Macros beinhalten darf.

[Egon12]

Hallo,

das wäre wenn ich es richtig verstanden habe so:

Code:

=ZÄHLENWENNS(Import!$A$2:$A$24;Auswertung!$A4;Import!$B$2:$B$24;Auswertung!$B4;Import!$E$2:$E$24;"entschuldigt")

für unentschuldigt und Jokertag ensprechend anpassen.

Gruß Uwe

[shift-del]

Moin

Mit PQ/Pivot.

[matthias wehrli]

Vielen Dank für die vielen Gedanken. Ich schaue mir das Ganze grad an.

Matthias

---

So, nun die Sache etwas verfeinert und etwas Farbe reingebracht.

Lediglich zwei Punkte sind noch nicht "erledigt":

- Einige Kinder kommen in der Tabelle 1 in mehreren Zeilen vor, da sie mehrere Tage krank waren. Die Menge (Lektionen) welche ein Kind gefehlt hat sollte in der Tabelle2 natürlich zusammengezählt werden.
- Aus irgend einem Grund ist mein .pdf Export nun 5 Seiten lang, wobei4 davon leer sind ;(

Darf ich nochmals um eure Mithilfe bitten. Vielen Dank
Matthias

@shilft-del: Die Welt ist klein, mein Freund. Danke, dass du dir mein Problem angeschaut hast. Für einmal wäre ich aber um eine Lösung on PQ/Pivot dankbar.

[PIVPQ]

Hallo 
Ich weiß nicht warum nicht erledigt, denn shift-del hat doch alles geliefert was du überhaupt benötigst.

[matthias wehrli]

Danke für deine Meinung. Wie ich bereits geschrieben habe möchte ich eine Lösung OHNE PQ/Pivot Tabellen.
Matthias

[Egon12]

Hallo Matthias,

dies funktioniert mit SUMMEWENNS().

ohne Differenzierung entschuldigt / unentschuldigt so:

Code:

=SUMMEWENNS(Import!$F$2:$F$24;Import!$A$2:$A$24;Auswertung!$B5;Import!$B$2:$B$24;Auswertung!$C5)

Was die weiteren Leerseiten im PDF anlangt, hast du nachträglich Adressierung des Printranges verändert. 
korrekt so:

Code:

.PageSetup.PrintArea = "$A$1:$G$" & .Cells(Rows.Count, 2).End(xlUp).Row

also ohne $20.

  Absenzenkontrolle(1).xlsm (Größe: 36,02 KB / Downloads: 4)


Gruß Uwe

---

Hier mal noch ein Vorschlag meinerseits mittels formatierter Tabelle. Dies hat den Vorteil, dass wenn weitere Einträge dazukommen oder entfernt werden die Formeln automatisch sich fortpflanzen.

  Absenzenkontrolle(mit Listobjekt).xlsm (Größe: 37,12 KB / Downloads: 6)

Gruß Uwe

[matthias wehrli]

Vielen Dank Uwe und Detlef. Ihr habt mir sehr geholfen, meine Absenzen effektiver zu analysieren.
Ich finde es einfach klasse, dass es Leute wie euch gibt, die hier freiwillig helfen und mit eurem Knowhow dasteht!
Vielen Dank. Das Thema wird nun geschlossen.
Matthias