AW: 4 excel docs auf eine seite
04.03.2006 19:30:52
Reinhard
Hi Fabio,
beim Abschreiben hattet du einige Fehler, benutze wie hier Option Explicit, dann meldet sich der Debugger bei jedem Fehler. Du hattest Integr anstatt Integer, x1 anstatt xl (xL) und aus .name hast du .sheet1 geacht.
aber auch Hans hatte wohl nen schlechten Tag :-), der Code kann (abgesehen von einer Ausnahme) nie durchlaufen.
Die Ausnahme ist dass schon Shapes auf dem Blatt sind. Ansonsten kommt nach
For iwks = 3 to 5
bei
ActiveSheet.Shapes(iWks - 1).Select
logischerweise ein Fehler, da es erst ein Shape gibt.
Weiterhin klappt es bei meinem XL2000 nicht einem Shape ein Formula zuzuweisen.
Option Explicit
Sub Foto()
Dim iWks As Integer, iRow As Integer
Call loesch
iRow = 1
'wichtig, Sammelblatt muss für diesen Code das erste Blatt in der Mappe sein, also worksheets1) !!
With Worksheets("Sammelblatt")
For iWks = 2 To 5
Worksheets(iWks).Range("A1:D16").CopyPicture _
Appearance:=xlScreen, Format:=xlBitmap
.Paste .Cells(iRow, (iWks Mod 2) * 4 + 1)
iRow = iRow + 17 * (iWks Mod 2)
Next iWks
Range("A1").Select
ActiveSheet.PrintPreview
End With
End Sub
Sub loesch()
Dim sh As Shape
For Each sh In Worksheets("Sammelblatt").Shapes
sh.Delete
Next sh
End Sub
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..