Patennscheine - Makro gesucht | HERBERS Excel Forum

Guten Tag
https://www.herber.de/bbs/user/105297.xlsm
Ich habe eine UserForm "Eingabe".
Hier werden Folgende Daten eingegeben
-Auftragsnummer
-Produktionsnummer
-Artikelnummer
-Artikelname
-Nutzen / Palette
-Gesamtnutzen
Auf dem Palettenschein sollen folgende Daten übernommen werden:
-Auftragsnummer = A3
-Produktionsnummer = A9
-Artikelnummer = A15
-Artikelname = A21
-Nutzen / Palette = A27
-Palettenummer = A33
Was ich jetzt genau suche :
Ich möchte die Palettenscheine durchnummeriert haben. Ausserdem soll die Nutzen / Palette der letzen Palette ggf angepasst werden.
Beispiel:
In der Userform wird Nutzen / Palette = 10000 und Gesamtnutzen = 95000 eingegeben.
Es werden die Palettenscheine 1-9 mit 10000 Nutzen / Palette gedruckt und Palette 10 mit 5000 Nutzen / Palette gedruckt.
kann mir da evtl jmd helfen oder hat jemand einen link zu etwas ähnlichen? hab leider im Archiv nix gefunden
danke fürs lesen
christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim i As Long With Worksheets("Tabelle1") For i = 1 To WorksheetFunction.RoundUp(CLng(TextBox6) / CLng(TextBox5), 0) .Range("A3") = TextBox1 .Range("A9") = TextBox2 .Range("A15") = TextBox3 .Range("A21") = TextBox4 If CLng(TextBox5) * i

Hi Christian,
mein XL schmiert bei UFs aus irgendeinem Grund manchmal ab: bei Deiner Datei LAUFEND.
Also habe ich die UF rausgeworfen und einen anderen Ansatz gewählt, der mir persönlich ohnehin besser gefällt.
Es gibt ein Blatt "Eingabe", in dem Du Deine Eingaben in Listenform machst, und ein Blatt "Formular", das zum Ausdrucken verwendet wird.
Ein Doppelklick in eine befüllte Zeile in "Eingabe" wirft das Makro an: die Zeile

Sheets("Formular").PrintPreview

zeigt erst mal die Druckvorschau, die kannst Du dann ersetzen durch xxx.PrintOut.
Kernstück sind die zwei gelb markierten Formeln, die die Nr. der Palettenscheine von/bis (z.B. 1-3) und den Rest, der auf dem letzten Schein ausgedruckt wird, ermitteln.
Die Datei: https://www.herber.de/bbs/user/105316.xlsm
Wenn Du lieber eine UF hast, mußt Du es halt anders formulieren - die grundsätzliche Logik kannst Du ja so übernehmen (=REST heißt in VBA mod wie Modula).
Schöne Grüße,
Michael

Beliebteste Forumthreads (12 Monate)

Patennscheine - Makro gesucht

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Patennscheine - Makro gesucht

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread