Makros ineinander schieben!?
19.05.2004 08:43:03
Heinz
hab 3 Makros, und will aber, dass diese über eine Tastenkombination auf einmal abgespielt werden!
Also ich hab Folgende Makros:
1.)
Sub ESD()
' ESD Makro
' Makro am 13.05.2004 von MS aufgezeichnet
' Tastenkombination: Strg+e
Columns("A:H").Select
Selection.AutoFilter
Range("A2").Select
Selection.AutoFilter Field:=8, Criteria1:="CLescho"
Rows("5:5000").Select
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
Range("A500").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD1"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=7
Range("A1000").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD2"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
Range("A1500").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD3"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
Range("A2000").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD4"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Range("A2500").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD5"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=14
Range("A3000").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD7"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=14
Range("A3500").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD8"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=9
Range("A4000").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD9"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=8
Range("A4500").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD10"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
Range("A5000").Select
Sheets("Auswahltabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="ESD11"
Rows("5:5000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("ESD").Select
ActiveSheet.Paste
Sheets("ESD").Select
Columns("A:A").EntireColumn.AutoFit
Columns("A:A").ColumnWidth = 16.86
Columns("A:A").ColumnWidth = 16.29
ActiveWindow.ScrollRow = 70
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 67
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 62
ActiveWindow.ScrollRow = 61
ActiveWindow.ScrollRow = 59
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 52
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 49
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 45
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
End Sub
2.)
Sub Formula()
' Formula Makro
' Makro am 19.05.2004 von MS aufgezeichnet
' Tastenkombination: Strg+o
Application.WindowState = xlNormal
Application.Left = 151
Application.Top = 239.5
ActiveCell.FormulaR1C1 = "=IF(ISBLANK(RC[-8]),"""",RC[-2]-RC[-8])"
Range("I6").Select
Application.WindowState = xlMaximized
Range("I5").Select
Selection.AutoFill Destination:=Range("I5:I10000"), Type:=xlFillDefault
Range("I5:I10000").Select
ActiveWindow.ScrollRow = 9982
ActiveWindow.ScrollRow = 9969
ActiveWindow.ScrollRow = 9957
ActiveWindow.ScrollRow = 9945
ActiveWindow.ScrollRow = 9920
ActiveWindow.ScrollRow = 9895
ActiveWindow.ScrollRow = 9834
ActiveWindow.ScrollRow = 9797
ActiveWindow.ScrollRow = 9735
ActiveWindow.ScrollRow = 9649
ActiveWindow.ScrollRow = 9575
ActiveWindow.ScrollRow = 9489
ActiveWindow.ScrollRow = 9390
ActiveWindow.ScrollRow = 9341
ActiveWindow.ScrollRow = 9242
ActiveWindow.ScrollRow = 9168
ActiveWindow.ScrollRow = 9082
ActiveWindow.ScrollRow = 9021
ActiveWindow.ScrollRow = 8934
ActiveWindow.ScrollRow = 8873
ActiveWindow.ScrollRow = 8786
ActiveWindow.ScrollRow = 8725
ActiveWindow.ScrollRow = 8639
ActiveWindow.ScrollRow = 8552
ActiveWindow.ScrollRow = 8368
ActiveWindow.ScrollRow = 8294
ActiveWindow.ScrollRow = 8158
ActiveWindow.ScrollRow = 8023
ActiveWindow.ScrollRow = 7973
ActiveWindow.ScrollRow = 7788
ActiveWindow.ScrollRow = 7653
ActiveWindow.ScrollRow = 7530
ActiveWindow.ScrollRow = 7382
ActiveWindow.ScrollRow = 7259
ActiveWindow.ScrollRow = 7135
ActiveWindow.ScrollRow = 6951
ActiveWindow.ScrollRow = 6827
ActiveWindow.ScrollRow = 6667
ActiveWindow.ScrollRow = 6482
ActiveWindow.ScrollRow = 6310
ActiveWindow.ScrollRow = 6162
ActiveWindow.ScrollRow = 6002
ActiveWindow.ScrollRow = 5866
ActiveWindow.ScrollRow = 5681
ActiveWindow.ScrollRow = 5558
ActiveWindow.ScrollRow = 5373
ActiveWindow.ScrollRow = 5250
ActiveWindow.ScrollRow = 5090
ActiveWindow.ScrollRow = 4905
ActiveWindow.ScrollRow = 4745
ActiveWindow.ScrollRow = 4560
ActiveWindow.ScrollRow = 4400
ActiveWindow.ScrollRow = 4252
ActiveWindow.ScrollRow = 4129
ActiveWindow.ScrollRow = 3956
ActiveWindow.ScrollRow = 3784
ActiveWindow.ScrollRow = 3611
ActiveWindow.ScrollRow = 3476
ActiveWindow.ScrollRow = 3303
ActiveWindow.ScrollRow = 3229
ActiveWindow.ScrollRow = 3044
ActiveWindow.ScrollRow = 2921
ActiveWindow.ScrollRow = 2798
ActiveWindow.ScrollRow = 2724
ActiveWindow.ScrollRow = 2539
ActiveWindow.ScrollRow = 2515
ActiveWindow.ScrollRow = 2404
ActiveWindow.ScrollRow = 2281
ActiveWindow.ScrollRow = 2231
ActiveWindow.ScrollRow = 2145
ActiveWindow.ScrollRow = 2071
ActiveWindow.ScrollRow = 2009
ActiveWindow.ScrollRow = 1960
ActiveWindow.ScrollRow = 1899
ActiveWindow.ScrollRow = 1862
ActiveWindow.ScrollRow = 1812
ActiveWindow.ScrollRow = 1751
ActiveWindow.ScrollRow = 1726
ActiveWindow.ScrollRow = 1689
ActiveWindow.ScrollRow = 1652
ActiveWindow.ScrollRow = 1615
ActiveWindow.ScrollRow = 1591
ActiveWindow.ScrollRow = 1541
ActiveWindow.ScrollRow = 1517
ActiveWindow.ScrollRow = 1480
ActiveWindow.ScrollRow = 1443
ActiveWindow.ScrollRow = 1393
ActiveWindow.ScrollRow = 1319
ActiveWindow.ScrollRow = 1258
ActiveWindow.ScrollRow = 1172
ActiveWindow.ScrollRow = 1098
ActiveWindow.ScrollRow = 1036
ActiveWindow.ScrollRow = 987
ActiveWindow.ScrollRow = 888
ActiveWindow.ScrollRow = 851
ActiveWindow.ScrollRow = 753
ActiveWindow.ScrollRow = 703
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 580
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 482
ActiveWindow.ScrollRow = 457
ActiveWindow.ScrollRow = 420
ActiveWindow.ScrollRow = 383
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 309
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 198
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 75
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 1
Range("J5").Select
Application.WindowState = xlNormal
Application.Left = 151
Application.Top = 253
Range("J5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]<0.0208564815,""J"",IF(RC[-1]>=0.0208564815,"""")))"
Range("J5").Select
Application.WindowState = xlMaximized
Selection.AutoFill Destination:=Range("J5:J10000"), Type:=xlFillDefault
Range("J5:J10000").Select
ActiveWindow.ScrollRow = 9986
ActiveWindow.ScrollRow = 9973
ActiveWindow.ScrollRow = 9961
ActiveWindow.ScrollRow = 9949
ActiveWindow.ScrollRow = 9924
ActiveWindow.ScrollRow = 9912
ActiveWindow.ScrollRow = 9887
ActiveWindow.ScrollRow = 9875
ActiveWindow.ScrollRow = 9850
ActiveWindow.ScrollRow = 9838
ActiveWindow.ScrollRow = 9825
ActiveWindow.ScrollRow = 9776
ActiveWindow.ScrollRow = 9751
ActiveWindow.ScrollRow = 9727
ActiveWindow.ScrollRow = 9665
ActiveWindow.ScrollRow = 9591
ActiveWindow.ScrollRow = 9505
ActiveWindow.ScrollRow = 9419
ActiveWindow.ScrollRow = 9308
ActiveWindow.ScrollRow = 9221
ActiveWindow.ScrollRow = 9049
ActiveWindow.ScrollRow = 8987
ActiveWindow.ScrollRow = 8802
ActiveWindow.ScrollRow = 8704
ActiveWindow.ScrollRow = 8543
ActiveWindow.ScrollRow = 8359
ActiveWindow.ScrollRow = 8186
ActiveWindow.ScrollRow = 8038
ActiveWindow.ScrollRow = 7865
ActiveWindow.ScrollRow = 7681
ActiveWindow.ScrollRow = 7557
ActiveWindow.ScrollRow = 7397
ActiveWindow.ScrollRow = 7212
ActiveWindow.ScrollRow = 7089
ActiveWindow.ScrollRow = 6892
ActiveWindow.ScrollRow = 6768
ActiveWindow.ScrollRow = 6608
ActiveWindow.ScrollRow = 6423
ActiveWindow.ScrollRow = 6251
ActiveWindow.ScrollRow = 6029
ActiveWindow.ScrollRow = 5807
ActiveWindow.ScrollRow = 5585
ActiveWindow.ScrollRow = 5400
ActiveWindow.ScrollRow = 5228
ActiveWindow.ScrollRow = 5043
ActiveWindow.ScrollRow = 4882
ActiveWindow.ScrollRow = 4697
ActiveWindow.ScrollRow = 4611
ActiveWindow.ScrollRow = 4426
ActiveWindow.ScrollRow = 4377
ActiveWindow.ScrollRow = 4180
ActiveWindow.ScrollRow = 4044
ActiveWindow.ScrollRow = 3995
ActiveWindow.ScrollRow = 3872
ActiveWindow.ScrollRow = 3835
ActiveWindow.ScrollRow = 3773
ActiveWindow.ScrollRow = 3687
ActiveWindow.ScrollRow = 3613
ActiveWindow.ScrollRow = 3588
ActiveWindow.ScrollRow = 3526
ActiveWindow.ScrollRow = 3489
ActiveWindow.ScrollRow = 3428
ActiveWindow.ScrollRow = 3403
ActiveWindow.ScrollRow = 3342
ActiveWindow.ScrollRow = 3280
ActiveWindow.ScrollRow = 3194
ActiveWindow.ScrollRow = 3107
ActiveWindow.ScrollRow = 3009
ActiveWindow.ScrollRow = 2922
ActiveWindow.ScrollRow = 2836
ActiveWindow.ScrollRow = 2750
ActiveWindow.ScrollRow = 2688
ActiveWindow.ScrollRow = 2614
ActiveWindow.ScrollRow = 2553
ActiveWindow.ScrollRow = 2516
ActiveWindow.ScrollRow = 2479
ActiveWindow.ScrollRow = 2442
ActiveWindow.ScrollRow = 2405
ActiveWindow.ScrollRow = 2368
ActiveWindow.ScrollRow = 2318
ActiveWindow.ScrollRow = 2294
ActiveWindow.ScrollRow = 2244
ActiveWindow.ScrollRow = 2220
ActiveWindow.ScrollRow = 2183
ActiveWindow.ScrollRow = 2146
ActiveWindow.ScrollRow = 2109
ActiveWindow.ScrollRow = 2047
ActiveWindow.ScrollRow = 2023
ActiveWindow.ScrollRow = 1986
ActiveWindow.ScrollRow = 1961
ActiveWindow.ScrollRow = 1924
ActiveWindow.ScrollRow = 1887
ActiveWindow.ScrollRow = 1875
ActiveWindow.ScrollRow = 1825
ActiveWindow.ScrollRow = 1764
ActiveWindow.ScrollRow = 1739
ActiveWindow.ScrollRow = 1702
ActiveWindow.ScrollRow = 1653
ActiveWindow.ScrollRow = 1616
ActiveWindow.ScrollRow = 1566
ActiveWindow.ScrollRow = 1530
ActiveWindow.ScrollRow = 1493
ActiveWindow.ScrollRow = 1456
ActiveWindow.ScrollRow = 1419
ActiveWindow.ScrollRow = 1406
ActiveWindow.ScrollRow = 1357
ActiveWindow.ScrollRow = 1332
ActiveWindow.ScrollRow = 1271
ActiveWindow.ScrollRow = 1246
ActiveWindow.ScrollRow = 1184
ActiveWindow.ScrollRow = 1098
ActiveWindow.ScrollRow = 1024
ActiveWindow.ScrollRow = 962
ActiveWindow.ScrollRow = 913
ActiveWindow.ScrollRow = 852
ActiveWindow.ScrollRow = 827
ActiveWindow.ScrollRow = 765
ActiveWindow.ScrollRow = 704
ActiveWindow.ScrollRow = 630
ActiveWindow.ScrollRow = 605
ActiveWindow.ScrollRow = 568
ActiveWindow.ScrollRow = 519
ActiveWindow.ScrollRow = 506
ActiveWindow.ScrollRow = 494
ActiveWindow.ScrollRow = 469
ActiveWindow.ScrollRow = 445
ActiveWindow.ScrollRow = 420
ActiveWindow.ScrollRow = 395
ActiveWindow.ScrollRow = 371
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 235
ActiveWindow.ScrollRow = 223
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 186
ActiveWindow.ScrollRow = 174
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 1
Range("I5").Select
End Sub
3.)
Sub formatierung()
' formatierung Makro
' Makro am 19.05.2004 von MS aufgezeichnet
' Tastenkombination: Strg+g
Columns("I:I").Select
Selection.NumberFormat = "0.0000000000"
Range("A5").Select
End Sub
kann mir einer die 3 Makros in eins zusammenfassen?
P.s. die Reihenfolge sollte eingehalten werden!
Vielen Dank