Excel Makro mit Briefpapier und Tabelle

Ich habe also mein Briefpapier mit Kopf- und Fußzeile und zusätzlich immer den gleichen Text. Bei Druck auf den Button in Excel soll er diese Vorlage nehmen und die aktuelle Tabelle einfügen. Die Tabelle ist dabei immer gleich breit, nur die Anzahl
der Zeilen kann sich ändern.

Du gehst das Problem falsch herum an. "Die aktuelle Tabelle einfügen" ist viel zu aufwendig.

Viel einfacher ist es immer die gleiche Tabelle drin zu haben und einfach die Daten einfach zu kopieren.

Also:

Blatt A einhält die Daten in welcher Form auch immer, sinnvoll ist zeilenweise.

Blatt B enthält das Schreiben mit einer Tabelle (besser gesagt einen Bereich) für das Maximum an Daten.

Blatt B passt Du so an das der Ausdruck "schön" aussieht.

Nehmen wir mal an Du wählst eine Zelle in A aus. Dann kann Dein Makro via

Dim Source As Range

Set Source = Range("A" & ActiveCell.Row, Cells(ActiveCell.Row, Columns.Count)).End(xlToLeft)

die Daten in der Zeile ermitteln.

Da der Zielbereich ist immer gleich ist macht man es sich einfach und benennt diesen mit einem Namen.

Dim Dest As Range

Set Dest = Worksheets("Blatt B").Range("Daten")

'Alle Zeilen einblenden

Dest.EntireRow.Hidden = False

'Inhalt löschen

Dest.ClearContents

Nun musst Du nur noch die Daten von Source nach Dest kopieren, ggf. die unbenutzten Zeilen ausblenden, ausdrucken, fertig.

Andreas.

Vielen Dank für die schnelle Antwort.

Generell finde ich die Lösung gut ... allerdings habe ich das Problem, dass die Anzahl der Zeilen variiert und ich kein Maximum festlegen kann.

Letztlich befindet sich unter der Tabelle nur noch ein "Mit freundlichen Grüßen, ...", sodass man das in das makro vielleicht aufnehmen kann?!

VG

PS: Ich habe das Ganze als Tabelle formatiert, falls das hilft ...

Wir benutzen Excel 2013 zur Rechnungsstellung. Daher möchte ich in Excel ein Briefpapier im A4 Format einbetten, welches sich dann automatisch in den Hintergund legt und sowohl im pdf, als auch in gedruckter Form auf dem Blatt zu sehen ist.

Dieses Briefpapier hatte ich nun im Format A4 angelegt, oben im Kopfbereich steht der Firmenname, unten im Fußbereich die Kontaktdaten.

Der Weg, dieses Briefpapier (png oder jpg-Datei) über die Kopf- bzw. Fußzeile einzufügen, ist leider fehlerhaft.

Folgende Probleme bestehen:

1) Die eingefügte Grafik im Format A4 legt sich nicht in den Hintergrund

2) Obwohl die eingefügte Grafik die Abmaße 21 x 29,7cm aufweist (ist über "Grafik formatieren" auch so eingestellt), legt sich diese nicht korrekt, also verzerrt über die Seite.

Wie kann ich diese 2 Probleme lösen bzw. gibt es einen besseren Weg eine Art Briefpapier in Excel zu hinterlegen?

(Die Variante eine Excel-Tabelle in Word einzufügen ist aus unserer Sicht auch nur mangelhaft gelöst, da zu viele Funktionen fehlen und auch die Formatierung immer wieder verrutscht / verzerrt)

Für Hilfe bin ich sehr dankbar.

Hallo vesparchitekt,

entschuldige bitte zuerst die verspätete Antwort.

Ich denke, dass dein Anliegen am besten in unserem
MSDN Forum betreut werden kann. Diese ist nähmlich unsere Support-Plattform für Entwickler, ich glaube, dass das was du machen möchtest durch einen Makro/VBA möglich ist. Das Thema wird in diesem Forum täglich unterstützt.

Solltest du weitere Fragen haben, bin ich selbstverständlich für dich da.

MfG

Hallo Claus,

vielen Dank für deine Antwort und das Angebot mir ein Makro zu schreiben.

Ich muss dann wohl an dieser Stelle erwähnen, dass ich nur grundlegende Kenntnisse in Excel habe und die Excel Tabelle auf die schnelle zusammengeschustert habe.

ich werde mir Deine Anmerkungen in der Tabelle anschauen und die ausgebesserte Mappe wieder hochladen.

Kann aber ein bisschen dauern

Viele Grüße,

Tomislav

Hallo Peter,



ein Filtern über Zeilen ist mit Excel-Bordmitteln so nicht möglich. Entweder du schreibst dir ein Makro oder du transponierst dir die Tabelle auf ein anderes Blatt und arbeitest mit den eingebauten Filtern.



Mit freundlichen Grüßen

Claus