Thema: Blattnamen in Zelle eingeben

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

Beiträge aus dem Excel-Forum zu den Themen Funktion und ZELLE