Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Code erweitern (Schließen der UF)

VBA-Code erweitern (Schließen der UF)
André
Hi zusammen,
man ist ja nie ganz glücklich bzw. eine nie fertig mit einer richtig perfekten Excelmappe.
Habe nen Klasse VBA Code bereits von HeinzH erhalten. Vielen Dank an dieser Stelle.
Würde diesen Code gerne erweitern. Der Code sieht so aus:
Option Explicit

Private Sub Abbrechen_Click()
Unload Me
End Sub


Private Sub OK()
If CheckBox1 Then Sheets("Uebersicht VII").PrintOut
If CheckBox7 Then Sheets("AL").PrintOut
If CheckBox8 Then Sheets("A").PrintOut
If CheckBox9 Then Sheets("B").PrintOut
If CheckBox10 Then Sheets("C").PrintOut
If CheckBox11 Then Sheets("Vw").PrintOut
If CheckBox12 Then Sheets(Array("Uebersicht VII", "AL", "A", "B", "C", "Vw")).PrintOut
End Sub


Private Sub User_Initialize()
CheckBox1 = False
CheckBox2 = False
CheckBox3 = False
End Sub

Ich würde gern noch einbauen, dass bei Bestätigung mit der OK-Taste sich die UserForm Drucken automatisch schließt.
Vielen Dank
und ein schönes Wochenende
André

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Eine Zeile
17.02.2006 10:50:54
Gerhard
Hallo André,
da fehlt eigentlich nur das UNLOAD ME hinter
If CheckBox12 Then Sheets(Array("Uebersicht VII", "AL", "A", "B", "C", "Vw")).PrintOut
und vor
End Sub
gruss
Gerhard S.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige