Tabellenblätter gruppieren per Listenfeld?
12.05.2004 13:28:45
ralle
Habe folgende Frage an Euch:
Habe eine Arbeitsmappe mit mehreren Tabellenblättern.
Möchte jetzt gern ein UserForm mit einem Listenfeld erstellen, das mir alle Tabellenblätter auflistet. Dort kann ich dann ein oder mehrer Tabellenblätter auswählen die dann gruppiert werden.
Wie müsste so ein Makro aussehen ?
Gruß
ralle
PS: Ein änliches Makro habe zeige ich Euch hier.
Bei diesem Makro werden die Tabellenblätter aufgelistet, dort kann ich dann ein oder mehrer Tabellenblätter auswählen, die dann glöscht werden. Ich möchte aber nur das die ausgewählten Blätter gruppiert (aktiviert) werden!
Option Explicit
Private Sub cmbFile_Click()
FillList
End Sub
Private Sub cmdCancel_Click()
'Userform schliessen
Unload Me
End Sub
Private Sub cmdDelete_Click()
'Ausgewählte Tabellenblätter löschen
Dim intC As Integer
On Error GoTo FEHLER
Workbooks(cmbFile.Text).Activate
If lstSheet.ListCount > 1 Then
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
With lstSheet
For intC = 0 To .ListCount - 1
If .Selected(intC) Then Workbooks(cmbFile.Text).Sheets(.List(intC)).Delete
Next
End With
Else
MsgBox "Die ausgewählte Datei enthält nur ein Tabellenblatt!", vbExclamation
End If
FEHLER:
FillList
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
End Sub
Private Sub UserForm_Initialize()
Dim wkb As Workbook
'ComboBox füllen
For Each wkb In Application.Workbooks
cmbFile.AddItem wkb.Name
Next
'cmbFile.ListIndex = 0
cmbFile = ActiveWorkbook.Name
FillList
End Sub
Private Sub FillList()
Dim wks As Worksheet
'ListBox füllen
lstSheet.Clear
For Each wks In Workbooks(cmbFile.Text).Sheets
lstSheet.AddItem wks.Name
Next
End Sub