Laufzeitfehler 9 Ausserhalb des gültigen bereichs
26.01.2017 19:20:30
Heiko
Hallo zusammen.
Jetzt habe ich das eine Problem dank Eurer Hilfe lösen können, jedoch habe ich jetzt ein neues Problem.
Ich bekomme den laufzeitfehler 9 index außerhalb des gültigen bereichs
angezeigt.
Hat jemand einen Lösungsvorschlag?
Hier der Code
Sub Rechteck1_Klicken()
Dim i As Integer
For i = 1 To 74
Sheets(i).Select
'Wert Überprüfen und Drucken wenn Wert OK
If ActiveSheet.Range("Q13").Value = "Ja" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$M$124"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
Vorab vielen Dank für Eure Hilfe