Laborwerte nach Datum(Monat) abspeichern

Hallo liebe Forumsmitglieder,
ich arbeite in einem Blutplasmaspendezentrum und möchte ein Formular vereinfachen mit dem täglich gearbeitet wird.
Und zwar gibt es da eine Arbeitsmappe mit 12 Tabellenblättern, eins für jedes Monat (+ ein Eingabeblatt) .
In dem Eingabeblatt wird ein Laborwert eingegeben, zusätzlich die dazugehörige Kundennummer und ein Feld für die Initiale des Labormitarbeiters der die Analyse durchgeführt hat. ( also Kundennummer, Laborwert, und Initiale).
Das aktuelle Datum wird auf der Eingabemaske per Befehl (HEUTE) ausgewiesen und das Monat steht in Textform separat in einer Zelle.
Dieser Datensatz bestehend aus Kundennummer - Laborwert - Initiale, soll dann mit einem Button "Speichern und übertragen" in das jeweilige Monats-Tabellenblatt übertragen werden, wo dann eine simple Liste entstehen soll die dann für Statistiken und Auswertungen herangezogen wird. (das passiert dann aber eine Managerebene höher)
Was ich bisher geschafft habe:
Eingabemaske für 3 Datensätze (man hat manchmal bis zu drei Kunden gleichzeitig)
Begrenzung der Daten-Eingabe durch drop-down
Nur ein vollständiger Datensatz wird (kann) abgespeichert werden.
Ein Makro aufgezeichnet das den Datensatz in Listenform auf dem Eingabeblatt abspeichert.
Was ich nicht geschafft habe und gerne begreifen würde:
das Excel das Monat ausliest in dem der Datensatz erhoben wurde und dann den Datensatz mit Button "Speichern und übertragen" dann in das gleichnamige Tabellenblatt ablegt und speichert.
vielen Dank
Stefan
https://www.herber.de/bbs/user/141327.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub in_Monatsblaetter_uebertragen() Dim str_blattname As String Dim obj_wks_ziel As Worksheet Dim obj_wks_eingabe As Worksheet Dim lng_letzte_zeile As Long Set obj_wks_eingabe = ThisWorkbook.Worksheets("Eingabeblatt") ' In Monatsblatt übertragen str_blattname = obj_wks_eingabe.Range("B1") Set obj_wks_ziel = ThisWorkbook.Worksheets(str_blattname) With obj_wks_ziel lng_letzte_zeile = .Cells(Rows.Count, 1).End(xlUp).Row .Cells(lng_letzte_zeile, 1) = obj_wks_eingabe.Range("A19") .Cells(lng_letzte_zeile, 2) = obj_wks_eingabe.Range("B19") .Cells(lng_letzte_zeile, 3) = obj_wks_eingabe.Range("C19") End With End Sub

Public Sub in_Monatsblaetter_uebertragen() Dim str_blattname As String Dim obj_wks_ziel As Worksheet Dim obj_wks_eingabe As Worksheet Dim lng_letzte_zeile As Long Set obj_wks_eingabe = ThisWorkbook.Worksheets("Eingabeblatt") ' In Monatsblatt übertragen str_blattname = obj_wks_eingabe.Range("B1") Set obj_wks_ziel = ThisWorkbook.Worksheets(str_blattname) With obj_wks_ziel lng_letzte_zeile = .Cells(Rows.Count, 1).End(xlUp).Row If lng_letzte_zeile = 1 Then lng_letzte_zeile = 2 End If .Cells(lng_letzte_zeile, 1) = obj_wks_eingabe.Range("A19") .Cells(lng_letzte_zeile, 2) = obj_wks_eingabe.Range("B19") .Cells(lng_letzte_zeile, 3) = obj_wks_eingabe.Range("C19") End With End Sub

Beliebteste Forumthreads (12 Monate)

Laborwerte nach Datum(Monat) abspeichern

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laborwerte nach Datum(Monat) abspeichern

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread