Makro! Gehts auch einfacher??
10.09.2003 17:30:10
Falk
folgendes Makro habe ich mir erstellt:
Sub Auswertungsblätter_drucken()
Range("IO2").Select
ActiveCell.FormulaR1C1 = "2"
Calculate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
... dieser Block wiederholt sich bis ActiveCell.FormulaR1C1 = "30" ist ...
Range("IO2").Select
ActiveCell.FormulaR1C1 = "30"
Calculate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
In dieser Reihe 1 bis 31 fehlen (beabsichtigt!) folgende Zahlen: 1,5,12,18,24!
Geht dies auch einfacher mit einer "For-Next"-Schleife? Bestimmt, aber wie lasse ich da oben genannt Zahlen weg?
Danke für die Hilfe im voraus.
Grüße
Falk