Gruppe
Dialog
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.
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