noch ein seltsames Problem: ich habe einen CommandButton mit einem Code hinterlegt, der mir bestimmte Tabellenblätter ausdrucken soll.
Ich habe auf meinem ersten Tabellenblatt Auswahlknöpfe. Je nachdem, welcher Button aktiv ist, sollen andere Blätter gedruckt werden. Bei zwei der Buttons funktioniert es wie gewollt. Bei dem dritten passiert etwas seltsames: der Druckauftrag wird in mehrere Einzelaufträge aufgeteilt und dann gedruckt. Allerdings kommt dabei die Reihenfolge durcheinander.
Habe jetzt schon mal einen Hinweis gefunden, dass es mit dem unterschiedlichen Format der Druckbereiche zu tun haben könnte. Aber eine wirkliche Lösung habe ich noch nicht bekommen.
Weiß jemand von Euch Rat?
Schöne Grüße
Peter
Hier der Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Tabelle9.Visible = True 'Startseite
If Tabelle9.OptionButton_mn_projekt.Value = True Then
Tabelle33.Visible = True 'Projektauftrag
Tabelle2.Visible = True 'Auftrag
Tabelle3.Visible = True 'Anlage 1
Tabelle34.Visible = True ' Anlage 2 (Projektteam)
End If
If Tabelle9.OptionButton_it_klein.Value = True Then
Tabelle33.Visible = True 'Projektauftrag
Tabelle2.Visible = True 'Auftrag
Tabelle3.Visible = True 'Anlage 1
Tabelle34.Visible = True ' Anlage 2 (Projektteam)
End If
If Tabelle9.OptionButton_it_groß.Value = True Then
Tabelle25.Visible = True 'Auftrag IT
Tabelle10.Visible = True 'Anlage 1 IT
Tabelle34.Visible = True ' Anlage 2 (Projektteam)
Tabelle4.Visible = True 'IT-Auswirkungen
Sheet61.Visible = True 'Vorhabenbewertung
End If
Tabelle6.Visible = True 'Steckbrief
Tabelle8.Visible = True 'Projektplan
If Tabelle9.OptionButton_mn_projekt.Value = True Then
Tabelle35.Visible = True
Tabelle36.Visible = False
Tabelle11.Visible = True 'Dateneingabe Kosten
Tabelle23.Visible = True ' Diagramm Kosten
End If
If Tabelle9.OptionButton_it_klein.Value = True Then
Tabelle35.Visible = True
Tabelle36.Visible = False
Tabelle11.Visible = True 'Dateneingabe Kosten
Tabelle23.Visible = True ' Diagramm Kosten
End If
If Tabelle9.OptionButton_it_groß.Value = True Then
Tabelle35.Visible = False
Tabelle36.Visible = True
Sheet3.Visible = True 'Kosten-Nutzen PLAN
Sheet12.Visible = True 'Kosten-Nutzen IST
End If
Tabelle40.Visible = True 'Umfeldanalyse
Tabelle17.Visible = True 'Umfeldanalyse Daten
Tabelle22.Visible = True 'Umfeldanalyse Diagramm
Tabelle39.Visible = True 'Risikoanalyse
Tabelle18.Visible = True 'Risikoanalyse Daten
Tabelle19.Visible = True 'Risikoanalyse Diagramm
Tabelle14.Visible = False 'Statusbericht
Tabelle15.Visible = True 'Abschlussbericht
Tabelle43.Visible = True 'Anhang
If Tabelle9.OptionButton_mn_projekt.Value = True Then
Sheet10.Visible = False 'Business Case Analyse
Sheet11.Visible = False 'Druckansich Kosten-Nutzen PLAN
Chart14.Visible = False 'Kost, Einsp & PE (I)
Chart11.Visible = False 'Kost, Einsp & PE (II)
Chart13.Visible = False 'Invt, Kist & Einsp
End If
If Tabelle9.OptionButton_it_klein.Value = True Then
Sheet10.Visible = False 'Business Case Analyse
Sheet11.Visible = False 'Druckansich Kosten-Nutzen PLAN
Chart14.Visible = False 'Kost, Einsp & PE (I)
Chart11.Visible = False 'Kost, Einsp & PE (II)
Chart13.Visible = False 'Invt, Kist & Einsp
End If
If Tabelle9.OptionButton_it_groß.Value = True Then
Sheet10.Visible = True 'Business Case Analyse
Sheet11.Visible = True 'Druckansich Kosten-Nutzen PLAN
Chart14.Visible = True 'Kost, Einsp & PE (I)
Chart11.Visible = True 'Kost, Einsp & PE (II)
Chart13.Visible = True 'Invt, Kist & Einsp
End If
Tabelle24.Visible = False 'Statusbericht BLANK
ActiveWorkbook.PrintOut
Call Oberreiter_anzeigen
Application.ScreenUpdating = True
End Sub
Hintergrund ist, dass in meiner Datei nur ein paar wenige "Oberreiter" angezeigt werden, die, wenn sie angeklickt werden, weitere Reiter sichtbar werden lassen. Und diese verborgenen Blätter werden mit dem Code zunächst sichtbar gemacht. Das Makro Oberreiter_anzeigen blendet dann wieder die nicht benötigten Reiter wieder aus.