Mind. 1 Ereignis in einer Spalte

[d'r Bastler]

Hallo Thomas,

ich habe mich zwar nicht 100%ig an Deine Vorgaben gehalten, aber mal mit VBA etwas gebastelt, das zumindest Dein gewünschtes Ergebnis ausspucken sollte.

Mein Testszenario: Ihr habt fünf OPs mit den Nummern 010 ... 050. [Korrektur: Ich habe die in Deinen Tabellen übernommen] Für jeden Saal gibt es eine Zeile in die Du das Datum und j oder n für die Notfälle einträgst. Du kannst entweder alle Säle mit Werten belegen oder einzelne. Mehrfachwerte pro Datum funktionieren erst nach dem Button eintragen. Das Blatt schreibt ein Historie, aus der Du weitere Auswertungen ziehen kannst. 
Der Button Reset löscht die Historie und füllt den (farbig markierten) Eingabeblock (die anderen Zellen sind [oPW] schreibgeschützt) mit ersten Beispieldaten zum Testen. Trage danach nur ein oder zwei Säle ein, dann wird das Ergebnis gut sichtbar.

  EmergencyLog.xlsb (Größe: 21,06 KB / Downloads: 3)
Würd' mich freuen, wenn's passt. Wenn ihr weniger Säle, andere Bezeichnungen habt, kannst Du diese selber ändern. Wenn's mehr Säle sind, passe ich den Code gerne entsprechend an.

Grüße

[BoskoBiati]

Hi Bastler,

ich habe mich zwar nicht 100%ig an Deine Vorgaben gehalten,

schlecht. Nur weil einem langweilig ist, etwas Neues zu erfinden mag zwar der inneren Befriedigung dienen, ist aber meist für die Aufgabe nicht hilfreich.
Hier ist die Lösung für meine Begriffe völlig am Thema vorbei, weil es wohl um die Aufbereitung alter Daten geht.


Zu Deinem Code:

Es werden keine Fehleingaben verhindert.
Die Variablen sollten sprechende Bezeichnungen haben, man kann den Code leichter nachvollziehen.
Dim as integer ist weniger sinnvoll, da intern alle Werte sowieso in long umgewandelt werden.
Bei mehreren fehlerhaften Einträgen in Zeilen 2-7 wird zwar gezählt, wieviel Fehler es sind, aber es wird nur die Zelle mit der letzten unvollständigen Eingabe markiert.
Beim Löschen werden irgendwelche Werte in B2:C7 eingetragen, sehr verwirrend und vor allem unsinnig, da diese Daten bei Betätigen von "eintragen" in die Liste übertragen werden.

[thfrank]

die Zeile 22 OP-Saal 2 gibt es auch in Zeile 12&13.

ja stimmt. In dem Fall wäre E22 = 1, der Rest bleibt gleich.

Ich habe B22 korrigiert, die Tabelle ist nach OP-Datum und OP-Saal sortiert. Im Grunde genommen sollte die Abfrage in E davon ja aber auch unabhängig sein.

[BoskoBiati]

Hi,

und warum nimmst Du nicht meine Formel????

Du kannst die Spalte D sowieso weglassen, die macht keinen Sinn.

[thfrank]

Würd' mich freuen, wenn's passt. Wenn ihr weniger Säle, andere Bezeichnungen habt, kannst Du diese selber ändern. Wenn's mehr Säle sind, passe ich den Code gerne entsprechend an.

Vielen Dank, mir geht es hier nur tatsächlich um die Auswertung historischer Daten, und zwar ziemlich vieler...

Manuelle Eingabe ist daher keine Option, trotzdem Danke!

Thomas

---

und warum nimmst Du nicht meine Formel????

Du kannst die Spalte D sowieso weglassen, die macht keinen Sinn.

na ja, weil sie nicht zu korrekten Ergebnissen führt (siehe Anlage)

Spalte D war ein Hilfskonstrukt und ist hier tatsächlich nicht weiter relevant. In der Originaltabelle wird D über WENN-Abfragen automatisch bestimmt und einige Analysen laufen darüber, z.B. Summe OP-Zeiten je Saal etc.

[schauan]

Hallöchen,

... wobei unten bei mir / der 6 auch eine 1 kommt, weil in der Vergangenheit der Fall ja existierte.
Wenn Du das noch um das Datum von Spalte A erweiterst, würde es Deinem Wunsch noch näher kommen. Allerdings würde in Zeile 9 eine 0 stehen, da zu dem Zeitpunkt an dem Tag im betreffenden Saal ja noch kein Notfall vorlag.
Das könnte man aber auch lösen, indem man immer den ganzen Bereich prüft, also z.B. B$2:B$22

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G
1	OP-Datum	OPS	NF j/n	T+OPS gleich	OPS min 1 NF
2	01.01.2019	1	1	0	1	1	1
3	01.01.2019	2	1	0	1	1	1
4	01.01.2019	2	0	1	1	0	1
5	01.01.2019	2	1	1	1	0	1
6	01.01.2019	6	1	0	1	1	1
7	01.01.2019	6	1	1	1	0	1
8	01.01.2019	6	1	1	1	0	1
9	02.01.2019	1	0	0	1	0	1
10	02.01.2019	1	1	1	1	0	1
11	02.01.2019	1	0	1	1	0	1
12	02.01.2019	2	1	0	1	0	1
13	02.01.2019	2	1	1	1	0	1
14	02.01.2019	3	0	0	0	0	0
15	02.01.2019	4	0	0	0	0	0
16	02.01.2019	4	0	1	0	0	0
17	02.01.2019	5	0	0	0	0	0
18	02.01.2019	5	0	1	0	0	0
19	02.01.2019	5	0	1	0	0	0
20	02.01.2019	5	0	1	0	0	0
21	02.01.2019	12	0	0	0	0	0
22	02.01.2019	6	0	0	0	0	1

Zelle	Formel
F2	=(ZÄHLENWENN($B$1:B2;B2)=1)*(ZÄHLENWENNS(A:A;A2;B:B;B2;C:C;1)>0)
G2	=--(ZÄHLENWENNS(($B$2:B2);B2;($C$2:C2);1)>0)

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.2) erstellt. ©Gerd alias Bamberg

[thfrank]

Hallöchen,

... wobei unten bei mir / der 6 auch eine 1 kommt, weil in der Vergangenheit der Fall ja existierte.

Also, G liefert das korrekte Ergebnis außer in Zeile 22. Das kapier ich grad nicht. Soweit ich sehe, gibt es keine zweite Zeile mit OP 6 am 2.01.2019.

PS: Das Datum wird in der Formal aber gar nicht abgefragt oder?

[BoskoBiati]

Hi,

ich hatte schon mehrfach die richtige Formel vorgestellt:

=--(ZÄHLENWENNS(A:A;A2;B:B;B2;C:C;1)>0)

z.B.:

https://www.clever-excel-forum.de/Thread...#pid254149

[d'r Bastler]

@thfrank

tut mir echt leid, wenn ich so weit danebengehauen habe. Sorry! Ich hatte Deine Eröffnung so verstanden, dass es um die tägliche Erfassung geht. Aber Danke für Deine Rückmeldung! 

Wenn wenigstens die Ausgabe Deinen Vorstellung entspricht, kann man meinen Code auch so umbauen, dass er bereits bestehende Daten auswertet und danach für die tägliche Erfassung zur Verfügung steht. Also Two Tools in One.

Grüße

@BoskoBiati 

schlecht

Ausgerechnet von einem erfahrenen XLanten solch eine pauschale Aussage zu lesen, verwundert mich doch sehr. Denn dann scheint in Dir in der Vergangenheit wohl entgangen zu sein, dass es gelegentlich durchaus sinnvoll ist, das Konzept eines Fragestellers etwas umzukrempeln und damit die Lösung zu vereinfachen. Das habe ich hier versucht, und es ist schiefgegangen, weil in unzähligen Beiträgen das Detail mit den historischen Daten übersehen habe. Ich habe Frank dafür um Entschuldigung gebeten - werde das Prinzip ansonsten allerdings nicht aufgeben.

Langeweile & Befriedigung

Solch Kaffeesatz-Psychologie empfehle ich Dir künftig zu unterlassen. Sonst kann es Dir passieren, dass ich entsprechend antworte.  Welche Gründe ich habe,  hier genau so mitzumachen, wie ich es tue, kannst Du aus anderen Beiträgen lesen. Ich halte solche persönlichen Beurteilungen für  so unnötig wie 'nen Kropf mit Socken.
Oder soll ich auch mal? Deine vier Fragezeichen (nach alter Netiquette bekanntlich laut gebrüllt) bezüglich Deiner Formel, könnten dann auf verletzte Eitelkeit schließen lassen, dass man sich in Deine Kreise eingemischt hat. Aber sorry, das waren jetzt Teeblätter und kein Kaffeesatz.
Was Deine Beurteilung meines Codes betrifft, gebe ich Dir in genau einem Punkt ungebremst Recht: Es werden keine Fehler abgefangen. Nachdem ich (und ich weiß, dass ich da alle andere als alleine bin) ein Forum als Hilfe zur Selbsthilfe verstehe, liefere ich hier die Anregungen, die einem Fragesteller auf den Weg helfen und keine fertigen Produkte für den Firmenalltag. Konsequentes Error Handling erledige ich gerne nach Pflichtenheft. Aber dann wäre das kostenlose Auftragsprogrammierung, mit der Leuten, die damit ihr Brot verdienen, das Geld weggenommen wird. Das nicht.
Alles andere ist mein Programmierstil, in dem ich auch nach Jahren problemlos zurechtkomme. Zumal ich den Code in aller Regel so kommentiere, dass er auch für Dritte nachvollziehbar. Dass Integer intern in Long umgewandelt werden soll, wäre mir neu (falls es doch stimmt, Danke dafür), habe ich in meinen XL-Versionen mit Integer durchaus Überlauf-Meldungen gesehen, die dann mit Long erledigt waren.

[BoskoBiati]

Hi,

schlecht bezog sich auf den Satz davor, und das meine ich auch so. Die Vorgaben des TE sind erst einmal maßgeblich.

dass es gelegentlich durchaus sinnvoll ist, das Konzept eines Fragestellers etwas umzukrempeln und damit die Lösung zu vereinfachen

Kein Einwand, aber hier wird ja nichts vereinfacht, sondern verkompliziert.

Ansonsten habe ich schon mehrfach an Deinen Lösungen meine Zweifel gehabt (wie Andere auch):

https://www.clever-excel-forum.de/Thread...#pid254199
https://www.clever-excel-forum.de/Thread...ualisieren
https://www.clever-excel-forum.de/Thread...e-vergeben