Office: (Office 2016) Zähle wenn; automatiserte Überträge auf verschiedene Blätter

Hallo zusammen

Ich habe ein Aufnahmebuch für meine Station erstellt und habe auch schon sehr viel erreicht.

Nun habe ich Wünsche von den Kollegen bekommen, wo ich zwar vermute das dies Funktioniert, mir aber leider das Wissen fehlt, diese Wünsche umzusetzen.

In der Spalte J habe ich die aktuelle Aufenthaltsdauer berechnet. Auch habe ich es farblich Hinterlegt, welche Patienten sich derzeit noch auf Station noch befinden. Nur wenn ich diese Zählen lassen möchte (=Zählewenn(J10:J100001;"") bringt mir leider nicht den gewünschten Erfolg, ich hätte es gerne, das Excel mir nur die grün hinterlegten Zeilen zählt. Gibt es da eine Möglichkeit?

Der zweite Wunsch, ist da für mich nicht lösbar, wollte aber trotzdem fragen, ob es prinzipiell nicht lösbar ist oder nur für mich.
Wir wollen das Buch jahresweise führen. gibt es eine Möglichkeit, die grün unterlegten Patienten bei einem Jahreswechsel diese automatisch vom Blatt 2020 in das Blatt 2021 zu übertragen?

und der letzte Wunsch war, gibt es die Möglichkeit, den Letzten Eintrag (Nachname) einer Tabelle auf das Blatt Bettenschilder zu übertragen mit Hr. oder Fr. beginnend?

Ich danke schonmal für Eure Hilfe :):):)

Lieben Gruß

Den Anhang Aufnahmebuch 2.xlsx betrachten

 

Hallo,
das geht natürlich nur mit VBA. Ich hoffe ich habe alles so gemacht wie Ihr das braucht.

 

Moin!

Sehe ich anders!
In einem Tabellenobjekt (s.g. "intelligente" Tabelle) hält man niemals(!) leere Datensätze vor!

1. Wenn Du dann strukturierte Verweise nutzt, sieht die dann problemlos funktionierende Formel wie folgt aus:
   =ZÄHLENWENN(Tabelle14[Entlassdatum];"")
2. Die Formel der bedingten Formatierung lautet dann ebenfalls einfacher =$I10=""
3. Am Jahresende brauchst Du dann einfach nur nach der Farbe der bedingten Formatierung filtern und die filtrierten Datensätze ins neue Jahr kopieren.
   (Excel kopiert nämlich nur die sichtbaren Zellen)

Abseits dessen:
Ist der Datenschutzbeauftragte des Krankenhauses(?) darüber informiert, dass ihr mit höchst sensiblen Patientendaten in Excel "herumspielt", Robert?
Ich bin mir sehr sicher, dass er darüber not amused wäre.

Gruß Ralf

 

Und den gewünschten letzten Namen ermittelst Du per Formel dann so:
=INDEX(Tabelle14[Name];ANZAHL2(Tabelle14[Name]))

Und da Du ja auch noch eine geschlechtsspezifische Anrede wünscht:
=WENN(INDEX(Tabelle14[Geschlecht];ANZAHL2(Tabelle14[Geschlecht]))="w";"Fr. ";"Hr. ")
&INDEX(Tabelle14[Name];ANZAHL2(Tabelle14[Name]))

Ja Tester ist weiblich … ;)

… und in Excel 365 wird die Formel mittels LET() kürzer:
=LET(a;ANZAHL2(Tabelle14[Name]);WENN(INDEX(Tabelle14[Geschlecht];a)="w";"Fr. ";"Hr. ")&INDEX(Tabelle14[Name];a))

 

Vielen Dank für eure Hilfe Euch allen, ich werde Versuchen, dies in meine Tabelle einzubauen, ich hoffe ich bekomme es hin. Und Ralf, im Moment ist es ja erstmal nur eine Übung und eine Idee. Mein Chef ist mit dem Datenschützer aber schon im Gespräch, diesbezüglich. Aber trotzdem Danke für den Hinweis.

 

Vielen Dank, genau so haben wir es uns vorgestellt

 

die Option mit dem Button finde ich ganz gut, leider funktioniert die bei mir nicht so gut, sie überträgt leider immer nur einen Namen, aber nicht alle markierten. Des weiteren bekomme ich den Button nicht in meine eigentliche Tabelle übertragen.