Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Sheets löschen, außer zwei...

Forumthread: VBA Sheets löschen, außer zwei...

VBA Sheets löschen, außer zwei...
07.01.2021 11:32:55
Marko
Hallo,
wie kann ich alle Sheets löschen, außer diese beiden Sheets (Namen: "NO" und "BV")?
Mit diesem Code konnte ich alle, bis auf den Sheet (Namen:"NO") löschen. Wahrscheinlich weil "NO" aktiv war? Doch wie kann ich jetzt zwei Sheets mit einem Code - nicht löschen.
Dim Sh As Integer
Application.DisplayAlerts = False
For Sh = ActiveWorkbook.Worksheets.Count To 2 Step -1
Sheets(Sh).Delete
Next Sh
Application.DisplayAlerts = True
Vielen Dank für Eure Hilfe.
Gruß, Marko
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Sheets löschen, außer zwei...
07.01.2021 11:43:31
Werner
Hallo,
so: 
Public Sub Löschen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
Case "NO", "BV"
Case Else
Application.DisplayAlerts = False
ws.Delete
End Select
Next ws
End Sub
Gruß Werner
Dankeschön
07.01.2021 12:11:57
Marko
Hallo Werner,
genau so. Vielen Dank.
Gruß, Marko
Anzeige
AW: Dankeschön
07.01.2021 12:48:27
Luschi
Hallo Marko,
bei mir sieht dieses Makro so aus: 

Public Sub Loeschen()
Dim sh As Object
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Sheets
Select Case sh.Name
Case "NO", "BV"
Case Else
sh.Delete
End Select
Next sh
''nicht erforderlich, macht Excel selbst
''Application.DisplayAlerts = True
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige
Dankeschön
07.01.2021 12:52:11
Marko
Hallo Luschi,
vielen Dank für den zusätzlichen Hinweis.
Gruß, Marko
AW: Dankeschön
07.01.2021 13:21:43
Werner
Hallo Luschi,
hast natürlich recht, DisplayAlert außerhalb der Schleife.
Gruß Werner
;
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige