Thema Datum  Von Nutzer Rating
Antwort
12.01.2017 10:07:26 headloose
NotSolved
Blau Checkboxen zur Auswahl drucken
 12.01.2017 13:00:02 Gast38860
NotSolved

Ansicht des Beitrags:
Von:
Gast38860		 Datum:
12.01.2017 13:00:02		 Views:
546		 Rating:
     
Antwort:
  Ja
Thema:
Checkboxen zur Auswahl drucken

Kleiner Ansatz für die UserForm:

'UserForm
Option Explicit

Private Const C_CBX_NAME_POST As String = "cbxAcc"

Private m_nCbxAcc As Long

Private Sub CommandButton1_Click()
  Dim i As Long
  For i = 1 To m_nCbxAcc
    If Controls(C_CBX_NAME_POST & i).Value Then
      '-> drucken
      ThisWorkbook.Worksheets(Controls(C_CBX_NAME_POST).Caption).PrintOut
    End If
  Next
End Sub

Private Sub UserForm_Initialize()
  
  Dim wks As Excel.Worksheet
  
  For Each wks In ThisWorkbook.Worksheets
    m_nCbxAcc = m_nCbxAcc + 1
    With Controls.Add("FORMS.CHECKBOX.1", C_CBX_NAME_POST & m_nCbxAcc)
      .Caption = wks.Name
      .Left = 10
      .Top = 10 + (m_nCbxAcc - 1) * .Height
    End With
  Next
  
End Sub

Das Problem wird sein, dass das mit 40 schon recht unübersichtlich wird.

Darum per ListBox:

'UserForm
' * benötigt eine ListBox 'ListBox1' auf der UserForm
Option Explicit

Private Sub CommandButton1_Click()
  Dim i As Long
  For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
      '-> drucken
      ThisWorkbook.Worksheets(ListBox1.List(i)).PrintOut
    End If
  Next
End Sub

Private Sub UserForm_Initialize()
  
  Dim wks As Excel.Worksheet
  
  ListBox1.ListStyle = fmListStyleOption
  ListBox1.MultiSelect = fmMultiSelectMulti
  
  For Each wks In ThisWorkbook.Worksheets
    Call ListBox1.AddItem(wks.Name)
  Next
  
End Sub

 

Grüße

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:



  • 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
12.01.2017 10:07:26 headloose
NotSolved
Blau Checkboxen zur Auswahl drucken
 12.01.2017 13:00:02 Gast38860
NotSolved