Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattnamen bedingt in ListBox einlesen und Blätter auswählen

Gruppe

ListBox

Problem

Wie kann ich beim Öffnen einer Arbeitsmappe eine ListBox mit den vorhandenen Blattnamen mit Ausnahme der Blätter "Test" und "Muster" füllen. Bei Auswahl eines Blattes soll dieses auf Schaltflächendruck ausgewählt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

StandardModule: basMain

Sub cmdAusaehlen_Click()
   Worksheets(Tabelle2.lstWks.Value).Select
End Sub

Sub cmdKopieren_Click()
   Dim sName As String
   sName = InputBox("Blattname:", , "Muster1")
   If sName = "" Then Exit Sub
   Worksheets("Muster").Copy after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = sName
   Tabelle2.lstWks.AddItem sName
End Sub

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Tabelle2.lstWks.Clear
   For Each wks In Worksheets
      If wks.Name <> "Test" And wks.Name <> "Muster" Then
         Tabelle2.lstWks.AddItem wks.Name
      End If
   Next wks
End Sub