Thema: Blattnamen listen

Home

Die Arbeitsblätter einer auszuwählenden Arbeitsmappe werden in der ListBox gelistet.

Prozedur: cmdList_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Blattnamen listen
Ablaufbeschreibung:
- Variablendeklaration
- Bildschirmaktualisierung ausschalten
- Ereignisse ausschalten
- Fehlerroutine starten
- Dialog zum Einlesen der zu öffnenden Arbeitsmappe aufrufen
- Wenn keine Arbeitsmappe ausgewählt wurde, zum ERRORHANDLER springen
- Ausgewählte Arbeitsmappe öffnen
- Eine Schleife über alle Arbeitsblätter der geöffneten Arbeitsmappe bilden
- Aktuellen Arbeitsblattnamen der ListBox hinzufügen
- Aktive Arbeitsmappe ohne speichern schießen
- ERRORHANDLER
- Ereignisse einschalten
- Bildschirmaktualisierung einschalten

Code:


Sub cmdList_Click()
   Dim wks As Worksheet
   Dim vFile As Variant
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   vFile = Application.GetOpenFilename("Excel-Arbeitsmappen (*.xls), *.xls")
   If vFile = False Then GoTo ERRORHANDLER
   Workbooks.Open vFile
   For Each wks In ActiveWorkbook.Worksheets
      lstWks.AddItem wks.Name
   Next wks
   ActiveWorkbook.Close savechanges:=False
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub