VBA fortlaufende Nummerierung -Abänderung_

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michael,
Danke, das du mal drüber geschaut hast. Habe sowas fast geahnt. Nichts desto Trotz- wage ich mich an die neue Idee.
Habe allerdings versucht, meine schon fertigen Dateien gekonnt hier einzuarbeiten.
Habe dazu ein neues Layout erstellt, womit ich auch vorhandenes weiter nutzen kann. Es sind nicht wenige. Aber der Reihe nach-
Ich erzeuge aus vorhandenen Mappen- (ist immer Tabelle1) eine Tabelle Bearbeiten, die alle Datensätze fortlaufend- ohne Lücken, Verbundene Zellen, etc. eine Tabelle mit dem Namen "Bearbeiten" das geht auch schon. Dort kann ich die Datensätze bearbeiten.
Habe ich noch keine vorhandene Mappe, erstelle ich mir eine leere Tabelle Bearbeiten, füge dort Datensäte ein. Das geht auch.
Ist diese Tabelle " Bearbeiten" fertig- entweder Neu erstellt- oder Alte Bearbeitet, soll Sie übertragen werden.
Dazu sind gibt zwei Layout-Vorlagen. Eine Startblatt- das ist für 30 Datensätze ab der Zeile 20 - 49 zum Befüllen und eine Endblatt-, da passen Maximal 15 Datensätze ab Zeile 20 - 35 zu Befüllen.
Und nun die große Frage: Ein Makro- für das Einarbeiten der Datensätze.
Würde gern so vorgehen.
* Startblatt- In eine neu zu Erstellende "Tabelle1" ( sollte unbedingt so heißen) kopieren,
* die ersten 30 Datensätze aus der Tabelle " Bearbeiten" als Werte einfügen
* Vielleicht im Blattkopf, wo Blatt Nr. steht eine 1 eintragen
* Die nächsten 30 Datensätze aus "Bearbeiten" in ein neues Blatt Layout Startblatt ans
Ende der Tabelle 1 kopieren, wo Blatt Nr. steht eine 2 eintragen,
* Die nächsten 30 Datensätze aus "Bearbeiten" in ein neues Blatt der Kategorie Startblatt,
dies an das der Ende der Tabelle 1 kopieren, wo Blatt Nr. steht eine 3 eintragen,
****** usw. Es können bis zu 5000 Zeilen Sein- die in A4 Seiten sollen...
* Am Schluss, wenn alle vorhandenen Zeilen in neu erstellte nacheinander aufgeführte A4 Seiten übertragen wurden, das "Ende-Blatt" anfügen. wo Blatt Nr. steht eine ... eintragen
Im Ende-Blatt passen nur 15 Zeilen, diese können aber auch leer bleiben, wenn es einfacher ist- nur in die 30 er Start-Blätter einzufügen.
Nun ich habe es mal versucht- so genau wie möglich zu beschreiben.
https://www.herber.de/bbs/user/109047.zip
Ist bestimmt sehr kompliziert. Aber mir würde da viel daran liegen.
Vielleicht ist dies ja möglich.
LG Andi

Hi Andi,
ich mache ja nicht immer, was man mir sagt: so auch hier nicht:
Die Daten und Formulare sind ok; genau so hatte ich es mir vorgestellt.
Aber: wozu x-1000e Zeilen mit Kopien des Formulars erzeugen? Ausdrucken geht viel einfacher: pro Seite wird das Formular mit Werten gefüllt, dann wird die Seite gedruckt (im Makro rufe ich hier nur die Druckvorschau auf; den Befehl .PrintPreview ersetzt Du zum Drucken durch .PrintOut - fertig.
Ich habe noch ein paar Gimmicks eingebaut:
- eine MsgBox, die nach n (einzugebender Wert in grün) Seiten erscheint: die könnte man auch mit Buttons für Weiter/Abbruch usw. garnieren. So was ist je nach Drucker ganz nützlich; falls der gerne Papierstau produziert, nimmst Du einen kleinen Wert, falls nicht, irgendwas, was größer ist als die Anzahl der Seiten: dann kommt sie gar nicht.
- Seiten von .. bis, dann kannst Du evtl. mal ein, zwei Seiten "zwischendrin" nachträglich ausdrucken, falls der Drucker mal Schwierigkeiten bei der Zufuhr hatte und statt einer ganzen zwei "halbe" Seiten ausgibt.
Man könnte das Makro natürlich auch so anpassen, daß tatsächlich ein Tabellenblatt mit der kompletten Ausgabe erfolgt; da das Protokoll aber sowieso gedruckt und mit Originalunterschrift versehen wird, würde ich es eher hinterher nochmal durch den Scanner jagen und mit Unterschrift PDFisieren.
Die Datei: https://www.herber.de/bbs/user/109063.zip
Schöne Grüße,
Michael

Man könnte das Makro natürlich auch so anpassen, daß tatsächlich ein Tabellenblatt mit der _ kompletten Ausgabe erfolgt; da das Protokoll aber sowieso gedruckt und mit Originalunterschrift versehen wird, würde ich es eher hinterher nochmal durch den Scanner jagen und mit _ Unterschrift PDFisieren.

Beliebteste Forumthreads (12 Monate)

VBA fortlaufende Nummerierung -Abänderung_

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA fortlaufende Nummerierung -Abänderung_

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread