2 Makros für eine Schaltfläche
20.10.2006 14:06:23
Frank
Folgende Makros möchte ich gern verbindeb, aber wie?
Im Moment funktioniert nur der untere Teil!
Hier die Tabelle, es ist nur ein schneller Probeentwurf!
https://www.herber.de/bbs/user/37539.xls
Hier das Makro:
Private Sub CommandButton1_Click()
ActiveCell.FormulaR1C1 = "=IF(AND(R[-5]C=""Fr"",R[-4]C=""N""),""--"","""")"
Range("C7").Select
Selection.AutoFill Destination:=Range("C7:AG7"), Type:=xlFillDefault
Range("C7:AG7").Select
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.FormulaR1C1 = "=IF(AND(R[-5]C=""Sa"",R[-4]C=""T""),""--"","""")"
Range("C7").Select
Selection.AutoFill Destination:=Range("C7:AG7"), Type:=xlFillDefault
Range("C7:AG7").Select
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveCell.FormulaR1C1 = "=IF(AND(R[-5]C=""Sa"",R[-4]C=""T""),""--"","""")"
Range("C7").Select
End Sub