Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA alte Tabellenblätter löschen

VBA alte Tabellenblätter löschen
28.09.2016 18:19:21
Chris
Hey Leute,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA alte Tabellenblätter löschen
28.09.2016 18:25:23
Daniel
Hi
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ß Daniel
AW: VBA alte Tabellenblätter löschen
28.09.2016 18:26:27
Hajo_Zi
Hallo Chris,
Option 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


Anzeige
AW: VBA alte Tabellenblätter löschen
28.09.2016 18:37:31
Werner
Hallo Chris,
und noch eine Version, wobei Hajo bei seinem Code wohl vergessen hat zunächst ein neues Tabellenblatt anzulegen.
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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige