Problem mit PrintArea
20.12.2017 14:36:09
Thomas
Ich muss für viele Tabellen in verschiedenen Worksheets Anpassungen vornehmen (Die Tabellen haben alle das gleiche Layout). Das muss nur schnell gehen, den Code brauche ich nachher nicht mehr. Jetzt habe ich aber das Problem, dass bei PrintArea ein Fehler auftaucht (den Code habe ich von der Code-Aufzeichnung): Laufzeitfehler 1004. Die Eingegebene Formel enthält einen Fehler
Nach meiner Suche im Internet habe ich noch den Code mit Range und Address gefunden:
.PrintArea = Range("$J$3:$BN$67;$J$74:$BN$149;$J$153:$BN$228;$BP$3:$DT$67;$BP$74:$DT$149;$BP$153:$DT$228").Address
Laufzeitfehler '1004': Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen
Kann mir da jemand weiterhelfen?
Sub Makro2()
Dim a
For Each a In Sheets
Select Case a.Name
Case "Übersicht", "Settings", "full_universe", "Disclaimer"
Case Else
With Sheets(a.Name)
Sheets("Disclaimer").Range("J3:DT163").Copy
.Activate
.Range("J74").Select
.Paste
Application.CutCopyMode = False
With .PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.PrintArea = "$J$3:$BN$67;$J$74:$BN$149;$J$153:$BN$228;$BP$3:$DT$67;$BP$74:$ _
_
_
DT$149;$BP$153:$DT$228"
End With
End With
End Select
Next
End Sub
Vielen Dank
Thomas
Anzeige