ich habe versucht eine Datei zu kopieren und in der Kopie überflüssige Tabellenblättern zu entfernen. Leider hat das mit dem Makrorekorder nicht so gut geklappt. Kann mir jemand helfen? Wie kann ich das mit VBA realisieren?
Grüße und Dank
Chrissi
Sub test()
Dim Wsh As Worksheet
Application.DisplayAlerts = False
For Each Wsh In ThisWorkbook.Worksheets
Select Case Wsh.Name
Case "Tabelle1", "Tabelle3"
'do nothing
Case Else
Wsh.Delete
End Select
Next
Application.DisplayAlerts = False
End Sub
Gruß Gerd