Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen

Makro für Dateiauswahldialog

Betrifft: Makro für Dateiauswahldialog von: Hannes
Geschrieben am: 25.09.2014 07:57:16

Hallo Zusammen!

Ich möchte durch eine DropDown-Anzeige mehrere Tabellenblätter ein und ausblenden. Weiss jemand wie man hier am besten vorgeht? Oder hat jemand schonmal ein Makro diesbezüglich geschrieben?

Danke schonmal im Voraus!!

  

Betrifft: AW: Makro für Dateiauswahldialog von: JoWE
Geschrieben am: 25.09.2014 12:55:23

Hallo Hannes,

so vllt.:
Option Explicit

Private Sub CommandButton2_Click()
    'Userform schließen
    Unload Me
End Sub

Private Sub CommandButton1_Click()
    'Button ausgewähltes Sheet ausblenden
    Worksheets(Me.ComboBox1.SelText).Visible = False
End Sub

Private Sub CommandButton3_Click()
    Dim i As Long
    'Button alle Sheets einblenden
    For i = 1 To Worksheets.Count
        Worksheets(i).Visible = True
    Next
End Sub

Private Sub UserForm_Initialize()
    Dim i As Long
    ' Blattnamen in  Combobox eintragen
    Me.ComboBox1.Clear
    For i = 1 To Worksheets.Count
        Me.ComboBox1.AddItem Worksheets(i).Name
    Next
End Sub

Gruß
Jochen


  

Betrifft: AW: Makro für Dateiauswahldialog von: Hannes
Geschrieben am: 25.09.2014 14:58:22

Hallo Jochen!

Danke für die schnelle Antwort!

Er lässt leider nicht zu aufgrund des "me." in der letzten Spalte von dir.

Da ich in VBA noch ein Anfänger bin, hätte ich noch dazu eine frage. Unter Excel - Entwicklertools - Einfügen such ich hier die DropDown-Anzeige aus und weise es einem Makro zu und verweise es auf ein von dir geschriebenes Makro richtig?

Nochmals Danke!