Quasi als Fortsetzung des Problems von gestern
Foglender Code funktioniert ja dank euch perfekt bei den ausgeblendeten Blättern, jedoch lässt er nicht zu dass ich bei meinem Datenaufnahmeblatt (welches nicht gedruckt werden soll) die formatierung(bzw. formelbelegung) einzelner zellen ausblende.
Also meine unwissenheit zugrundelegend muss ich noch hinzufügen, dass die Inhalte dieser zellen auf die ausgblendeten "Ziel" Blätter übertragen werden.
Private Sub Antrag_Click()
Dim arrWks, wks
arrWks = Array("2. Antrag", "3. Übersicht", "4. Beratungsprotokoll", "5. Versicherungsbestä _
tigung")
Application.ScreenUpdating = False
For Each wks In arrWks
With Sheets(wks)
.Visible = xlSheetVisible
.PrintOut copies:=1
.Visible = xlSheetHidden
End With
Next
Application.ScreenUpdating = True
End Sub
schon einmal vielen dank im vorraus