Erhebnungsbogen mit Kontrollkästchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Kontrollkästchen17_KlickenSieAuf() ActiveSheet.Shapes("Kontrollkästchen 17").Select If Selection.Value = xlOn Then Worksheets("Tabelle1 (3)").Range("C9") = Worksheets("Tabelle1 (3)").Range("C9") + 1 End If Range("D10").Select End Sub

Hallo Ihr Beiden,
das ist ja wirklich super Arbeit. Vielen, Vielen Dank. Das hätte ich so nicht alleine hinbekommen. Makros aufzeichnen kann ich ja noch nichteinmal. Sowas hätte ich nie geschafft.
Es gibt allerdings bereits jetzt Hinweise, dass das Formular für die Praxis noch angepasst werden kann.
a) Es sollte ein separates Formular für die Erfassung am Wochenende geben. Die jetzige Auswertung lässt nur einen allgemeinen Überblick über die ganze Woche zu. Da aber gerade die Wochenenden Spannend sind (Patientenaufkommen hoch, Personalbesetzung ggf. niedriger), wäre eine separete Erfassung optimaler.
b) Die Tabellenblätter sollten eindeutig betitelt werden (die erste Version von mir war ja nur zur verdeutlichung und im Bearbeitungsmodus). Ich würde es ja probieren, befürchte aber, dass ich das nicht schaffe (kann es sein, dass dort jetzt ne Sperre drin ist? kann die Makros nicht mehr ansehen).
Namen: Dateneingabe/ Datenverarbeitung/ Datenauswertung
c) die Tabellenblätter sollten gesperrt werden, damit diese nicht zerschossen werden können.
Dann sollte der Parxisbetrieb zeigen, wo noch Optimierungen nötig sind. Ich bin gespannt.
Vielen Dank nochmal.
Gruß,
John

Sub AlleWerteNull() Application.ScreenUpdating = False If MsgBox("ALLE Zähler löschen?", vbOKCancel + vbCritical, "Zähler löschen") = vbCancel Then Exit Sub Else With Sheets("Tabelle1 (3)") .Range("9:9,D12,J12,C15,F15,I15,L15,O15,O18,J18,D18,D21,H21,L21,J24,D24").ClearContents Application.ScreenUpdating = True End With End If End Sub

Hallo,
also das ist schon der Hammer. So habe ich mir das vorgestellt.
Zwei Sachen hätte ich aber noch.
1. Ich habe in der allerersten Beispieldatei nur einen kleinen Teil der abzufragenden Inhalte mitgeschickt, da ich dachte, dass ich dann mit den Hinweisen das entwickelte System auf ähnliche Abfragen übertragen kann. Jetzt weiß ich nicht, ob ich das hinbekomme. Diese andere Abfrage dreht sich um die Notfälle aus dem Haus, die auch in der zentralen Notaufnahme abgearbeitet werden, wenn das Reanimationsteam nicht benötigt wird. Diese Abfrage sollte unter der Ersten. Dann aber genauso. Also für Werktags und WE + Feiertags. Siehe https://www.herber.de/bbs/user/66644.xls . Vielleicht kann diese ja noch eingefügt werden.
2. Sollten die Mitarbeiter nun die Daten eingegeben haben, summieren sich die Ergebnisse in DatenauswertungWerktage und DatenauswertungWE auf. Diese beiden Blätter stellen dann die Grundlage für die Auswertung dar (z.B. für die Anfertigung von Grafiken, Listen etc.). Das die Blätter gelöscht werden können ist prinzipiell sehr gut, nur habe ich die Befürchtung, dass die Daten dann für immer verloren gehen, wenn diese nicht irgendwo sicher gespeichert werden. Vielleicht ist folgende Funktion möglich: Irgendwie kann der Zeitraum eingegeben werden, in dem die Patienten, die aktuell eingegeben werden, gekommen sind (z.B. 04.06.2010 07.08.2010). Die Daten werden dann mit diesem Hinweis gespeichert oder noch besser, per Mail an mich geschickt, damit diese dezentral gespeichert werden können. Ich muss die Daten sowieso auswerten.
Solltet Ihr hierfür Zeit haben eine Lösung zu finden, wäre das ganze Ding echt rund. Ich weiß gar nicht, wie ich mich bedanken und meinen Respekt zollen kann.
Gruß,
John

Sub kopie() Application.ScreenUpdating = False Worksheets("DatenauswertungWerktage").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:= _ ThisWorkbook.Path & "\DatenauswertungWerktage" & Date Application.DisplayAlerts = True ActiveWorkbook.Close SaveChanges:=False Worksheets("DatenauswertungWE").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:= _ ThisWorkbook.Path & "\DatenauswertungWE" & Date Application.DisplayAlerts = True ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Erhebnungsbogen mit Kontrollkästchen

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Erhebnungsbogen mit Kontrollkästchen

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

35
Beiträge zum Forumthread

Beiträge zu diesem Forumthread