Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub cmdWks_Click()
   Dim wks As Worksheet
   Dim arr() As String
   Dim vName As Variant
   Dim iCounter As Integer
   lstWks.Clear
   Application.ScreenUpdating = False
   vName = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls), *.xls")
   If vName = False Then Exit Sub
   Workbooks.Open vName
   ReDim arr(1 To ActiveWorkbook.Worksheets.Count)
   For Each wks In ActiveWorkbook.Worksheets
      iCounter = iCounter + 1
      arr(iCounter) = wks.Name
   Next wks
   ActiveWorkbook.Close
   Application.ScreenUpdating = True
   lstWks.List = arr
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox