Suche Lösung in VBA

[Rabe]

Hi Patrick,

Ich würde aber gerne wissen, wie Du das mit dem Kopieren auf die nächste Seite gemacht hast.
da muss zwischen der Summen-Zeile und dem Unterschriften-Feld mindestens eine Leerzeile sein. Ich habe im Code nichts gefunden, was das Kopieren auf die nächste Seite angeht.

Am Liebsten hätte mein Chef gerne, dass das Unterschriften-Feld immer am Ende der Seite steht.

ich habe in den Druckseiteneinstellungen angekreuzt, daß die erste Seite anders ist und dann die Wiederholungszeilen auf die drei Zeilen eingestellt.

Das Problem ist, daß nicht vorher klar ist, wieviel Zeilen auf der ersten Seite sind, da es ja auch vielzeilige Zellen geben wird. Dann kann nicht einfach gezählt und entsprechend viele Leerzeilen eingefügt werden.
Deshalb:
Für das Unterschriften-Feld ganz unten sehe ich keine Chance mit meinen Kenntnissen.

[Käpt'n Blaubär]

Hallo Ralf,

Für das Unterschriften-Feld ganz unten sehe ich keine Chance mit meinen Kenntnissen.

die ganz allereinfachste Lösung dafür dürfte sein, das letzte Blatt als Extrablatt nur aus einer Unterschriftenzeile / -Gruppe
bestehen zu lassen. Das sieht man massenhaft z.B. heutigentags in Arztbriefen.

Da jeder Ducker ohnehin seine eigene Vorstellung von Größe und Zeilenanzahl eines Blattes usw. mitbringt, dürfte das
wahrscheinlich die einfachste Lösung sein. Sonst ist ständig Druckseitenanpassung der Texte "... damit es auch was hermacht",
angesagt.

[Rabe]

Hi,

die ganz allereinfachste Lösung dafür dürfte sein, das letzte Blatt als Extrablatt nur aus einer Unterschriftenzeile / -Gruppe
bestehen zu lassen. Das sieht man massenhaft z.B. heutigentags in Arztbriefen.

das ist aber nicht so gut, wenn alle Daten auch auf eine Seite passen würde, dann liegt ein zweites Papier dabei.

[Käpt'n Blaubär]

Hallo Ralf,

das war ja auch nur ein Vorschlag.

Ich hatte diesem Thread entnommen, daß Texte unterschiedlicher Längen aus verschiedenen Zellen
zusammengesucht werden sollen. Gedanklich habe ich dann wohl den Sprung von einer auf mehrere
Seiten vollzogen.

Na ja, ich habe böseste Erfahrungen mit Druckern und deren Druckseitenvorgaben gemacht. Allerdings
ist das auch schon Jahre hin.

[Rabe]

Hi Peter,

das war ja auch nur ein Vorschlag.
[...]
Na ja, ich habe böseste Erfahrungen mit Druckern und deren Druckseitenvorgaben gemacht. Allerdings
ist das auch schon Jahre hin.

der ist ja auch grundsätzlich eine gute Idee!

Das mit den Druckern ist immer noch eine knifflige Sache, drum geht das auch über meine Kenntnisse.

[Käpt'n Blaubär]

Hallo Ralf,

Das mit den Druckern ist immer noch eine knifflige Sache, drum geht das auch über meine Kenntnisse.

Ich habe das damals, denke ich, recht einfach gelöst. In meinen Büros hatte ich etliche unterschiedliche
Drucker. Da ich keinen Einfluß auf die Druckersoftware nehmen konnte, habe ich eben für jeden einzelnen
Drucker eigene Formulare erstellt bzw. angepaßt. Das gab dann druckbildmäßig ein gleiches Aussehen.
Heute benutze ich in allen Büros die gleichen externen Geräte. Das macht die Sache wesentlich einfacher.

Ach ja, meine Gründerjahre waren schon spannend.

Ich wollte gerade schreiben, daß ich mir den Thread mal anschaue, aber 45 Postings zu lesen, nur um zu erfahren,
worum es geht, das muß ich mir nicht wirklich antun.

[ToXiC]

Nein, das erwartet auch keiner. Die meisten Beiträge sind auch nicht mehr relevant, da ich das durch die Hilfe hier ja gelöst bekommen habe.

es geht darum, dass diese eine Zeile (ein Unterschriften-Feld aus verbundenen Zellen) immer ans Ende der Seite gestellt wird:


Deckblatt

	B	C	D	E	F	G	H	I
35
36	Arbeitspaket abgeschlossen: _____________________________________                                             ________________________________________ Datum / Unterschrift AP-Verantwortliche/r                                                    Datum / Unterschrift Projektleiter/in

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Wenn dann dieser Bereich bis auf eine Zwischen-Zeile auf die Unterschriften-Zeile trifft ist alles gut:

Deckblatt

	B	C	D	E	F	G	H	I
23	Lfd-Nr.	Arbeitsschritte/ Aktivitäten		Verantwortlich	Mitwirkende	Aufwand in Projekttagen	Invest	Ext. Kosten
24	1
25	2
26	3
27	4
28	5
29	6
30	7
31	8
32	9
33	10
34	Summe:					0,0	0 €	0 €
35

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Sobald das dann der Inhalt nicht mehr auf die Seite passt, soll die Unterschriften-Zeile ans Ende der zweiten Seite gestellt werden, was schon gelöst ist:

Deckblatt

	B	C	D	E	F	G	H	I
23	Lfd-Nr.	Arbeitsschritte/ Aktivitäten		Verantwortlich	Mitwirkende	Aufwand in Projekttagen	Invest	Ext. Kosten

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

und die Zeilen , die am Ende Arbeitsschritte/ Aktivitäten sollen fortlaufend weiter gezählt werden, die Summen-Zeile eben auch am Ende bleiben:

Deckblatt

	B	C	D	E	F	G	H	I
38	11
39	12
40	13
41	Summe:					0,0	0 €	0 €

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

Ob das überhaupt lösbar ist, wage ich zu bezweifeln.

Mir wurde für die Unterschriften-Zeile so eine Aussage abgeliefert: Mach aus der Unterschriftenzeile einen Named Range, den du bei jedem WorksheetChanged-Event an den Schluss verschiebst.

Aber das bringt mich nicht weiter, da ich ja nun noch viel weniger Ahnung habe, wie ihr .

Edit: Ich bin sogar zu blöd, diese Druckseiten-Einstellung zu finden. Aber ok, 5:30 klingelte der Wecker und jetzt schon fast 23:30 Uhr. Muss ins Bett. :)

[Käpt'n Blaubär]

Hallo,

ah ja, jetzt ist Einiges klarer. Ich Danke sehr für diese ziemlich präzise  Zusammenstellung.
Auch wenn noch ein paar Fragen offen sind.

Aber ich werde nun auch erst mal am Kopfkissen lauschen.

[Rabe]

Hi Patrick,

Sobald das dann der Inhalt nicht mehr auf die Seite passt, soll die Unterschriften-Zeile ans Ende der zweiten Seite gestellt werden, was schon gelöst ist:
[...]
und die Zeilen , die am Ende Arbeitsschritte/ Aktivitäten sollen fortlaufend weiter gezählt werden, die Summen-Zeile eben auch am Ende bleiben:
[...]
Mir wurde für die Unterschriften-Zeile so eine Aussage abgeliefert: Mach aus der Unterschriftenzeile einen Named Range, den du bei jedem WorksheetChanged-Event an den Schluss verschiebst.
[...]
Edit: Ich bin sogar zu blöd, diese Druckseiten-Einstellung zu finden. Aber ok, 5:30 klingelte der Wecker und jetzt schon fast 23:30 Uhr. Muss ins Bett. :)

erster Satz:
Unterschriften-Zeile am Ende der zweiten Seite ist noch nicht gelöst.
Du meintest die Kopfzeile der Arbeitsschritte am oberen Ende der zweiten und den folgenden Seiten. Stimmt, das ist gelöst. Siehe ganz unten hier in dem Beitrag die Wiederholungszeilen.

zweiter Satz:
Das passiert ja sowieso automatisch, wenn Arbeitsschritt-Zeilen eingefügt werden.

dritter Satz:
Auch wenn bei jedem WorksheetChange-Event der benannte Bereich "Unterschriften" verschoben werden könnte, muß ja gewußt werden, wo auf welchem Drucker bei welchen Einstellungen das Ende der zweiten, dritten usw. Seite ist.

vierter Satz:
das hat nix mit blöd zu tun:
"Menü Datei" - "Drucken" - ganz unten "Seite einrichten" - "Kopfzeile/Fußzeile" - "unterschiedliche erste Seite"   [edit]das braucht es gar nicht!
"Menü Seitenlayout" - "Drucktitel" - "Blatt" - "Wiederholungszeilen"


  Arbeitspaket - V2-4.xlsb (Größe: 27,8 KB / Downloads: 3)
Hier habe ich Dir mal das zweiseitige Dokument angehängt und den Bereich Unterschriften-Zelle mit dem Namen "Unterschriften" benannt (Zelle markieren und dann oben in der Bearbeitungszeile ganz links den Namen hinschreiben, oder "Menü Formeln" - "Namensmanager").

Wie ich jetzt aber die Unterschriften-Zelle an das Ende der Seite 2 bekomme, weiß ich nicht. Ich hoffe da auf die VBA-Experten!

[schauan]

Hallöchen,
Nur mal als Denkansatz - am Smartphone geht nicht mehr...
Man könnte beim Ausdruck eventuell das letzte Blatt mit eigener Fußzeile ausgeben und dort die Unterscriftsangaben rein packen.