'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
    '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

    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