Druckblätter per VBA selektieren
23.04.2008 14:01:00
Salim
Ich habe eine Arbeitsmappe mit 100 Arbeitsblätter, die je in A1,A2,A3 Zahlen enthalten.
Ich möchte die Worksheets, für welche A1=1;A2=2 und A3=3 selektieren und in der Seitenansicht anzeigen.
Dafür habe ich mir folgenden Code ausgedacht:
For Each wks In ThisWorkbook.Worksheets
If wks.Range("A1") = 1 And wks.Range("A2") = 2 And wks.Range("A3") = 3 Then
wks.Visible
wks.Outline.ShowLevels RowLevels:=1
wks.Outline.ShowLevels ColumnLevels:=1
wks.Select
End If
Next wks
Nur ich weiss nicht wie man alle wks gleichzeitig selektiert und dann in der Seitenansicht anzeigt.
Kann jemand helfen?
Gruss
Salim