2 Makros für eine Schaltfläche

Forumthread: 2 Makros für eine Schaltfläche

20.10.2006 14:06:23

Frank

Hallo, ihr Excelspezialisten!
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: 2 Makros für eine Schaltfläche

20.10.2006 14:35:34

Daniel
AW: 2 Makros für eine Schaltfläche

20.10.2006 14:43:32

Ulf

AW: 2 Makros für eine Schaltfläche

20.10.2006 14:35:34

Daniel

Hallo
da hast du mehrere Möglichkeiten. Du kannst
1. im Editor den einen Makrotext kopieren und im andern Makro einfügen
2. du kannst aus dem ersten Makro heraus das 2 Makro mit dem Befehl "CALL Makroname" Starten.
Gruß, Daniel

AW: 2 Makros für eine Schaltfläche

20.10.2006 14:43:32

Ulf

Hallo Frank
versuch mal


Sub Makro2()
Range("C7:AG7").FormulaR1C1 = "=IF(or(AND(R[-5]C=""Sa"",R[-4]C=""T""),AND(R[-5]C=""Fr"",R[-4]C=""N"")),""--"","""")"
End Sub

was der Rest soll weiß ich nicht
mfg Ulf

Beliebteste Forumthreads (12 Monate)

Forumthread: 2 Makros für eine Schaltfläche

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread