Thema Datum  Von Nutzer Rating
Antwort
15.05.2014 10:14:31 Fender124
NotSolved
Blau Tabellenblätter auswählen und einblenden
 15.05.2014 18:43:59 Amicro2000
NotSolved

Ansicht des Beitrags:
Von:
Amicro2000		 Datum:
15.05.2014 18:43:59		 Views:
1278		 Rating:
     
Antwort:
  Ja
Thema:
Tabellenblätter auswählen und einblenden

Hallo Fender,

mach dir eine Userform mit einer Listbox1und mach in den Eigenschaften die fmListStyleOption in Liststyle und die fmMultiSelectMulti in Multiselect.

Dann noch einen Commandbutton1.

und hier der code dazu:

 

Private Sub CommandButton1_Click()
    Dim i As Integer
    
    For i = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(i) Then
            ThisWorkbook.Sheets(Me.ListBox1.List(i)).Visible = xlSheetVisible
        Else
            ThisWorkbook.Sheets(Me.ListBox1.List(i)).Visible = xlSheetHidden
        End If
    Next i
    Unload Me
End Sub

Private Sub UserForm_Activate()
    Dim WS As Worksheet, i As Integer
    
    Me.ListBox1.Clear
    For Each WS In ThisWorkbook.Worksheets
        Me.ListBox1.AddItem WS.Name
    Next WS
    
    For i = 0 To Me.ListBox1.ListCount - 1
        If ThisWorkbook.Sheets(Me.ListBox1.List(i)).Visible = xlSheetVisible Then
            Me.ListBox1.Selected(i) = True
        End If
    Next i
End Sub

 

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
15.05.2014 10:14:31 Fender124
NotSolved
Blau Tabellenblätter auswählen und einblenden
 15.05.2014 18:43:59 Amicro2000
NotSolved