Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Laborwerte nach Datum(Monat) abspeichern

Betrifft: Laborwerte nach Datum(Monat) abspeichern von: Stefan
Geschrieben am: 05.11.2020 10:43:19

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

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Oberschlumpf
Geschrieben am: 05.11.2020 11:53:20

Hi Stefan,

na, und wo genau in den Monatsblättern sollen die Werte eingetragen werden?
Zeig doch bitte noch mal ne Bsp-Datei, in der auch in den Monatsblättern Bsp-Daten eingetragen sind.

Ciao
Thorsten

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 05.11.2020 15:49:04

Hallo,

das Monatstabellenblatt hier am Beispiel Jänner soll dann so ausschauen
https://www.herber.de/bbs/user/141338.xlsx

es werden pro Monat ca 100-200 Messungen durchgefürt, also es soll am Monatsende einfach nur eine simple Auflistung sein.

danke lg

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Regina Resch-Jansen
Geschrieben am: 05.11.2020 13:45:58

Hi,
meinst Du so?
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
Gruß Regina

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 05.11.2020 15:44:15

Hallo,

das Monatstabellenblatt hier am Beispiel Jänner soll dann so ausschauen
https://www.herber.de/bbs/user/141338.xlsx

es werden pro Monat ca 100-200 Messungen durchgefürt, also es soll am Monatsende einfach nur eine simple Auflistung sein.

danke lg

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Regina Resch-Jansen
Geschrieben am: 05.11.2020 17:34:05

...dann müsste der Code doch passen, oder?

Regina

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Armin
Geschrieben am: 05.11.2020 19:07:49

Hallo Stefan,
ich habe Dir einmal eine andere Version mit Userform erstellt. Villeicht gefällt Dir das auch und Du kannst es nutzen.
Bitte Kommentar im Sheet beachten!
https://www.herber.de/bbs/user/141342.xlsm

Gruß Armin

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 07.11.2020 09:38:15

Hallo Armin,

danke für den Beitrag,

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 07.11.2020 09:25:40

Hallo Regina,

der Code passt,
mein Monatsblatt-Beispiel bezieht sich auf einen anderen Forumsuser, der ein Beispiel brauchte wie die Monatsblätter ausgefüllt ausschauen sollen.
Ich habe da irrtümlich damit an dich geantwortet,

lg Stefan

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Regina Resch-Jansen
Geschrieben am: 07.11.2020 10:42:57

prima, Danke für die Rückmeldung.

Gruß Regina

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 08.11.2020 11:24:06

Hallo Regina,


wie geht das, dass im "Monatsblatt" dann eine (Endlos)Liste entsteht, quasi als Nachweis bzw Übersicht für alle im "November" getätigten Analysen.

aktuell wird der letzte Eintrag vom "aktuellen" überschrieben sodass nur immer eine beschriebene Zeile zustande kommt.
https://www.herber.de/bbs/user/141397.xlsm


danke..

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Regina Resch-Jansen
Geschrieben am: 08.11.2020 12:14:38

Hi,
ich war davon ausgegangen, dass auf den Monatsblättrn immer in Zeile 1 Überschriften stehen, wenn das nicht der Fall ist, dann so:
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
Gruß Regina

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 08.11.2020 12:33:00

vielen Dank für die Hilfe

Betrifft: AW: Laborwerte nach Datum(Monat) abspeichern
von: Stefan
Geschrieben am: 08.11.2020 12:34:48

ich war davon ausgegangen, dass auf den Monatsblättrn immer in Zeile 1 Überschriften stehen, wenn das nicht der Fall ist, dann so:
stimmt, war mein Fehler, aber jetzt hab ich wieder etwas dazugelernt,

danke für die rasche Antwort und Hilfe