Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Liste in zweite Mappe übertragen

Liste in zweite Mappe übertragen
16.10.2021 12:10:29
Stefan
Hallo liebe Forumsgemeinde,
ich verwende eine Eingabemaske die über einen Button befindlich in der Mappe "Hauptmappe" vom Tabellenblatt "Eingabeblatt" gestartet wird.
Über diese Userform wird im 1.Eingabefeld "Laufnummer" die Tageslaufnummer des Kunden eingegeben, weiters dadurch im Feld darunter eine bestimmte Kundennummer erzeugt.
Dann wird die Blutgruppe des Kunden im Feld unter Kundennummer eingegeben, und zuletzt noch das Handzeichen unter dem Feld Blutgruppe.
Dann lege ich den Datensatz mit dem Button "Daten ablegen" in der gleichen Arbeitsmappe auf Tabellenblatt "Blutgruppen" ab.
nächste Eingabe folgt, usw..
Nun soll am Tagesende jene Liste die auf dem Tabellenblatt "Blutgruppen" entstanden ist (in etwa immer so ca 15 - 20 Einträge), in die Mappe "Blutgruppenliste"(zweite Arbeitsmappe!,),unterteilt in Monatsblätter, in das entsprechende Monatsblatt exportiert werden, und die Liste in der Mappe "Hauptmappe",Tabellenblatt "Blutgruppen" gelöscht werden.
Mit dem Button "Daten übertragen" wird die zweite Mappe(Blutgruppenliste.xlsm) bereits geöffnet und das das aktuelle Monatsblatt angesprochen.
Dann die Mappe "Blutgruppenliste" gespeichert und wieder geschlossen.
Ich bitte hier bitte um Codezeilen die diesen Arbeitsschritt ((Liste aus Tabellenblatt "Blutgruppen" der Hauptmappe in zweite Mappe Blutgruppenliste Tabellenblatt (aktuelles Monatsblatt) übertragen), ausführen.
ps: bitte in der useform unter Commandbutton3 den Pfad anpassen
vielen lieben Dank
Stefan
https://www.herber.de/bbs/user/148640.xlsm
(Hauptmappe)
https://www.herber.de/bbs/user/148641.xlsm
(Blutgruppenliste)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste in zweite Mappe übertragen
16.10.2021 14:29:05
Piet
Hallo
das ist alles was ich nach -Workbooks(sDatei).Activate- neu eingefügt habe. Bei mir funktionierte es einwandfrei.
Mein Tipp, den Button zum Daten übertragen kann man auch in der Hauptmappe ins Blatt 1 einfügen und von dort starten. Dann muss der Codeteil allerdings auch in ein normales Modul übertragen werden.
mfg Piet
  • With ThisWorkbook.Worksheets("Blutgruppen")
    lng_letzte_Hzeile = .Cells(Rows.Count, 1).End(xlUp).Row
    lng_letzte_Bzeile = Wks_Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1
    If lng_letzte_Hzeile = 1 Then MsgBox "Die Liste ist leer": Unload Me '** oder Exit Sub
    .Range("A2:D" & lng_letzte_Hzeile).Copy _
    Wks_Ziel.Cells(lng_letzte_Bzeile, 1) 'direkt kopieren ohne Paste!
    .Range("A2:D" & lng_letzte_Hzeile).ClearContents
    End With
    Workbooks(sDatei).Save
    Workbooks(sDatei).Close
    End Sub

  • Anzeige
    AW: Liste in zweite Mappe übertragen
    16.10.2021 14:36:02
    Stefan
    hallo Piet
    vielen Dank für die Antwort und den Tipp
    Code funktioniert.
    danke
    Stefan
    AW: freut mich, Danke für die Rückmeldung oWt
    16.10.2021 14:38:54
    Piet
    ,,,

    Links zu Excel-Dialogen

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige