Laufzeitfehler 1004
29.09.2022 12:19:18
Furash
Ich bräuchte mal eure Hilfe.
Ich kann mir beim besten willen nicht erklären warum folgender Code den Laufzeitfehler 1004 auslöst.
In dem Blatt ist in einer Spalte D ein x wenn in den beiden Feldern daneben etwas steht.
Sub drucken_s()
Dim i As Integer
Application.ScreenUpdating = False
ActiveWorkbook.Sheets("Schlachtplan").Select
For i = 0 To 41
If Cells(i, 4).Value = "x" Then
Rows(i).Hidden = False
Else: Rows(i).Hidden = True
End If
Next i
Columns("B:C").AutoFit
''PrintOut copies:=1
Application.ScreenUpdating = True
End Sub
Vielen Dank
Mit freundlichen Grüßen
Tobias aka Furash