Blätter autom. ein-/ausblenden + drucken
22.07.2008 14:27:22
André
habe den u.g. Code verwendet, leider arbeitet er nur nicht so wie er soll.
Die entsprechenden Blätter werden so wie es sein soll ausgeblendet, und das erste Arbeitsblatt auch vernünftig ausgedruckt. Sowie auch wieder in seinem Ursprungszustand hinterlassen. Nur leider passiert dies nicht für die weiteren Arbeitsblätter.
Die weiteren Arbeitsblätter werden nicht so ausgedruckt, als wenn ich den Code manuell für jedes Blatt einzelnd starte, und auch nicht wieder in den Urspungszustand versetzt.
Als Alternative könnte ich natürlich den Befehl aufzeichnen in dem ich in jedes Arbeitsblatt gehe und den Befehl manuell ausführe. Nur habe ich dort wieder das Problem, das sich der Tabellenname ständig ändert.
Und später nicht mehr ausführen lässt.
Ich kann mir den Fehler nicht erklären.
Vielleicht hat ja einer von euch eine Ahnung woran das liegen könnte.
Gruß
André
Hier der Code:
Sub Druck_neu()
Sheets("WB").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Voreinstellungen").Select
ActiveWindow.SelectedSheets.Visible = False
Dim TB As Worksheet
For Each TB In Worksheets
If TB.Visible Then
TB.Unprotect Password:="pw"
TB.Rows("6:10").EntireRow.Hidden = Not Rows("6:10").EntireRow.Hidden
TB.Columns("H").EntireColumn.Hidden = Not Columns("H").EntireColumn.Hidden
TB.Columns("J").EntireColumn.Hidden = Not Columns("J").EntireColumn.Hidden
TB.Columns("c").EntireColumn.Hidden = Not Columns("c").EntireColumn.Hidden
TB.Columns("i").EntireColumn.Hidden = Not Columns("i").EntireColumn.Hidden
TB.Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
TB.Columns("b").EntireColumn.Hidden = Not Columns("b").EntireColumn.Hidden
TB.PrintOut Copies:=1, Collate:=True
TB.Rows("6:10").EntireRow.Hidden = Not Rows("6:10").EntireRow.Hidden
TB.Columns("H").EntireColumn.Hidden = Not Columns("H").EntireColumn.Hidden
TB.Columns("J").EntireColumn.Hidden = Not Columns("J").EntireColumn.Hidden
TB.Columns("c").EntireColumn.Hidden = Not Columns("c").EntireColumn.Hidden
TB.Columns("i").EntireColumn.Hidden = Not Columns("i").EntireColumn.Hidden
TB.Columns("g").EntireColumn.Hidden = Not Columns("g").EntireColumn.Hidden
TB.Columns("b").EntireColumn.Hidden = Not Columns("b").EntireColumn.Hidden
TB.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pw"
TB.Unprotect Password:="pw"
TB.Rows("6:10").EntireRow.Hidden = Not TB.Rows("6:10").EntireRow.Hidden
TB.Columns("H").EntireColumn.Hidden = Not TB.Columns("H").EntireColumn.Hidden
TB.Columns("c").EntireColumn.Hidden = Not TB.Columns("c").EntireColumn.Hidden
TB.Columns("i").EntireColumn.Hidden = Not TB.Columns("i").EntireColumn.Hidden
TB.Columns("b").EntireColumn.Hidden = Not TB.Columns("b").EntireColumn.Hidden
TB.Range("A2:S2").FormulaR1C1 = "Text 1"
TB.PrintOut Copies:=1, Collate:=True
TB.Range("A2:S2").FormulaR1C1 = "Text"
TB.Rows("6:10").EntireRow.Hidden = Not Rows("6:10").EntireRow.Hidden
TB.Columns("H").EntireColumn.Hidden = Not TB.Columns("H").EntireColumn.Hidden
TB.Columns("c").EntireColumn.Hidden = Not TB.Columns("c").EntireColumn.Hidden
TB.Columns("i").EntireColumn.Hidden = Not TB.Columns("i").EntireColumn.Hidden
TB.Columns("b").EntireColumn.Hidden = Not TB.Columns("b").EntireColumn.Hidden
TB.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="pw"
End If
Next
Sheets("Voreinstellungen").Visible = True
Sheets("WB").Visible = True
Sheets("Voreinstellungen").Select
End Sub