Hi, (mein 2. Antwortversuch) das ging ja wirlich schnell. Es sind immer Spaltenbereiche aus den Spalten G, I, K, M, O betroffen. Ab Zeile 149 fehlt die Markierung der Spaltenbereich K, M, O. Später wieder andere.
Sub Makro1()
'
' Makro1 Makro
' Makro am 19.02.03 von HarkemperP aufgezeichnet
'
'
Range("G5:G41,I5:I41,K5:K41,M5:M41,O5:O41").Select
Range("O5").Activate
ActiveWindow.SmallScroll Down:=30
Range( _
"G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89"). _
Select
Range("O53").Activate
ActiveWindow.SmallScroll Down:=30
Range( _
"G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137" _
).Select
Range("O101").Activate
ActiveWindow.SmallScroll Down:=31
Range( _
"G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185" _
).Select
Range("O149").Activate
ActiveWindow.SmallScroll Down:=30
Range( _
"G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233" _
).Select
Range("O197").Activate
ActiveWindow.SmallScroll Down:=30
Range( _
"G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281" _
).Select
Range("O245").Activate
ActiveWindow.SmallScroll Down:=31
Union(Range( _
"K293:K329,M293:M329,O293:O329,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233" _
), Range("O245:O281,G293:G329,I293:I329")).Select
Range("O293").Activate
ActiveWindow.SmallScroll Down:=33
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185" _
), Range( _
"O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329" _
)).Select
Range("O341").Activate
ActiveWindow.SmallScroll Down:=26
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137" _
), Range( _
"O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329" _
)).Select
Range("O389").Activate
ActiveWindow.SmallScroll Down:=28
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89" _
), Range( _
"O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329" _
)).Select
Range("O435").Activate
ActiveWindow.SmallScroll Down:=21
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G463:G466,I463:I466,K463:K466,M463:M466,O463:O466,G5:G41,I5:I41,K5:K41" _
), Range( _
"O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329" _
)).Select
Range("O463").Activate
ActiveWindow.SmallScroll Down:=22
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G463:G466,I463:I466,K463:K466,M463:M466,O463:O466,G480:G516,I480:I516" _
), Range( _
"O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281" _
)).Select
Range("O480").Activate
ActiveWindow.SmallScroll Down:=30
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G463:G466,I463:I466,K463:K466,M463:M466,O463:O466,G480:G516,I480:I516" _
), Range( _
"O528:O564,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281" _
), Range("I293:I329")).Select
Range("O528").Activate
ActiveWindow.SmallScroll Down:=30
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G463:G466,I463:I466,K463:K466,M463:M466,O463:O466,G480:G516,I480:I516" _
), Range( _
"O528:O564,G576:G612,I576:I612,K576:K612,M576:M612,O576:O612,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185,K149:K185,M149:M185,O149:O185,G197:G233,I197:I233" _
), Range("I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329")).Select
Range("O576").Activate
ActiveWindow.SmallScroll Down:=24
Union(Range( _
"K293:K329,M293:M329,O293:O329,G341:G377,I341:I377,K341:K377,M341:M377,O341:O377,G389:G425,I389:I425,K389:K425,M389:M425,O389:O425,G435:G456,I435:I456,K435:K456,M435:M456,O435:O456,G463:G466,I463:I466,K463:K466,M463:M466,O463:O466,G480:G516,I480:I516" _
), Range( _
"O528:O564,G576:G612,I576:I612,K576:K612,M576:M612,O576:O612,G624:G659,I624:I660,K624:K660,M624:M660,O624:O660,G5:G41,I5:I41,K5:K41,M5:M41,O5:O41,G53:G89,I53:I89,K53:K89,M53:M89,O53:O89,G101:G137,I101:I137,K101:K137,M101:M137,O101:O137,G149:G185,I149:I185" _
), Range( _
"I197:I233,K197:K233,M197:M233,O197:O233,G245:G281,I245:I281,K245:K281,M245:M281,O245:O281,G293:G329,I293:I329" _
)).Select
Range("O624").Activate
End Sub