Thema Datum  Von Nutzer Rating
Antwort
Rot Array Fehler
 09.03.2016 19:51:53 Markus
Solved
09.03.2016 22:14:30 Gast90486
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
09.03.2016 19:51:53		 Views:
1436		 Rating:
     
Antwort:
 Nein
Thema:
Array Fehler

Hi

Ich habe ein Array mit 29 Sheet,

Das Makro skalliert mir die Sheets auf eine Seite und stellt dann eine Vorschau her dann drucke ich Sie.

Jetzt ist es aber so das nicht immer alle 29 Sheet erzeugt werden je nach Daten eben manchmal eben nur 15 manchmel eben die 29.

Der Code funktioniert auch nur eben nicht wenn nur die 15 vorhanden sind.

Mir ist klar das VBA nicht weiss was es tun soll wenn nicht alle Sheets im Array real da sind, nur wie kann ich das lösen anbei der Code.

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Verteiler_drucken()
 
  Dim myArr
  myArr = Array("SAM ", "HAUS", "RO ", "TROS", "SRE", "WEX", "LOP", "LOB", "BIX", "SW", "DG ", "DM" _
    , "SB_M+R", "DG _M+R", "DM_M+R", "SAM_X ", "HAUS_X", "RO _X", "TROS_X", "SRE_X", "WEX_X", "LOP_X", "LOB_X", "BIX_X")
 
  Application.PrintCommunication = False
 
  For i = 0 To UBound(myArr)
    With Sheets(myArr(i)).PageSetup
      .FitToPagesWide = 1
      .FitToPagesTall = False
    End With
  Next
  
   Application.PrintCommunication = True
    
   Sheets(Array("SAM ", "HAUS", "RO ", "TROS", "SRE", "WEX", "LOP", "LOB", "BIX", "SW", "DG ", "DM" _
    , "SB_M+R", "DG _M+R", "DM_M+R", "SAM_X ", "HAUS_X", "RO _X", "TROS_X", "SRE_X", "WEX_X", "LOP_X", "LOB_X", "BIX_X")).Select
      ActiveWindow.SelectedSheets.PrintPreview
      
End Sub

Gruß

Markus

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Array Fehler
 09.03.2016 19:51:53 Markus
Solved
09.03.2016 22:14:30 Gast90486
NotSolved