Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Anzeige
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige