Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrere Tabellen in Mappe löschen

Forumthread: Mehrere Tabellen in Mappe löschen

Mehrere Tabellen in Mappe löschen
29.06.2007 08:05:00
Seppl
Hallo,
ich habe eine Mappe mit ca 90 Tabellen.
Ich möchte nun alle Tabellen löschen ausser diesen :
Monat, Jahr, Neu Erstellen.
(Jeden Monat erstelle ich die anderen ca. 50 -90 Tabellen mit einem Makro neu,
darum auch das löschen der alten).
Geht das mit VBA?
Besten Dank für Hilfe
Seppl

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Tabellen in Mappe löschen
29.06.2007 08:11:42
Hajo_Zi
Hallo Sepppl,
mir ist so als ob die Frageschon gestern schon beantwortet. Fange nicht zu einem Them mehrere Beiträge an. Besonders, wenn Lösung schon gepostet.
Rechte maustaste auf Register, alle markieren, die die nicht gelöscht werden sollen abwählen, rechte Maustaste löschen.

Anzeige
AW: Mehrere Tabellen in Mappe löschen
29.06.2007 08:19:00
Matthias
Hi, Seppl
in ein Modul
Option Explicit

Sub TabLoeschen()
Dim X
Application.DisplayAlerts = False
For X = Worksheets.Count To 1 Step -1
If Worksheets(X).Name  "Monat" And Worksheets(X).Name  "Jahr" And Worksheets(X).Name  " _
Neu Erstellen" Then
Worksheets(X).Delete
End If
Next
Application.DisplayAlerts = True
End Sub


Gruß Matthias

Anzeige
AW: Mehrere Tabellen in Mappe löschen
29.06.2007 08:24:00
Jan3
Hi Seppl,
Folgendes Makro in ein Modul Deiner Tabellen, die nicht gelöscht werden sollen kopieren und ausführen.
  • 
Sub TabLoeschen()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name  "Monat" And ws.Name  "Jahr" And ws.Name  "Neu Erstellen" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True
End Sub


    • Jan
    Anzeige
    ;

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige