Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
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

Tabellenblätter löschen

Tabellenblätter löschen
Peter
Hallo,
es gibt schon einige Frane und Antworten zu diesem Thema, aber ich habe nichts gefunden, was meinem Problem entspricht.
Ich bastle gerade ein wenig rum und würde gerne folgendes Problem lösen:
In meiner Mappe sollen alle Tabellenblätter (ob leer oder mit Inhalt), die der Standardbezeichnung entsprechen, also Tabelle1, Tabelle2 etc., gelöscht werden. Das ganze am besten ohne die Systemmeldung, dass ich das Löschen nicht Rückgängig machen kann.
Gruß
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter löschen
07.09.2012 12:33:59
Rudi
Hallo,
Sub aaaa()
Dim wks As Worksheet
On Error GoTo ErrHdl
Application.DisplayAlerts = False
For Each wks In Worksheets
If LCase(Left(wks.Name, 7)) = "tabelle" Then wks.Delete
Next
ErrHdl:
Application.DisplayAlerts = True
End Sub

Gruß
Rudi

AW: Tabellenblätter löschen
07.09.2012 12:35:57
Beverly
Hi Peter,
Sub Loeschen()
Dim wksTab As Worksheet
Application.DisplayAlerts = False
For Each wksTab In Worksheets
If Worksheets.Count > 1 Then
If InStr(wksTab.Name, "Tabelle") > 0 Then wksTab.Delete
End If
Next wksTab
Application.DisplayAlerts = True
End Sub


Anzeige
das lösch aber ...
07.09.2012 12:47:07
Rudi
Hallo,
auch alle Tabellen, in deren Name Tabelle vorkommt!
MeineTabelle01
(in meinem Code müsste aber auch noch geprüft werden, ob der rechte Teil eine Zahl ist. Evtl. sollte man prüfen ob .Name=.CodeName und dann löschen)
Gruß
Rudi

eine derartige Tabellenbezeichnung...
07.09.2012 16:03:57
Beverly
Hi,
...ist vom TO nicht vorgegeben.


AW: Tabellenblätter löschen
07.09.2012 12:50:49
Peter
Danke an euch beide.

AW: Tabellenblätter löschen
07.09.2012 12:50:51
Peter
Danke an euch beide.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige