per VBA muss ich ein neues Tabellenblatt erstellen, sobald dies erstellt ist sollen alle anderen Tabellenblätter gelöscht werden.
Wie kriege ich das mit einem VBA Makro hin?
Danke im voraus
Gruß Chris
Dim i As Long
Sheets.Add before:=Sheets(1)
Application.DisplayAlerts = False
For i = 2 To ActiveWorkbook.Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True
gruß DanielOption Explicit
Sub Loeschen()
Dim WsTabelle As Worksheet
Application.DisplayAlerts = False
For Each WsTabelle In Worksheets
If WsTabelle.Name ActiveSheet.Name Then
WsTabelle.Delete
End If
Next WsTabelle
Application.DisplayAlerts = False
End Sub
Public Sub Erstellen_Löschen()
Application.DisplayAlerts = False
Worksheets.Add
ActiveSheet.Name = "Neues_Blatt"
For Each Worksheet In ActiveWorkbook.Worksheets
If Worksheet.Name "Neues_Blatt" Then
Worksheet.Delete
End If
Next Worksheet
Application.DisplayAlerts = True
End Sub
Gruß Werner