vor dem Ausdruck möchte ich noch einige Zeilen umformatieren.
Hierzu muss ich den Blattschutz aufheben.
Nachfolgend habe ich den Code.
Sheets("Kosten-Nutzen Arbeitgeber").Visible = True
Sheets("Kosten-Nutzen Arbeitgeber").Select
If Worksheets("Eingabe BAV-Konzept Arbeitgeber").Range("b178") = "j" Then
Range("I405:I413").Select
Selection.NumberFormat = "#,##0.00_ ;[Red]-#,##0.00 "
Else
Range("I405:I413").Select
Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Selection.NumberFormat = "#,##0.0 $;[Red]-#,##0.0 $"
Selection.NumberFormat = "$#,##0_);[Red]($#,##0)"
End If
With Sheets("Kosten-Nutzen Arbeitgeber")
.Visible = True
.PageSetup.LeftFooter = "&8" & ThisWorkbook.Worksheets("Dateneingabe").Range("b395")
.PageSetup.CenterFooter = _
"&8Das Programm wurde mit größter Sorgfalt erstellt. " & Chr(10) & "Dennoch können Fehler vorhanden sein, für die wir keine Haftung übernehmen." & Chr(10) & "Bitte beachten Sie die Ausführungen >> Annahmen - Hinweise .PageSetup.RightFooter = "&8&D - &T"
.PrintOut from:=6, To:=6, preview:=True
.Visible = False
End With
Worksheets("Eingabe BAV-Konzept Arbeitgeber").Select
End If
Wer kann mir hier helfen und gfs. den Code optimieren.
Danke im Voraus
grüsse
selma