mit nachfolgendem Code wird die aktuelle Arbeitsmappe unter Löschen nicht benannter Tabellenblätter a.d. Desktop kopiert. Wie kann ich den Code ergänzen, dass auch nur bestimmte Codes aus der Arbeitsmappe übernommen werden und alle anderen Codes/Makros ebenfalls gelöscht werden? Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
'Speichert aktuelle Mappe unter untenstehenden Namen ab und löscht alle anderen Tabellen
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 = "Ergebnisse" Then x = x + 1
Next i
If x > 0 Then
MsgBox "Die gefilterten Daten werden auf Ihrem Desktop gespeichert, der Vorgang kann etwas _
_
dauern! Bitte OK drücken.", 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\ _
Ergebnisse." & Date & ".xlsm"
Application.DisplayAlerts = False
For Each wks In Worksheets
If wks.Name = "Ergebnisse" Then
Else
wks.Delete
End If
Next
ThisWorkbook.Save
ThisWorkbook.Close
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub