Druck Makro Fehler!
19.05.2004 11:45:07
Stefan
HAbe mir dieses DruckMakro erstellt.
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Blatt1").PrintOut Copies:=1
Sheets("Blatt2").PrintOut
Sheets("Blatt3").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "1"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "2"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "3"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "4"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "5"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "6"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "7"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "8"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "9"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "10"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "11"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "12"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "13"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "14"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "15"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "16"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "17"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "18"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "19"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "20"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "21"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "22"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "23"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "24"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "25"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "26"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "27"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "28"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt4 stat").Range("B1").FormulaR1C1 = "29"
Sheets("Blatt4 gesamt").PrintOut
Sheets("Blatt5").PrintOut Copies:=1
End Sub
Doch bei Blatt 3 stoppt er und schreibt. Index außerhalb des gültigen Bereichs.
Was kann ich tun.
MfG Stefan