Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellennamen mit bestimmten Muster löschen

Tabellennamen mit bestimmten Muster löschen
05.06.2016 16:32:14
Anton
Hallo Zusammen,
ich möchte gerne Tabellen mit dem Muster "Datensatz (1)", "Datensatz (2)" usw. dynamisch löschen. Die Schleife dazu habe ich bereits aufgesetzt. Diese funktioniert auch wenn ich nur einen bestimmten Namen löschen möchte. Muss man hier evtl. mit RegEx arbeiten oder eine Zählvariable definieren?
Danke für eure Unterstützung und schönen Sonntag noch.
VG Anton

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
05.06.2016 16:48:37
Mullit
Hallo,
vielleicht reicht das schon:
Option Explicit

Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
   With wksSheet
        If .Name Like "Datensatz (?*)" Then Call .Delete
   End With
Next
Application.DisplayAlerts = True
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
05.06.2016 16:57:14
Mullit
Hallo,
uuups, besser noch so:
Option Explicit

Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
   With wksSheet
        If .Name Like "Datensatz (#*)" Then Call .Delete
   End With
Next
Application.DisplayAlerts = True
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
05.06.2016 17:33:22
Anton
Hi Mullit,
vielen Dank für das schnelle Feedback. Deine Methode hat super geklappt! Wäre es möglich, auch mehrere Bedingungen zu formulieren? Also alle Tabellenblätter welche nicht den Namen "Datensatz1 (#*)" und "Zusammenfassung1 (#*)" enthalten sollen gelöscht werden. Ich habe bereits umfassend recherchiert und unzählige Bedingungen versucht aber irgendwie will es nicht klappen.
Danke für Deine Mühe!
VG Anton

AW: Tabellennamen mit bestimmten Muster löschen
05.06.2016 18:05:52
Mullit
Hallo,
klar, einfach so:
Option Explicit

Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
   With wksSheet
        If .Name Like "Datensatz (#*)" Or _
          .Name Like "Zusammenfassung (#*)" Then Call .Delete
   End With
Next
Application.DisplayAlerts = True
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
06.06.2016 09:58:57
Alex
... da allerdings die Sheets gelöscht werden sollten, die nicht "Datensatz..." oder "Zusammenfassung1..." heißen, wäre es dann halt die Negation:

Option Explicit
Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If Not .Name Like "Datensatz (#*)" And _
Not .Name Like "Zusammenfassung (#*)" Then Call .Delete
End With
Next
Application.DisplayAlerts = True
End Sub
VG,
Alex

AW: Tabellennamen mit bestimmten Muster löschen
06.06.2016 10:32:45
Anton
Hallo Mullit & Alex,
vielen Dank für eure Lösungsvorschläge. Beide Lösungen funktionieren einwandfrei. Ich habe versucht das Ganze noch über einen anderen Ansatz zu lösen. Nur bekomme ich im Beispiel unten immer einen Laufzeitfehler 1004 bzgl. der Delete Methode. Habt ihr vielleicht eine Erklärung hierfür? 
Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
With wksSheet
If .Name  "Datensatz (#*)" And .Name  "Zusammenfassung (#*)" Then
.Delete
End If
End With
Next wksSheet
Application.DisplayAlerts = True
End Sub
Danke und viele Grüße,
Anton

Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
07.06.2016 18:23:33
Mullit
Hallo Alex und Anton,
hat Anton allerdings erst anders geschrieben, das muß eben immer exakt sein: 
Also alle Tabellenblätter welche nicht den Namen "Datensatz1 (#*)"

Wenn Du jetzt den umgekehrten Fall willst, dann so:
Option Explicit

Public Sub DeleteSheets_ByName()
Dim wksSheet As Worksheet
Application.DisplayAlerts = False
For Each wksSheet In ThisWorkbook.Worksheets
   With wksSheet
        If Not (.Name Like "Datensatz (#*)" Or _
          .Name Like "Zusammenfassung (#*)") Then Call .Delete
   End With
Next
Application.DisplayAlerts = True
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Anzeige
AW: Tabellennamen mit bestimmten Muster löschen
07.06.2016 18:40:00
Mullit
Achja und ich seh grad, Du hast den Like-Operator eliminiert, daher rührt der Fehler, da dieser mit Wildcard-Zeichen arbeitet, die bei Abfrage auf Ungleichheit zu einem nicht vorhandenen Namen führen, wodurch alle Tabblätter gelöscht werden, da aber eines in der Mappe enthalten sein muß, entsteht der Fehler...
Gruß, Mullit

AW: Tabellennamen mit bestimmten Muster löschen
08.06.2016 14:23:58
Anton
Hi Mullit,
danke für die Erklärung. Da bin ich auch nach ausführlicher Recherche nicht drauf gekommen.
VG Anton

301 Forumthreads zu ähnlichen Themen

Zeilen lassen sich nicht ausblenden
Kurt

Guten Tag Zusammen,
ich habe folgendes Makro für das Ausblenden der Zeilen 23:50,
gebastelt.
Nun wollte ich die Aktion durchführen, leider werden die anderen
Tabellen die Zeilen nicht ausgeblendt nur die Active Tabelle.
Dann ist mit aufgefallen das ich die Zeilen oder auch...
21.01.2009 16:19:36
Thread-ID: 1042287
5 Beiträge
Anzeige
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Anzeige
Makro-Sicherheit lässt sich nicht ändern
NoNet

Hallo VBA-Experten,
ich habe auf meinem PC unter Excel 2003 SP3 seit einiger Zeit das Problem, dass sich Änderungen der Makro-Sicherheit ("Extras - Makros - Sicherheit") nicht mehr dauerhaft ändern lassen.
D.h. : Ich kann zwar die Sicherheitsstufe und auch die Optionen im Register "Vert...
08.03.2010 15:40:14
Thread-ID: 1144340
20 Beiträge
Zwischenablage lässt sich nicht löschen
Hugo

Hallo
Wie kann ich im folgenden Code beim schliessen der Datei verhindern, dass die Abfrage .. Zwischenablage erscheint
Mit Application.CutCopyMode = False passiert nichts.
Besten Dank und Gruss
Hugo
Sub Test() Dim objExcel As New Excel.Application Dim objSheet As Object Di...
25.10.2010 21:40:04
Thread-ID: 1183827
4 Beiträge
Namen lassen sich nicht löschen
Heinz

Guten Morgen Excellenten,
Montag-Morgen und der Ärger geht an.
Ich habe für jeden Kollegen eine Stundenerfassungsliste
erstellt. Dort sind Namen vergeben, die ich in anderen
Dateien für die Auswertung verwerden.
Das Problem. Durch was auch immer enstanden:
Wenn ich nur d...
21.02.2011 09:29:49
Thread-ID: 1202004
3 Beiträge
Verknüpfungen lassen sich nicht löschen
Heinz

Hallo Liebe Excellenten,
ich hatte das Thema schon mal offen, aber dann den Kontakt
zu "Rudi" verloren, der mir zuletzt geraten hatte, eine Datei hochzuladen.
https://www.herber.de/bbs/user/73679.xlsx
In der Datei sind 2 Verknüpfungen, wobei die
Verknüpfung Proab..usw ok u...
22.02.2011 16:04:22
Thread-ID: 1202376
2 Beiträge
AddIn Symbolleiste - AddIn löschen geht nicht
Claudia

Hallo alle zusammen,
ich verzweifel seit einigen Stunden und hoffe Ihr könnt mir helfen.
Ich hatte mal ein AddIn welches aber gelöscht wurde. In der Symbolleiste unter AddIn wird aber dieses AddIn weiter angezeigt und ich kann es beim besten Willen nicht löschen.
Unter Datei -- Opit...
26.05.2011 01:57:43
Thread-ID: 1216039
5 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
2
1
4
5
19
3
2
1
4
3
6
11
3
2
11
8
9
9
7
7
11
4
1
1