Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Druck der in einer UserForm-ListBox ausgewählten Arbeitsblätter

Gruppe

Arbeitsblatt

Problem

Wie kann ich die in einer UserForm-ListBox per Mehrfachauswahl ausgewählten Tabellenblätter drucken lassen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub CallForm()
   frmDrucken.Show
End Sub

ClassModule: frmDrucken

Private Sub cmdAbbrechen_Click()
   Unload Me
End Sub

Private Sub cmdDrucken_Click()
   Dim arrWks()
   Dim iCounter As Integer, iCount As Integer
   For iCounter = 0 To lstDrucken.ListCount - 1
      If lstDrucken.Selected(iCounter) Then
         Worksheets(lstDrucken.List(iCounter)).PrintOut
      End If
   Next iCounter
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim wks As Worksheet
   For Each wks In Worksheets
      lstDrucken.AddItem wks.Name
   Next wks
End Sub