Laufzeitfehler 1004 Makro
25.01.2017 21:44:15
Heiko
Excel gibt mir bei diesem Makro den Laufzeitfehler 1004 Die Select Methode des Worksheet-Objektes konnte nicht ausgeführt werden.
Kann mir bei dem Problem jemand helfen?
Hier der Code:
Sub Rechteck1_Klicken()
Dim i As Integer
For i = 1 To 82
Sheets(i).Select
'Wert Überprüfen und Drucken wenn Wert OK
If ActiveSheet.Range("T18").Value = "Ja" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$60"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next i
End Sub
Anzeige