Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1136to1140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro "Fehler beim komplieren: Prozedur zu groß"

Makro "Fehler beim komplieren: Prozedur zu groß"
GHK
Hallo!
Habe das erste Mal ein Makro aufgenommen... Habe eigentlich nur banale Dinge vollzogen, aber wohl auf eine zu große Feldermenge, denn es kommt folgene Fehlermeldung, wenn ich das Makro ausführe:
"Fehler beim komplieren: Prozedur zu groß"
Kann man da noch was retten?!? Wahrscheinlich kann man wohl, die mega langen Blöcke wohl effizienter darstellen... nur kein Plan wie?!? Wenn ihr mir helfen könntet, wäre das wirklich sehr nett! Antworten bitte wie für einen Dummen, sonst kann ich es wohl nicht umsetzen.. :)
Sub Auswertung1()
' Auswertung1 Makro
' Makro am 09.02.2010 von Besitzer aufgezeichnet
ActiveCell.Select
ActiveCell.FormulaR1C1 = "='Arbeitsblatt exportieren'!RC"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:H1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:H1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A1004"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A1004").Select
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 948
ActiveWindow.ScrollRow = 946
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 936
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 927
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 918
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 883
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 741
ActiveWindow.ScrollRow = 725
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 703
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 718
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 739
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 766
ActiveWindow.ScrollRow = 769
ActiveWindow.ScrollRow = 773
ActiveWindow.ScrollRow = 775
ActiveWindow.ScrollRow = 778
ActiveWindow.ScrollRow = 783
ActiveWindow.ScrollRow = 789
ActiveWindow.ScrollRow = 790
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 797
ActiveWindow.ScrollRow = 799
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 806
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 811
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 818
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 839
ActiveWindow.ScrollRow = 841
ActiveWindow.ScrollRow = 843
ActiveWindow.ScrollRow = 845
ActiveWindow.ScrollRow = 846
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 855
ActiveWindow.ScrollRow = 860
ActiveWindow.ScrollRow = 866
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 871
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 876
ActiveWindow.ScrollRow = 878
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 889
ActiveWindow.ScrollRow = 892
ActiveWindow.ScrollRow = 894
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 904
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 918
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 925
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 931
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 955
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 960
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 971
ActiveWindow.SmallScroll Down:=7
Sheets("Arbeitsblatt exportieren").Select
ActiveWindow.SmallScroll Down:=9
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=3
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=19
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=24
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=27
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=11
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=1
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=15
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=19
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=19
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=19
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=-76
ActiveCell.Offset(-8, -8).Range("A1").Select
Sheets("Auswertung").Select
ActiveCell.Offset(1004, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1003]C:R[-1]C,"""")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1004]C:R[-2]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Arbeitsblatt exportieren").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Auswertung").Select
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=COUNTA(R2C1:R1004C1)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C=R[-2]C+R[-3]C,""Richtig"",""Falsch"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=7
ActiveCell.FormulaR1C1 = "=R[-3]C/R[-2]C"
ActiveCell.Select
Selection.Style = "Percent"
ActiveCell.Offset(-3, 0).Range("A1:A4").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:J4"), Type:= _
xlFillDefault
ActiveCell.Range("A1:J4").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1004]C:R[-2]C)"
ActiveCell.Offset(-1, -1).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:J1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:J1").Select
ActiveCell.Offset(9, 6).Range("A1").Select
ActiveWindow.ScrollRow = 981
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 976
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 930
ActiveWindow.ScrollRow = 848
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 598
ActiveWindow.ScrollRow = 458
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 219
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 173
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 166
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 159
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1012, -5).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF('Arbeitsblatt exportieren'!RC="""",'Arbeitsblatt exportieren'!RC,'Arbeitsblatt  _
exportieren'!RC*1)"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G1003"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G1003").Select
ActiveWindow.ScrollRow = 997
ActiveWindow.ScrollRow = 993
ActiveWindow.ScrollRow = 986
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 828
ActiveWindow.ScrollRow = 700
ActiveWindow.ScrollRow = 575
ActiveWindow.ScrollRow = 438
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 175
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 406
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 514
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 543
ActiveWindow.ScrollRow = 551
ActiveWindow.ScrollRow = 558
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 565
ActiveWindow.ScrollRow = 566
ActiveWindow.ScrollRow = 568
ActiveWindow.ScrollRow = 570
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 573
ActiveWindow.ScrollRow = 575
ActiveWindow.ScrollRow = 577
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 580
ActiveWindow.ScrollRow = 582
ActiveWindow.ScrollRow = 584
ActiveWindow.ScrollRow = 586
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 589
ActiveWindow.ScrollRow = 591
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 595
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 598
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 603
ActiveWindow.ScrollRow = 605
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 610
ActiveWindow.ScrollRow = 612
ActiveWindow.ScrollRow = 614
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 617
ActiveWindow.ScrollRow = 619
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 625
ActiveWindow.ScrollRow = 626
ActiveWindow.ScrollRow = 628
ActiveWindow.ScrollRow = 630
ActiveWindow.ScrollRow = 632
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 635
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 640
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 646
ActiveWindow.ScrollRow = 647
ActiveWindow.ScrollRow = 649
ActiveWindow.ScrollRow = 651
ActiveWindow.ScrollRow = 653
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 656
ActiveWindow.ScrollRow = 658
ActiveWindow.ScrollRow = 660
ActiveWindow.ScrollRow = 661
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 683
ActiveWindow.ScrollRow = 702
ActiveWindow.ScrollRow = 730
ActiveWindow.ScrollRow = 751
ActiveWindow.ScrollRow = 778
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 857
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 961
ActiveWindow.ScrollRow = 975
ActiveCell.Offset(1002, 0).Range("A1").Select
Sheets("Arbeitsblatt exportieren").Select
ActiveWindow.SmallScroll Down:=39
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=1
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=2
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=13
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=14
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=4
ActiveWindow.LargeScroll Down:=9
ActiveWindow.SmallScroll Down:=7
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=8
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=4
ActiveWindow.LargeScroll Down:=7
ActiveWindow.SmallScroll Down:=9
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=10
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=2
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-88
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-143
ActiveCell.Offset(-1, 2).Range("A1").Select
Sheets("Auswertung").Select
ActiveWindow.SmallScroll Down:=-5
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-22
ActiveWindow.LargeScroll Down:=-2
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-7
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-15
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-3
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-5
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-16
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-16
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-16
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-15
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-16
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-8
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1003, 0).Range("A1").Select
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 427
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 632
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 850
ActiveWindow.ScrollRow = 862
ActiveWindow.ScrollRow = 866
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 883
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 961
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 975
ActiveCell.Offset(1000, 6).Range("A1").Select
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 961
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 862
ActiveWindow.ScrollRow = 771
ActiveWindow.ScrollRow = 656
ActiveWindow.ScrollRow = 547
ActiveWindow.ScrollRow = 468
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 246
ActiveWindow.ScrollRow = 242
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 212
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 193
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1000, -6).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF('Arbeitsblatt exportieren'!RC="""","""",'Arbeitsblatt exportieren'!RC*1)"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G1003"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G1003").Select
Sheets("Arbeitsblatt exportieren").Select
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 873
ActiveWindow.ScrollRow = 872
ActiveWindow.ScrollRow = 866
ActiveWindow.ScrollRow = 855
ActiveWindow.ScrollRow = 823
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 571
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 129
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
Sheets("Auswertung").Select
ActiveWindow.ScrollRow = 983
ActiveWindow.ScrollRow = 981
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 523
ActiveWindow.ScrollRow = 404
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 136
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1, 7).Range("A1").Select
ActiveCell.FormulaR1C1 = "Alle Zeitstempel pro Sendung vorhanden?"
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Arbeitsblatt exportieren").Select
ActiveCell.Offset(-894, 6).Range("A1").Select
Sheets("Auswertung").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-6]="""",""Nein"",IF(RC[-3]="""",""Nein"",""Ja""))"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A1003"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A1003").Select
ActiveCell.Offset(1003, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1003]C:R[-1]C,""Nein"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1004]C:R[-2]C,""Ja"")"
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1003]C:R[-1]C,""Nein"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-1004]C:R[-2]C,""Ja"")"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R2C1:R1004C1)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=6
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C=R[-2]C+R[-3]C,""Richtig"",""Falsch"")"
ActiveCell.Offset(-3, 0).Range("A1").Select
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 977
ActiveWindow.ScrollRow = 972
ActiveWindow.ScrollRow = 965
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 894
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 641
ActiveWindow.ScrollRow = 487
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 203
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 111
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 127
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 132
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 141
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 150
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 162
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 167
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 173
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 176
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 180
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 185
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 185
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 203
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 208
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 219
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 224
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 233
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 236
ActiveWindow.ScrollRow = 238
ActiveWindow.ScrollRow = 240
ActiveWindow.ScrollRow = 242
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 245
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 254
ActiveWindow.ScrollRow = 256
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 293
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 300
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 305
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 316
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 364
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 372
ActiveWindow.ScrollRow = 374
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 379
ActiveWindow.ScrollRow = 381
ActiveWindow.ScrollRow = 383
ActiveWindow.ScrollRow = 385
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 388
ActiveWindow.ScrollRow = 390
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 395
ActiveWindow.ScrollRow = 397
ActiveWindow.ScrollRow = 399
ActiveWindow.ScrollRow = 401
ActiveWindow.ScrollRow = 402
ActiveWindow.ScrollRow = 406
ActiveWindow.ScrollRow = 408
ActiveWindow.ScrollRow = 410
ActiveWindow.ScrollRow = 411
ActiveWindow.ScrollRow = 413
ActiveWindow.ScrollRow = 415
ActiveWindow.ScrollRow = 417
ActiveWindow.ScrollRow = 418
ActiveWindow.ScrollRow = 420
ActiveWindow.ScrollRow = 422
ActiveWindow.ScrollRow = 424
ActiveWindow.ScrollRow = 425
ActiveWindow.ScrollRow = 427
ActiveWindow.ScrollRow = 429
ActiveWindow.ScrollRow = 431
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 434
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 438
ActiveWindow.ScrollRow = 440
ActiveWindow.ScrollRow = 441
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 447
ActiveWindow.ScrollRow = 448
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 452
ActiveWindow.ScrollRow = 454
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 459
ActiveWindow.ScrollRow = 461
ActiveWindow.ScrollRow = 463
ActiveWindow.ScrollRow = 464
ActiveWindow.ScrollRow = 466
ActiveWindow.ScrollRow = 468
ActiveWindow.ScrollRow = 470
ActiveWindow.ScrollRow = 471
ActiveWindow.ScrollRow = 473
ActiveWindow.ScrollRow = 475
ActiveWindow.ScrollRow = 477
ActiveWindow.ScrollRow = 479
ActiveWindow.ScrollRow = 480
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 486
ActiveWindow.ScrollRow = 489
ActiveWindow.ScrollRow = 491
ActiveWindow.ScrollRow = 493
ActiveWindow.ScrollRow = 494
ActiveWindow.ScrollRow = 496
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 500
ActiveWindow.ScrollRow = 501
ActiveWindow.ScrollRow = 503
ActiveWindow.ScrollRow = 505
ActiveWindow.ScrollRow = 507
ActiveWindow.ScrollRow = 509
ActiveWindow.ScrollRow = 510
ActiveWindow.ScrollRow = 512
ActiveWindow.ScrollRow = 514
ActiveWindow.ScrollRow = 516
ActiveWindow.ScrollRow = 517
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 530
ActiveWindow.ScrollRow = 532
ActiveWindow.ScrollRow = 533
ActiveWindow.ScrollRow = 535
ActiveWindow.ScrollRow = 537
ActiveWindow.ScrollRow = 539
ActiveWindow.ScrollRow = 540
ActiveWindow.ScrollRow = 542
ActiveWindow.ScrollRow = 544
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 547
ActiveWindow.ScrollRow = 549
ActiveWindow.ScrollRow = 551
ActiveWindow.ScrollRow = 553
ActiveWindow.ScrollRow = 556
ActiveWindow.ScrollRow = 558
ActiveWindow.ScrollRow = 560
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 565
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 570
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 574
ActiveWindow.ScrollRow = 576
ActiveWindow.ScrollRow = 578
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 583
ActiveWindow.ScrollRow = 586
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 592
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 595
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 601
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 606
ActiveWindow.ScrollRow = 608
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 613
ActiveWindow.ScrollRow = 615
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 618
ActiveWindow.ScrollRow = 620
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 624
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 631
ActiveWindow.ScrollRow = 632
ActiveWindow.ScrollRow = 634
ActiveWindow.ScrollRow = 636
ActiveWindow.ScrollRow = 638
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 643
ActiveWindow.ScrollRow = 645
ActiveWindow.ScrollRow = 648
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 652
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 659
ActiveWindow.ScrollRow = 661
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 664
ActiveWindow.ScrollRow = 666
ActiveWindow.ScrollRow = 668
ActiveWindow.ScrollRow = 670
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 673
ActiveWindow.ScrollRow = 677
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 680
ActiveWindow.ScrollRow = 682
ActiveWindow.ScrollRow = 684
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 689
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 696
ActiveWindow.ScrollRow = 700
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 705
ActiveWindow.ScrollRow = 707
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 714
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 721
ActiveWindow.ScrollRow = 723
ActiveWindow.ScrollRow = 724
ActiveWindow.ScrollRow = 726
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 730
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 735
ActiveWindow.ScrollRow = 737
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 751
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 755
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 778
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 843
ActiveWindow.ScrollRow = 853
ActiveWindow.ScrollRow = 859
ActiveWindow.ScrollRow = 864
ActiveWindow.ScrollRow = 871
ActiveWindow.ScrollRow = 880
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 892
ActiveWindow.ScrollRow = 898
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 905
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 936
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 961
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 975
ActiveCell.Offset(1, -7).Range("A1").Select
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 848
ActiveWindow.ScrollRow = 806
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 709
ActiveWindow.ScrollRow = 681
ActiveWindow.ScrollRow = 646
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 547
ActiveWindow.ScrollRow = 538
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 528
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 533
ActiveWindow.ScrollRow = 536
ActiveWindow.ScrollRow = 535
ActiveWindow.ScrollRow = 533
ActiveWindow.ScrollRow = 531
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 528
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 524
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 517
ActiveWindow.ScrollRow = 515
ActiveWindow.ScrollRow = 514
ActiveWindow.ScrollRow = 512
ActiveWindow.ScrollRow = 510
ActiveWindow.ScrollRow = 512
ActiveWindow.ScrollRow = 517
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 522
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 529
ActiveWindow.ScrollRow = 535
ActiveWindow.ScrollRow = 540
ActiveWindow.ScrollRow = 545
ActiveWindow.ScrollRow = 552
ActiveWindow.ScrollRow = 556
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 565
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 582
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 603
ActiveWindow.ScrollRow = 607
ActiveWindow.ScrollRow = 614
ActiveWindow.ScrollRow = 621
ActiveWindow.ScrollRow = 628
ActiveWindow.ScrollRow = 633
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 644
ActiveWindow.ScrollRow = 654
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 683
ActiveWindow.ScrollRow = 693
ActiveWindow.ScrollRow = 702
ActiveWindow.ScrollRow = 718
ActiveWindow.ScrollRow = 732
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 760
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 771
ActiveWindow.ScrollRow = 776
ActiveWindow.ScrollRow = 781
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 790
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 795
ActiveWindow.ScrollRow = 797
ActiveWindow.ScrollRow = 799
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 802
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 806
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 809
ActiveWindow.ScrollRow = 811
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 816
ActiveWindow.ScrollRow = 818
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 824
ActiveWindow.ScrollRow = 825
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 829
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 832
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 836
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 839
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 836
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 843
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 859
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 875
ActiveWindow.ScrollRow = 880
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 887
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 892
ActiveWindow.ScrollRow = 894
ActiveWindow.ScrollRow = 896
ActiveWindow.ScrollRow = 898
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 905
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 912
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 919
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 927
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 931
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 936
ActiveWindow.ScrollRow = 938
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 954
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 961
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 975
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1004]C:R[-2]C)"
ActiveCell.Offset(-2, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=7
ActiveCell.Offset(6, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Leeres Feld:"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.LargeScroll Down:=-2
ActiveWindow.SmallScroll Down:=-1
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-14
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-5
ActiveWindow.LargeScroll Down:=-6
ActiveWindow.SmallScroll Down:=-6
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-12
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-11
ActiveWindow.LargeScroll Down:=-1
ActiveWindow.SmallScroll Down:=-10
ActiveCell.Offset(-1008, 0).Range("A1").Select
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 317
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 481
ActiveWindow.ScrollRow = 548
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 650
ActiveWindow.ScrollRow = 657
ActiveWindow.ScrollRow = 662
ActiveWindow.ScrollRow = 664
ActiveWindow.ScrollRow = 666
ActiveWindow.ScrollRow = 667
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 671
ActiveWindow.ScrollRow = 673
ActiveWindow.ScrollRow = 675
ActiveWindow.ScrollRow = 676
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 680
ActiveWindow.ScrollRow = 682
ActiveWindow.ScrollRow = 683
ActiveWindow.ScrollRow = 685
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 689
ActiveWindow.ScrollRow = 690
ActiveWindow.ScrollRow = 692
ActiveWindow.ScrollRow = 694
ActiveWindow.ScrollRow = 696
ActiveWindow.ScrollRow = 697
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 701
ActiveWindow.ScrollRow = 703
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 706
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 710
ActiveWindow.ScrollRow = 712
ActiveWindow.ScrollRow = 713
ActiveWindow.ScrollRow = 715
ActiveWindow.ScrollRow = 717
ActiveWindow.ScrollRow = 719
ActiveWindow.ScrollRow = 720
ActiveWindow.ScrollRow = 722
ActiveWindow.ScrollRow = 724
ActiveWindow.ScrollRow = 726
ActiveWindow.ScrollRow = 727
ActiveWindow.ScrollRow = 729
ActiveWindow.ScrollRow = 731
ActiveWindow.ScrollRow = 733
ActiveWindow.ScrollRow = 734
ActiveWindow.ScrollRow = 736
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 740
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 743
ActiveWindow.ScrollRow = 745
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 754
ActiveWindow.ScrollRow = 756
ActiveWindow.ScrollRow = 757
ActiveWindow.ScrollRow = 759
ActiveWindow.ScrollRow = 761
ActiveWindow.ScrollRow = 763
ActiveWindow.ScrollRow = 764
ActiveWindow.ScrollRow = 766
ActiveWindow.ScrollRow = 768
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 771
ActiveWindow.ScrollRow = 773
ActiveWindow.ScrollRow = 775
ActiveWindow.ScrollRow = 777
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 780
ActiveWindow.ScrollRow = 782
ActiveWindow.ScrollRow = 784
ActiveWindow.ScrollRow = 786
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 789
ActiveWindow.ScrollRow = 791
ActiveWindow.ScrollRow = 793
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 796
ActiveWindow.ScrollRow = 798
ActiveWindow.ScrollRow = 800
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 805
ActiveWindow.ScrollRow = 807
ActiveWindow.ScrollRow = 809
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 812
ActiveWindow.ScrollRow = 814
ActiveWindow.ScrollRow = 816
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 819
ActiveWindow.ScrollRow = 821
ActiveWindow.ScrollRow = 823
ActiveWindow.ScrollRow = 824
ActiveWindow.ScrollRow = 826
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 854
ActiveWindow.ScrollRow = 872
ActiveWindow.ScrollRow = 898
ActiveWindow.ScrollRow = 921
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 951
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 976
Windows("Vorbereitung Anforderung Zeitstempel Van Huelst die Zweite.xls"). _
Activate
Windows("Airlines (020-6-2).xls").Activate
Application.CommandBars("Task Pane").Visible = False
ActiveCell.Offset(1004, -1).Range("A1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-1004]C:R[-2]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.SmallScroll Down:=7
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-1004]C:R[-2]C)"
ActiveCell.Offset(4, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-5]C+R[-4]C"
ActiveCell.Offset(-3, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R2C1:R1004C1)"
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-1004]C:R[-2]C)"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:G1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:G1").Select
ActiveCell.Offset(4, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:I1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:I1").Select
ActiveCell.Offset(-3, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R2C1:R1004C1)"
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1004]C:R[-2]C)"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-1004]C:R[-2]C)"
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[-1004]C:R[-2]C)"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R2C1:R1004C1)"
ActiveCell.Offset(-2, 1).Range("A1").Select
ActiveWindow.ScrollRow = 987
ActiveWindow.ScrollRow = 985
ActiveWindow.ScrollRow = 980
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 869
ActiveWindow.ScrollRow = 784
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 507
ActiveWindow.ScrollRow = 440
ActiveWindow.ScrollRow = 368
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 192
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 138
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 104
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 99
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 90
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 436
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 699
ActiveWindow.ScrollRow = 786
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 884
ActiveWindow.ScrollRow = 923
ActiveWindow.ScrollRow = 944
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 965
ActiveWindow.ScrollRow = 967
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 972
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 976
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 948
ActiveWindow.ScrollRow = 891
ActiveWindow.ScrollRow = 791
ActiveWindow.ScrollRow = 687
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-1004, 10).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(RC[-9],"""")=COUNT(RC[-9]),""!!!!!!!!"","""")"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A1003"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A1003").Select
ActiveWindow.ScrollRow = 1000
ActiveWindow.ScrollRow = 998
ActiveWindow.ScrollRow = 996
ActiveWindow.ScrollRow = 995
ActiveWindow.ScrollRow = 993
ActiveWindow.ScrollRow = 991
ActiveWindow.ScrollRow = 989
ActiveWindow.ScrollRow = 987
ActiveWindow.ScrollRow = 986
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 982
ActiveWindow.ScrollRow = 980
ActiveWindow.ScrollRow = 978
ActiveWindow.ScrollRow = 977
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 973
ActiveWindow.ScrollRow = 971
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 966
ActiveWindow.ScrollRow = 964
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 957
ActiveWindow.ScrollRow = 955
ActiveWindow.ScrollRow = 953
ActiveWindow.ScrollRow = 951
ActiveWindow.ScrollRow = 950
ActiveWindow.ScrollRow = 948
ActiveWindow.ScrollRow = 946
ActiveWindow.ScrollRow = 944
ActiveWindow.ScrollRow = 942
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 933
ActiveWindow.ScrollRow = 931
ActiveWindow.ScrollRow = 930
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 926
ActiveWindow.ScrollRow = 924
ActiveWindow.ScrollRow = 922
ActiveWindow.ScrollRow = 921
ActiveWindow.ScrollRow = 917
ActiveWindow.ScrollRow = 915
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 912
ActiveWindow.ScrollRow = 910
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 904
ActiveWindow.ScrollRow = 903
ActiveWindow.ScrollRow = 901
ActiveWindow.ScrollRow = 897
ActiveWindow.ScrollRow = 895
ActiveWindow.ScrollRow = 894
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 888
ActiveWindow.ScrollRow = 886
ActiveWindow.ScrollRow = 885
ActiveWindow.ScrollRow = 883
ActiveWindow.ScrollRow = 881
ActiveWindow.ScrollRow = 883
ActiveWindow.ScrollRow = 885
ActiveCell.Offset(897, -10).Range("A1").Select
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 11.71
ActiveCell.Columns("A:A").EntireColumn.ColumnWidth = 10.71
ActiveWindow.ScrollRow = 883
ActiveWindow.ScrollRow = 877
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 833
ActiveWindow.ScrollRow = 738
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 546
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 398
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 325
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 320
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 311
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 264
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 246
ActiveWindow.ScrollRow = 244
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 234
ActiveWindow.ScrollRow = 230
ActiveWindow.ScrollRow = 227
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 209
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 202
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 195
ActiveWindow.ScrollRow = 193
ActiveWindow.ScrollRow = 191
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 181
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 176
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 168
ActiveWindow.ScrollRow = 165
ActiveWindow.ScrollRow = 163
ActiveWindow.ScrollRow = 161
ActiveWindow.ScrollRow = 160
ActiveWindow.ScrollRow = 158
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 153
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 146
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 140
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 116
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 98
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 93
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 89
ActiveWindow.ScrollRow = 86
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 77
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 72
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 241
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 354
ActiveWindow.ScrollRow = 380
ActiveWindow.ScrollRow = 405
ActiveWindow.ScrollRow = 433
ActiveWindow.ScrollRow = 463
ActiveWindow.ScrollRow = 484
ActiveWindow.ScrollRow = 502
ActiveWindow.ScrollRow = 516
ActiveWindow.ScrollRow = 530
ActiveWindow.ScrollRow = 542
ActiveWindow.ScrollRow = 553
ActiveWindow.ScrollRow = 556
ActiveWindow.ScrollRow = 558
ActiveWindow.ScrollRow = 560
ActiveWindow.ScrollRow = 562
ActiveWindow.ScrollRow = 563
ActiveWindow.ScrollRow = 565
ActiveWindow.ScrollRow = 567
ActiveWindow.ScrollRow = 570
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 574
ActiveWindow.ScrollRow = 576
ActiveWindow.ScrollRow = 578
ActiveWindow.ScrollRow = 579
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 583
ActiveWindow.ScrollRow = 585
ActiveWindow.ScrollRow = 586
ActiveWindow.ScrollRow = 588
ActiveWindow.ScrollRow = 590
ActiveWindow.ScrollRow = 592
ActiveWindow.ScrollRow = 593
ActiveWindow.ScrollRow = 595
ActiveWindow.ScrollRow = 597
ActiveWindow.ScrollRow = 599
ActiveWindow.ScrollRow = 600
ActiveWindow.ScrollRow = 602
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 606
ActiveWindow.ScrollRow = 608
ActiveWindow.ScrollRow = 609
ActiveWindow.ScrollRow = 611
ActiveWindow.ScrollRow = 613
ActiveWindow.ScrollRow = 615
ActiveWindow.ScrollRow = 616
ActiveWindow.ScrollRow = 618
ActiveWindow.ScrollRow = 620
ActiveWindow.ScrollRow = 622
ActiveWindow.ScrollRow = 623
ActiveWindow.ScrollRow = 625
ActiveWindow.ScrollRow = 627
ActiveWindow.ScrollRow = 629
ActiveWindow.ScrollRow = 630
ActiveWindow.ScrollRow = 632
ActiveWindow.ScrollRow = 634
ActiveWindow.ScrollRow = 636
ActiveWindow.ScrollRow = 637
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 643
ActiveWindow.ScrollRow = 646
ActiveWindow.ScrollRow = 653
ActiveWindow.ScrollRow = 669
ActiveWindow.ScrollRow = 690
ActiveWindow.ScrollRow = 708
ActiveWindow.ScrollRow = 726
ActiveWindow.ScrollRow = 752
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 787
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 846
ActiveWindow.ScrollRow = 851
ActiveWindow.ScrollRow = 854
ActiveWindow.ScrollRow = 858
ActiveWindow.ScrollRow = 860
ActiveWindow.ScrollRow = 863
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 870
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 879
ActiveWindow.ScrollRow = 884
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 895
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 907
ActiveWindow.ScrollRow = 909
ActiveWindow.ScrollRow = 911
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 914
ActiveWindow.ScrollRow = 916
ActiveWindow.ScrollRow = 918
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 921
ActiveWindow.ScrollRow = 923
ActiveWindow.ScrollRow = 925
ActiveWindow.ScrollRow = 927
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 930
ActiveWindow.ScrollRow = 932
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 937
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 941
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 939
ActiveWindow.ScrollRow = 928
ActiveWindow.ScrollRow = 900
ActiveWindow.ScrollRow = 837
ActiveWindow.ScrollRow = 750
ActiveWindow.ScrollRow = 639
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 422
ActiveWindow.ScrollRow = 322
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 84
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 1
ActiveCell.Offset(-898, 10).Range("A1").Select
ActiveCell.FormulaR1C1 = "Überprüfung C"
ActiveCell.Select
Selection.Copy
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Überprüfung END"
ActiveCell.Offset(0, -1).Range("A1").Select
ActiveCell.FormulaR1C1 = "Überprüfung Start"
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:B1"), Type:= _
xlFillDefault
ActiveCell.Range("A1:B1").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(RC[-7],"""")=COUNT(RC[-7]),""!!!!!!!!"","""")"
ActiveCell.Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A1003"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A1003").Select
ActiveCell.Offset(-1, -2).Range("A1:C1004").Select
ActiveCell.Offset(1002, 0).Range("A1").Activate
Selection.Font.ColorIndex = 3
ActiveWindow.ScrollRow = 986
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 982
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 974
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 968
ActiveWindow.ScrollRow = 965
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 959
ActiveWindow.ScrollRow = 958
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 952
ActiveWindow.ScrollRow = 949
ActiveWindow.ScrollRow = 947
ActiveWindow.ScrollRow = 943
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 929
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 902
ActiveWindow.ScrollRow = 899
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 888
ActiveWindow.ScrollRow = 881
ActiveWindow.ScrollRow = 870
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 860
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 842
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 781
ActiveWindow.ScrollRow = 767
ActiveWindow.ScrollRow = 758
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 749
ActiveWindow.ScrollRow = 746
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 742
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 747
ActiveWindow.ScrollRow = 751
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 756
ActiveWindow.ScrollRow = 758
ActiveWindow.ScrollRow = 760
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 763
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 767
ActiveWindow.ScrollRow = 770
ActiveWindow.ScrollRow = 772
ActiveWindow.ScrollRow = 776
ActiveWindow.ScrollRow = 778
ActiveWindow.ScrollRow = 781
ActiveWindow.ScrollRow = 785
ActiveWindow.ScrollRow = 788
ActiveWindow.ScrollRow = 792
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 795
ActiveWindow.ScrollRow = 797
ActiveWindow.ScrollRow = 799
ActiveWindow.ScrollRow = 801
ActiveWindow.ScrollRow = 803
ActiveWindow.ScrollRow = 804
ActiveWindow.ScrollRow = 806
ActiveWindow.ScrollRow = 808
ActiveWindow.ScrollRow = 810
ActiveWindow.ScrollRow = 811
ActiveWindow.ScrollRow = 813
ActiveWindow.ScrollRow = 815
ActiveWindow.ScrollRow = 817
ActiveWindow.ScrollRow = 819
ActiveWindow.ScrollRow = 820
ActiveWindow.ScrollRow = 822
ActiveWindow.ScrollRow = 824
ActiveWindow.ScrollRow = 826
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 829
ActiveWindow.ScrollRow = 831
ActiveWindow.ScrollRow = 833
ActiveWindow.ScrollRow = 835
ActiveWindow.ScrollRow = 838
ActiveWindow.ScrollRow = 840
ActiveWindow.ScrollRow = 842
ActiveWindow.ScrollRow = 844
ActiveWindow.ScrollRow = 845
ActiveWindow.ScrollRow = 847
ActiveWindow.ScrollRow = 849
ActiveWindow.ScrollRow = 851
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 854
ActiveWindow.ScrollRow = 856
ActiveWindow.ScrollRow = 858
ActiveWindow.ScrollRow = 861
ActiveWindow.ScrollRow = 863
ActiveWindow.ScrollRow = 865
ActiveWindow.ScrollRow = 867
ActiveWindow.ScrollRow = 868
ActiveWindow.ScrollRow = 870
ActiveWindow.ScrollRow = 872
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 876
ActiveWindow.ScrollRow = 877
ActiveWindow.ScrollRow = 884
ActiveWindow.ScrollRow = 890
ActiveWindow.ScrollRow = 893
ActiveWindow.ScrollRow = 906
ActiveWindow.ScrollRow = 920
ActiveWindow.ScrollRow = 934
ActiveWindow.ScrollRow = 945
ActiveWindow.ScrollRow = 956
ActiveWindow.ScrollRow = 963
ActiveWindow.ScrollRow = 970
ActiveWindow.ScrollRow = 975
ActiveWindow.ScrollRow = 979
ActiveWindow.ScrollRow = 981
ActiveWindow.ScrollRow = 984
ActiveWindow.ScrollRow = 986
ActiveCell.Offset(2, -4).Range("A1").Select
Sheets("Arbeitsblatt exportieren").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Auswertung").Select
ActiveCell.Offset(-2, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=""Ja"",IF(RC[-7]

Bitte Modul exportieren und als ZIP anhängen
09.02.2010 17:57:08
NoNet
Hallo GHK,
der gepostete Code ist nicht nur ineffizient (der Makrorekorder hat unnötigerweise all Deine Scrollaktionen aufgezeichet - das ist aber nicht Deine "Schuld" ;-), sondern hier auch noch unvollständig !
Mein Tip : Im VBA-Editor kannst Du links im Projektexplorer (Anzeige per Strg+R im VBA-Editor) das Modul (z.B. "Modul1"), das den Code enthält per Rechtsklick als *.BAS-Datei exportieren.
Diese BAS-Datei kannst Du dann per ZIP-Programm packen und dieses ZIP hier im Forum über "Hier gehts zum File-Upload hochladen und die resultierende URL in einen Beitrag kopieren.
So könnten wir uns den kompletten Code anschauen und alles Überflüssige (vermutlich mehr als 99% des Codes !) entfernen.
Wir warten nun also auf Dein ZIP-File....
Gruß, NoNet
Anzeige
AW: Bitte Modul exportieren und als ZIP anhängen
09.02.2010 18:08:55
GHK
Vielen Dank für die schnelle Antwort! Habe es versucht gemäß Deiner Anweisung zu machen: https://www.herber.de/bbs/user/67867.zip
Was mich wundert ist, dass was ich gepostet hatte, nicht das ganze Makro sein soll... hatte eigentlich alles rauskopiert, soweit ich das bewerten kann...
Noch eine kurze Frage: Die Zip Datei enthält keine Hinweise auf meine zu analysierende Daten oder persönliche Daten?!? Oder doch?!? : )
AW: Name, Begrüßung, Endgruß etc ...
09.02.2010 18:00:08
dieter(drummer)
Hi GHK,
nicht desto trotz kannst Du alle diese Zeilen entfernen:
ActiveWindow.ScrollRow = 971
bis
ActiveWindow.ScrollRow = 1
und
ActiveWindow.ScrollRow = 883
bis
ActiveWindow.ScrollRow = 986
Wennn Du die Regeln im Forum für Anfragen einhälst, wird auch evtl. geholfen.
Gruß, Dieter(Drummer)
Anzeige
AW: Name, Begrüßung, Endgruß etc ...
09.02.2010 18:18:24
GHK
Hallo Dieter!
Vielen Dank für Deine Antwort! Habe nicht mutwillig die Forumsregeln nicht eingehalten, ehrlich gesagt kenne ich sie agr nicht, da ich mich erst heute morgen hier angemeldet habe. Aber ich denke auch ohne der förmlichen Einhaltung von Name, Begrüßung, Endgruß war ich durchaus freundlich und respektvoll... werde mich versuchen daran ab jetzt zu halten...
Viele Grüße
GHK
AW: War auch nicht böse gemeint. owT
09.02.2010 18:28:25
dieter(drummer)
owT = ohne weiteren Text.
Gruß Dieter(Drummer)
AW: Name, Begrüßung, Endgruß etc ...
09.02.2010 18:30:29
GHK
Hallo Dieter!
Kann ich folgende Passagen auch löschen?!?
ActiveWindow.SmallScroll Down:=39
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=1
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=2
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=13
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=14
ActiveWindow.LargeScroll Down:=1
ActiveWindow.SmallScroll Down:=4
ActiveWindow.LargeScroll Down:=9
ActiveWindow.SmallScroll Down:=7
Vielen Dank und viele Grüße,
GHK
Anzeige
AW: Name, Begrüßung, Endgruß etc ...
09.02.2010 18:41:48
Uduuh
Hallo,
alles was ScrollRow, Largescroll, Smallscroll beinhaltet, kannst du löschen.
Gruß aus’m Pott
Udo

AW: Name, Begrüßung, Endgruß etc ...
09.02.2010 18:49:34
GHK
Hallo Udo!
Vielen Dank für Deine Antwort!
VG
GHK

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige