Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sheets löschen über VBA

Sheets löschen über VBA
11.01.2005 19:06:14
Torsten
Hallo beisammen,
mit
...With ActiveWorkbook
.Sheets("GESAMT").Delete
kann ich ein einzelnes WS aus meiner aktiven Datei löschen.
Wie lautet die Syntax, wenn ich alle Sheets löschen möchte, deren Namen mit
"C", "T" und "C" beginnen?
Vielen Dank für Eure Hilfe im voraus.
Gruß
Torsten

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets löschen über VBA
Ulf
Option Explicit

Sub wech()
Dim sh As Object
For Each sh In Sheets
If sh.Name Like "C*" Or sh.Name Like "T*" Then
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End If
Next
End Sub

Ulf
AW: erledigt - vielen Dank Ulf - Gruß Torsten
Torsten
AW: Sheets löschen über VBA
11.01.2005 19:17:59
GraFri
Hallo
SO MÖGLICH:


      
Sub Tabelle_löschen()
Dim Tabelle
Application.DisplayAlerts = 
False
    
For Each Tabelle In ThisWorkbook.Sheets
        
If Left(UCase(Tabelle.Name), 1) = "C" Then Tabelle.Delete
        
If Left(UCase(Tabelle.Name), 1) = "T" Then Tabelle.Delete
    
Next
Application.DisplayAlerts = 
True
End Sub
 


mfg, GraFri
Anzeige
AW: erledigt - Vielen Dank - Gruß Torsten
Torsten

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige