AW: Tabellenblätter in neuer Arbeitsmappe zusammenfass
11.05.2004 11:57:02
ralle
Habe jetzt folgendes Makro geschrieben:
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 kopieren
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)).Copy
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
Dieses ermöglicht es mir Tabellenblätter auszuwählen, für jedes ausgewählte Tabellenblatt wird dann eine neue Arbeitsmappe angelegt.
Ich möchte nun aber das die asugewählten Arbeitsblätter alle in einer neuen Arbeitsmappe kopiert werden.
Was muss ich an meinem Makro ändern ?
Gruß
ralle