Hallo,
ich habe ein Stammblatt von meinem Unernehmen, leider in Excel ein kopieren zu Word hat nicht funktioniert!
Nun würde ich gerne die Adresse im Kopf über die Daten des zweiten Blattes ergänzen und dann entsprechend drucken oder speichern!
Im Endeffekt ähnlich der Serienbrieffunktion von Word, gibt es hierzu überhaupt eine Möglichkeit?
Könntest du das etwas genauer beschreiben? Am besten mit einer Beispieldatei und der Erklärung, was du von wo nach wo erreichen möchtest.
Hallo,
schau mal unter dem Register Seitenlayout bei Seite einrichten: Drucktitel
Da kannst Du bei Wiederholungszeilen angeben, welche Zeilen auf jeder Druckseite (wiederholt) erscheinen sollen.
Gruß Uwe
Habe mal eine einfache Datei angefügt;
Auf Blatt 1 soll die Adresse stehen zu je einem Kunden (das ganze drumherum habe ich mal entfernt) von Blatt 2, sprich ich drucke oder speichere das Blatt jeweils ab pro Adresse von blatt 2!
Bei Word funktioniert das ja einfach über die Serienbrief-Funktion!
So ganz klar ist das immer noch nicht. Wenn du die Adresse auf dem ersten Tabellenblatt haben möchtest, könntest du den Firmennamen per Dropdown (Datengültigkeit) holen und den Rest per Sverweis holen.
Sollen mehrere Adressen in einem Durchgang (wie beim Serienbrief in Word) verarbeitet werden, geht das nur über VBA.
Hallo,
fürs Drucken:
Code:
Option Explicit
Public Sub Seriendruck()
Dim loLetzte As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle2")
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 2 To loLetzte
.Range(.Cells(i, 1), .Cells(i, 5)).Copy
Worksheets("Tabelle1").Range("B2").PasteSpecial Paste:=xlPasteValues, Transpose:=True
.Range(.Cells(i, 6), .Cells(i, 9)).Copy
Worksheets("Tabelle1").Range("F3").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
'hier dann statt PrintPreview PrintOut
Worksheets("Tabelle1").PrintPreview
Next i
End With
Worksheets("Tabelle1").Range("B2:B6").ClearContents
Worksheets("Tabelle1").Range("F3:F6").ClearContents
End Sub
Gruß Werner