Makro kürzen
06.12.2016 23:40:31
Peter
Hallo liebe Excel Freunde.
ich habe mit Makrorekorder ein Makro aufgezeichnet und es macht was er soll.
Kann mir jemand helfen das Makro kürze zu schreiben so dass die Prozedur flüssiger
ablauft.
Hier dass Makro:
Sub Ferien_eintragen()
' Ferien_eintragen Makro
Sheets("Ferien").Select
Range("B3:B33").Select
Selection.Copy
Sheets("Kalender").Select
Range("D3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=33
Range("B34:B61").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("H3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=27
Range("B62:B92").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("L3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B93:B122").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("P3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B123:B153").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("T3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=33
Range("B154:B183").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("X3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B184:B214").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("AB3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B215:B245").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("AF3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B246:B275").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("AJ3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=30
Range("B276:B306").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("AN3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=33
Range("B307:B336").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Kalender").Select
Range("AR3").Select
ActiveSheet.Paste
Sheets("Ferien").Select
ActiveWindow.SmallScroll Down:=27
Range("B337:B367").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Sheets("Kalender").Select
Range("AV3").Select
ActiveSheet.Paste
Range("A3").Select
End Sub