Mein Code zum drucken zeigt einen Laufzeitfehler 9 an.
Hier der Code:
Sub Info()
Dim lngZ As Long
If vbOK = MsgBox("Sind alle Kundenblätter eingeblendet?", _
vbOKCancel + vbQuestion, "Wichtig!") Then
With Worksheets("Start")
For lngZ = 6 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Cells(lngZ, 1) > 0 Then _
Worksheets(Cells(lngZ, 2) & "").PrintOut Copies:=Cells(lngZ, 1).Value
Next lngZ
End With
End If
End Sub
In dieser Zeile wird ein eventueller Fehler angezeigt:
Worksheets(Cells(lngZ, 2) & "").PrintOut Copies:=Cells(lngZ, 1).Value
Ich habe davon keine Ahnung und weiß auch nicht ob der Code schon ausreicht, das ein Experte darin einen Fehler erkennt. Ich würde das gerne auch anders einstellen.
Freue mich sehr auf eine Hilfe.
Viele Grüße!
Eby