Sub starten bei Ausdruck ausgewählter Tab.blätter
28.04.2005 12:10:23
Matthias
hier mein Problem:
Der User klickt auf verschiedene Tabellenblätter (z. B. Strg-Taste) und dann auf Seitenansicht.
Vor der Seitenansicht soll aber eine Routine laufen, die auf allen markierten Tabellenblättern ein bereits eingefügtes Shape sichtbar macht.
Meine Routine:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim blatt As Worksheet
If Range("Intern!g6") = 1 Then 'wenn 1 = OK, d.h. Text "Test" verschwindet
For Each blatt In Worksheets
With ActiveSheet
.shapes("Test").Visible = False
End With
Next blatt
Else
For Each blatt In Worksbooks
With ActiveSheet
.shapes("Test").Visible = True ' Text "Test" erscheint
End With
Next blatt
End If
End Sub
bringt aber nur ein Resultat auf dem ersten markierten Tab.blatt.
Wenn ich vor der Seitenansicht eine Routine über alle Blätter laufen lassen, verliere ich die Markierung der ausgewählten Blätter.
Nun hänge ich fest.....
Vielen Dank schon jetzt für Eure Tipps
MfG Matthias