VBA die letzten Blätter löschen
04.02.2022 07:50:08
P.
ich stehe vor einer kleinen Herausforderung.
Ich benutze einen Code:
>
Sub gruppe1()
For n = 7 To 11
Sheets("bbmuster").Select
ThisWorkbook.Worksheets("bbmuster").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
Sheets("Gruppeneinteilung").Select
Name = Range("B" & n).Text
Sheets("bbmuster (2)").Select
Sheets("bbmuster (2)").Name = Name
Next n
Dim DateiName As String
Dim bytTab As Byte
Dim arrTabs
Dim strPath As String
Dim wksTab As Worksheet
strPath = Application.ActiveWorkbook.Path
ReDim arrTabs(10 To 14)
For bytTab = 10 To 14
arrTabs(bytTab) = Worksheets(bytTab).Name
Next bytTab
Worksheets(arrTabs).Copy
With ActiveWorkbook
For Each wksTab In Worksheets
If .Worksheets(wksTab.Name).Shapes.Count > 0 Then .Worksheets(wksTab.Name).Shapes(1).Delete
Next wksTab
Application.DisplayAlerts = False
.SaveAs Filename:=strPath & "\Gruppe1.xlsx", FileFormat _
:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End With
End Sub
Es ist immer Blatt 10 - 14 was neu erzeugt wird.
Danach speichtert dieser die neu erzeugten 5 Tabellenblätter in einer eigenständigen Datei.
Jetzt möchte ich gerne in der alten Datei, direkt nach der Speicherung, diese 5 letzten Tabellenblätter (Blatt 10 - 14) wieder löschen und verhindern, dass die neu erzeugte Datei geöffnet wird. Diese Ergänzung des Codes fehlt mir noch.
Hoffentlich waren das ausreichende Informationen?
Ich würde mich rieseig freuen, wenn jemand einen Lösungsansatz für mich hätte.
Vielen Dank und einen super Start in den Tag wünsche ich euch :)
Liebe Grüße Patrick