Blattcode wird nicht übernommen
15.03.2014 14:19:30
Wolfgang
mit nachstehendem Code wird die Kopie einer Excel-Mappe, um bestimmte Tabellenblätter bereinigt, a.d. Desktop gespeichert. Bislang hat auch alles super funktioniert. Nun habe ich in -Tabelle 1 (Grunddaten)- noch einen BlattCode eingebaut, der mit kopiert werden soll, um ihn auch in der jeweiligen Tabellenblattkopie der Mappe nutzen zu können. Irgendwie kopiert der Code ihn aber nicht mit, was müsste ich ggfs. verändern? (liegt es evtl. daran, dass die Tabelle Grunddaten, hinter der sich der Code befindet, zu früh gelöscht wird?) - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Speichern1234()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim i As Long, x As Long
x = 0
For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name = "Tabelle1" Then x = x + 1
If Sheets(i).Name = "Tabelle2" Then x = x + 1
If Sheets(i).Name = "Tabelle3" Then x = x + 1
If Sheets(i).Name = "Tabelle4" Then x = x + 1
Next i
If x > 0 Then
MsgBox "XXXXX.", vbOKOnly
Else
MsgBox "Sie haben noch keine Daten gefiltert, die exportiert werden könnten !", vbCritical
Exit Sub
End If
ThisWorkbook.SaveAs "C:\Dokumente und Einstellungen\" & Environ("Username") & "\Desktop\ _
Ergebnis." & Date & ".xlsb"
Application.DisplayAlerts = False
For Each wks In Worksheets
If wks.Name = "Tabelle1" Or wks.Name = "Tabelle2" Or wks.Name = "Tabelle3" Or wks.Name = " _
Tabelle4" Then
Else
wks.Delete
End If
Next
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub