Excel2010 - Laufzeitfehler 1004

[exclerin_christine]

danke. null Plan

habe MS 2010 reparieren lassen
Standardrucker PDF von Win 10 eingestellt

kein Erfolg, 

markiere nun händisch die tabellenblätter und drucke sie ....

[schauan]

Hallöchen,
Die Fehlermeldung in Ralf's Makro wird wohl daran liegen, dass mangels positiver Prüfung kein Array gebildet wird.

Mach's mal so:

Code:

Sub RPP()
Dim wks As Worksheet, arr, i&
For Each wks In Worksheets
 If wks.Range("A1") = 100 Then
   If i = 0 Then
     ReDim arr(0)
   Else
     ReDim Preserve arr(i)
   End If
   arr(i) = wks.Name
   i = i + 1
 End If
Next
If Not IsArray(arr) Then
 Worksheets(arr).PrintOut
Else
 MsgBox "Keine Blätter mit 100 in A1 gefunden"
End If
End Sub

[exclerin_christine]

WOW, super endlich kein Laufzeitfehler 1004

Danke Danke Danke
es lauft bis ans Ende, nur druckt es nicht???

Messagebox: keine Blätter mit 100 gefunden
obwohl es markiert ist,
hab in B1 100 reingeschrieben, druckt nicht ein Tabellenblatt, Rätsel

Code:

Dim wks As Worksheet, arr, i&
For Each wks In Worksheets
 If wks.Range("B1") = 100 Then
   If i = 0 Then
     ReDim arr(0)
   Else
     ReDim Preserve arr(i)
   End If
   arr(i) = wks.Name
   i = i + 1
 End If
Next
If Not IsArray(arr) Then
 Worksheets(arr).PrintOut
Else
 MsgBox "Keine Blätter mit 100 in B1 gefunden"
End If
   
    Sheets("IÜ").Select
    
    Dim sht As Worksheet, csheet As Worksheet
Application.ScreenUpdating = False
Set csheet = ActiveSheet
For Each sht In ActiveWorkbook.Worksheets
  If sht.Visible Then
    sht.Activate
    Range("A2").Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
  End If
Next sht
csheet.Activate

Call IUE2

End Sub

[RPP63]

Bitte lade mal Deine (Beispiel-) Datei hoch!

Gruß Ralf

[schauan]

Hallöchen,

nimm mal diesen Ausdruck
wks.Range("B1")
in die Überwachung. Dann gehst Du den Code mit F5 durch und schaust, was sich da tut. Irgendwann sollte da eine 100 auftauchen ...

[exclerin_christine]

Bitte lade mal Deine (Beispiel-) Datei hoch!

Gruß Ralf

Hallo Ralf,
ist eine 6,5 MB Exceldatei mit vielen vertraulichen Firmeneinträgen,
hab keine Idee, wie ich das machen soll.

Aber habe nun MS Office 2016 gekauft,
installiere und gebe bescheid.

Danke

[RPP63]

ist eine 6,5 MB Exceldatei mit vielen vertraulichen Firmeneinträgen,
hab keine Idee, wie ich das machen soll.

Es geht ja nicht um die (vertraulichen) Daten, sondern um Deinen Fehler!
Wenn Du den in Excel 2016 überführst, ändert sich nix am falschen Ergebnis.
Du wirst den Coder wahrscheinlich falsch überführt oder am falschen Ort abgespeichert haben.
Da meine Glaskugel aber momentan poliert wird, wäre eine simple Datei - lediglich mit den Zellen B1 und Code - hilfreich.

Gruß Ralf

[exclerin_christine]

Hallöchen,

nimm mal diesen Ausdruck
wks.Range("B1")
in die Überwachung. Dann gehst Du den Code mit F5 durch und schaust, was sich da tut. Irgendwann sollte da eine 100 auftauchen ...

Danke, bei der Überwachung kommt das

Watch :   : wks.Range("B1") : : Empty : Modul9.IUE_Seiten_Drucken

nu ist 2016 installiert, aber wie ihr gesagt habt, nicht gelöst,
ist sonderbar, habs 3 Jahre nicht gebraucht,
eingeschaltet und nu das

aber danke, ich übergebs nu meinem Chef  :@

[schauan]

Hallöchen,

F5 war verkehrt - musst F8 nehmen, damit es schrittweise durchläuft und Du bei jedem Schleifendurchgang wks... kontrollieren kannst.
Du kannst den Code natürlich auch erst mal in eine neue Datei packen und dort das verhalten mit B1 simulieren.