'Vorher
Columns("A").Replace What:="1", Replacement:=True, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Columns("A").Replace What:="", Replacement:=False, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Range("A1:E1000").Select
Selection.Copy


'nachher
KSplit() = Split(ActiveSheet.PageSetup.PrintArea, "$")
For i = 1 To KSplit(4)
    If Cells(i, 1) = "1" Then Cells(i, 1) = True Else Cells(i, 1) = False
Next
Range("A1:E" & KSplit(4)).Select
Selection.Copy