2 Tabellenblätter in in eine kopieren und drucken
02.05.2008 17:20:45
mario
ich habe eine Mappe mit den Blättern "Jan, Feb bis Dez" und "Legende".
Ich möchte mit einem Button zum aktiven Blatt ein bestimmten Zellbereich "A2:AD12" aus dem Blatt "Legende" unten anfügen und dann auf ein Blatt drucken.
Im folgenden Code wird das aktive Blatt in eine neue Mappe (ohne Formeln) geöffnet und könnte schon gedrukt werden. Es sollte nun noch der ausgewählte Bereich aus"Legende" angefügt werden.
Hat jemand 'nen Tip wie ich das machen kann?!
Public Sub prcPrintForm()
Dim wbAktiv As Workbook
Set wbAktiv = ActiveWorkbook
Dim wbNeu As Workbook, iI As Integer
Dim AWS As String
ActiveWorkbook.ActiveSheet.Copy
Set wbNeu = ActiveWorkbook
Application.ScreenUpdating = False
'Formeln durch Werte ersetzen
wbNeu.Worksheets(1).UsedRange.Copy
wbNeu.Worksheets(1).UsedRange.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
'Farbpalette übernehmen
For iI = 1 To UBound(wbAktiv.Colors) ' Farben in Farbpalette, 56 bei Excel 97
wbNeu.Colors(iI) = wbAktiv.Colors(iI)
Next
Application.ScreenUpdating = True
AWS = wbNeu.FullName
Application.Dialogs(xlDialogPrint).Show
wbNeu.Close SaveChanges:=False
End Sub
