ich habe folgenden Code, welcher mir ein neues Sheet erstellt und in dieses dann bestimmte Tabellen hineinkopiert.
Private Sub Auswahldrucken_Click()
Dim i As Integer
Dim druckbereich, drucksheets
Dim anzdb As Integer
Dim letztezeile As Integer
drucksheets = Array("GuV", "GuV", "Bilanz", "Bilanz", "KFR", "KFR") '
druckrange = Array("B13:M45", "B47:M60", "B13:M72", "B47:M60", "B13:M54", "B47:M60")
anzdb = Application.CountA(druckrange) ' Anzahl der verschiedenen Druckbereiche
' Erstellen temporäres Sheet, in welches gewünschten Tabellen kopiert werden
Worksheets.Add
ActiveSheet.Name = "tempdrucken"
' Kopiere gewünschten Tabellen in temporäres Sheet
letztezeile = 0 ' Initialisierung der Variablen
Sheets("tempdrucken").Activate
For i = 1 To anzdb
If Me.Controls("Checkbox" & i).Value = True Then
Sheets(drucksheets(i - 1)).Range(druckrange(i - 1)).Copy
With ActiveSheet.Cells(letztezeile + 1, 1)
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
letztezeile = ActiveSheet.UsedRange.Rows.Count
End If
Next i
Berichte_drucken.Hide
End Sub
Der Code funktioniert wunderbar. Mir ist nur aufgefallen, dass danach folgendes Makro eine Fehlermeldung bei "calculate" auslöst
Sub GoTo_GuVErgebnis()
Calculate '
Sheets("GuV").Activate
ActiveWindow.Zoom = 70
Cells(1, 2).Activate
End Sub
Woran kann das liegen? Wenn ich Calculate ausschalte, dann gibt es keine Fehlermeldung mehr. Allerdings benötige ich "calculate"? Was mache ich falsch? Vielen Dank für eure Hilfe!
Gruß
Fred