Thema Datum  Von Nutzer Rating
Antwort
27.10.2014 13:01:39 Mike Bucher
NotSolved
Blau Excel - Zu druckende Sheets in UserForm auswählen
 01.11.2014 11:05:39 Markus_K
NotSolved

Ansicht des Beitrags:
Von:
Markus_K		 Datum:
01.11.2014 11:05:39		 Views:
1589		 Rating:
     
Antwort:
  Ja
Thema:
Excel - Zu druckende Sheets in UserForm auswählen

Hallo,

 

hast du immer 5 Sheets?

...eigentlich egal hier mal etwas Code wie es aussehen könnte.

Allerdings habe ich es komischer weise nicht mit Checkboxen hinbekommen.

Habe dafür dann Toggel-Button genommen, finde ist auch machbar

Das in ein "Modul"

?
1
2
3
4
5
6
7
Option Explicit
 
Public ChB() As clChkBox
 
Sub Makro1()
UserForm1.Show
End Sub

Das hier in die "UserForm"

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
    ReDim Preserve ChB(i - 1)
    Set ChB(i - 1) = New clChkBox
    Set ChB(i - 1).tb = UserForm1.Controls.Add("Forms.ToggleButton.1", "MK_CB_" & Format(i, "00"))
    ChB(i - 1).tb.Top = ChB(i - 1).tb.Height * (i - 1)
    ChB(i - 1).tb.Width = 100
    ChB(i - 1).tb.Caption = ActiveWorkbook.Sheets(i).Name
    ChB(i - 1).tb.Tag = i
Next i
End Sub

 

Und dann das wichtigste, du benötigst eine "Klasse mit dem Namen "clChkBox"

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Public WithEvents tb As ToggleButton
 
Private Sub tb_Click()
Dim s() As Variant
Dim i As Integer
Dim anz As Integer
 
For i = 0 To UBound(ChB)
    If ChB(i).tb.Value Then
        ReDim Preserve s(anz)
        s(anz) = ChB(i).tb.Caption
        anz = anz + 1
    End If
Next i
Sheets(s).Select
End Sub
 
 
Wenn du nun die Userform aurufst, kannst du die Blätter auswählen, und sie werden entsprechend auch gleich ausgewählt.
 
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
27.10.2014 13:01:39 Mike Bucher
NotSolved
Blau Excel - Zu druckende Sheets in UserForm auswählen
 01.11.2014 11:05:39 Markus_K
NotSolved