Excel2010 - Laufzeitfehler 1004

[exclerin_christine]

Hallo in die Runde,
habe meine Projektsoftware nach 3 Jahren wieder aktiviert,
aber eine "Taste" geht nicht mehr.

Die Taste druckt meine  auto. markierten Tabellenblätter als PDF.

hatte Office 2010 ein Update oder das neue Win 10 Betriebssystem???

versuch nun seit Tagen  :@  , schwing die weisse Fahne  

Dank an die klugen Köpfe



hier das Modul:

Private Sub IUE_Seiten_Drucken()

Dim wks As Worksheet, objWKS As Object
  Set objWKS = CreateObject("Scripting.Dictionary")
  For Each wks In Worksheets
    If wks.Range("B1") = 100 Then
      objWKS(wks.Name) = 0
    End If
  Next
  If objWKS.Count Then
    Sheets(objWKS.keys).Select hier kommt Laufzeitfehler 1004
    ActiveWindow.SelectedSheets.PrintOut
    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

Verlinkung:
http://www.ms-office-forum.net/forum/sho...ost1832167

[steve1da]

Hola,

verlinkst du bitte deine Beiträge in den verschiedenen Foren untereinander?
Danke.

Gruß,
steve1da

[exclerin_christine]

Grüss dich

wie soll ich was verlnken??? keinen Plan, suche in zwei Foren Hilfe, da ich seit 3 Tagen probiere...

die "Taste" funktioniert mehr nicht in Excel 2010

und beim Drücken Debuggen, wird die Zeile gelb markiert.


Hat MS 2010 VBA  mit update auf Win 10 was geändert?

hier hängt sich auf

Sheets(objWKS.keys).Select

danke

[steve1da]

Hola,

du setzt hier eine link auf dein Thema im anderen Forum und umgekehrt.

Gruß,
steve1da

[exclerin_christine]

Verlinkung:

http://www.ms-office-forum.net/forum/sho...ost1832167

[RPP63]

Moin!
Na ja, Hajo hat ja den anderen Thread in seiner unvergleichlichen Art versaut …

Zum Thema:
Warum gehst Du den seltsamen Weg über ein Dictionary?
Ich schreibe sowas in ein Array:

Sub RPP()

Dim wks As Worksheet, arr() As String, i&
For Each wks In Worksheets
  If wks.Range("A1") = 100 Then
    ReDim Preserve arr(i)
    arr(i) = wks.Name
    i = i + 1
  End If
Next
Worksheets(arr).PrintOut
End Sub

Gruß Ralf

[exclerin_christine]

Hallo Ralf. danke


Dim wks As Worksheet, arr() As String, i&
For Each wks In Worksheets
  If wks.Range("B1") = 100 Then
    ReDim Preserve arr(i)
    arr(i) = wks.Name
    i = i + 1
  End If
Next
Worksheets(arr).PrintOut  hier hängt es beim Debuggen

hab im Feld B1 100 für Druck des Tabellenblattes
wenn ich die Tabellenblätter mit Steuerungstaste markiere und Druckbefehl drücke, gehts????

[RPP63]

Bei mir hängt nix. ;)
Makro ist positiv getestet.

Gruß Ralf

[exclerin_christine]

Ralf, danke dir
nu weiss ich auch, warum verlinken 

ich denk, es liegt an win 10  :@

alles andere funktioniert, nur nicht das Drucken auf PDF (Standartdrucker) der Tabellenblätter???

[RPP63]

Nun Christine, wie gesagt, bei mir tut es das (ebenfalls Win 10).

Aber warum nutzt Du nicht die in Deinem Excel vorhandene .ExportAsFixedFormat-Methode?
https://msdn.microsoft.com/de-de/library...40291.aspx

Gruß Ralf