Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

301 Forumthreads zu ähnlichen Themen

Pivot VBA Tabellenblatt löschen
murat

Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click() Dim letzteZelle As Long letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _ After:=[A1], SearchDirection:=...
24.01.2010 21:10:25
Thread-ID: 1132506
5 Beiträge
Anzeige
Access VBA Tabellen löschen
Michael

Hallo Forum,
meine Suche im Netz nach einem Code für Access mit dem ich ausgewählte Tabellen beim schliessen von Access automatisch löschen lassen will war bisher leider vergeblich.
Beim schliessen sollen nur zwei Tabellen erhalten bleiben, alle anderen können zwecks Speicherplatz gelö...
02.07.2015 11:34:45
Thread-ID: 1434433
3 Beiträge
löschen von Tabelle2 VBA
Tabelle2

Hallo zusammen,
ich habe in der Tabelle 1
Nummern und texte vergeben
Spalte A2
1-01-01-10
1-01-02-20,08
1-01-02-20,07
1-80-01-10
1-80-01-10,01
1-55-09-30
In der Tabelle 2
D2
stehen plätze oder Texte drin die in der Tabelle 1 gelöscht ( komplette...
13.02.2016 08:48:36
Thread-ID: 1475215
5 Beiträge
Anzeige
VBA Macro Inhalt Tabelle löschen wenn bestimmte Re
Andre

Hallo,
ich habe mal wieder ein kleines Problem mit excel VBA(Macro).
Ich habe eine Tabelle(Stunden) die ich jede Woche neu schreibe.
Diese Tabelle kopiere ich nur und gebe dem Tabellenblatt nur einen neuen Namen,KW12)
Wenn ich diese Tabelle dann kopiere und KW13 daraus mache, da...
22.03.2017 12:25:03
Thread-ID: 1548822
15 Beiträge
Zeilen in mehreren Tabellenblättern löschen (VBA)
Kai

Guten Morgen,
ich habe eine Arbeitsmappe mit 5 Tabellen, Tabelle 1-3 sind identisch und ich stehe vor _ folgender Herausforderung: Auf Tabelle 3 kann in Spalte F (Zeile 4:21) ein Wert zwischen 1-5 gewählt werden (der Wert überträgt sich dann auch in Tabelle 1 & 2). Wird die 1 gewählt s...
31.07.2019 09:19:13
Thread-ID: 1705088
2 Beiträge
VBA: Zeile 7 in allen Tabellenblättern löschen
Janesch

Hallo Zusammen,
ich habe eine Aufgabe die bei mir öfters auftritt,
Habe Datei mit 25 Tabellenblättern und muss in jedem Tabellenblatt die 7 Zeile löschen.
Ich würde gerne über VBA lösen. Kann mir da jemand helfen.
Vielen Dank im Voraus.
Janesch
25.10.2019 15:59:28
Thread-ID: 1719715
6 Beiträge
VBA: Zeile in anderem Blatt finden und löschen
Lukas

Hallo liebe Community,
ich habe eine Excel-Datei mit zwei Tabellenblättern. Die (vereinfachte) Ausgangssitutation ist folgende:
Tabellenblatt 1 ("Input"):
Datum, Vorname, Name, Thema
Tabellenblatt 2 ("Output"):
Datum, Vorname, Name, Thema, Status
Ziel:
Wenn in einer...
18.11.2019 23:45:54
Thread-ID: 1724146
9 Beiträge
VBA ListBox Zeilen in Tabelle löschen
Chris

Guten Abend zusammen,
ich habe ein Problem mit dem Löschen von Inhalten aus meiner Tabelle anhand der Auswahl in der ListBox.
Ich lese die Daten der ListBox aus einem Tabellenblatt ein. Multiselect ist aktiviert. Ich würde gerne für jede ausgewählte Zeile aus der ListBox, die entspreche...
28.11.2020 20:12:54
Thread-ID: 1796128
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
2
4
3
14
1
5
8
6
15
11
1
4
4
8
5
4
4
13
2
6
14
2
6