Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1380to1384
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
1380to1384
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter löschen, wenn Name nicht ...

Tabellenblätter löschen, wenn Name nicht ...
15.09.2014 15:11:08
Basti
Hallo Zusammen,
versuche mich gerade an einem ein Sub (), die alle Tabellenblätter einer Arbeitsmappe löscht, die nicht einen bestimmten Teil eines Textes aufweisen.
Ziel soll es sein, per InputBox den Tabellenblattname, der Blätter die gelöscht werden sollen, abzufragen.
Bsp: Tabelle-A_1; Tabelle-A_2; Tabelle-A_3; Tabelle-B_1; Tabelle-B_2; Tabelle-C_1.
Die Prozedur solle alle Blätter die den im Namen "Tabelle-B" oder "Tabelle-C" haben löschen.
Im Forum habe ich diesen Beitrag gefunden, der fast das tut was ich benötige.
https://www.herber.de/forum/archiv/1180to1184/1180979_wenn_bestimmtes_Tabellenblatt_existiertloeschen.html
Leider kann ich nur 100% Übereinstimmgungen damit löschen.
Danke für Euere Hilfe
Gruß
Basti

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter löschen, wenn Name nicht ...
15.09.2014 15:20:48
Rudi
Hallo, 
Sub BlattKiller()
Dim sName As String, wks As Worksheet
sName = InputBox("Blattname?")
If sName  "" Then
On Error GoTo ERREXIT
Application.DisplayAlerts = False
For Each wks In Worksheets
If LCase(wks.Name) Like LCase(sName) & "*" Then
wks.Delete
End If
Next
End If
ERREXIT:
Application.DisplayAlerts = True
End Sub

Gruß
Rudi

AW: Tabellenblätter löschen, wenn Name nicht ...
15.09.2014 21:16:10
Basti
Hey Rudi,
wie immer Hilfsbereit, Danke!
Mit deinem Code kann man zwar bestimmte Blätter löschen, aber leider noch nicht 100%ig was ich benötige. Wahrscheinlich habe ich nicht eindeutig genug geschrieben.
"versuche mich gerade an einem ein Sub (), die alle Tabellenblätter einer Arbeitsmappe löscht, die nicht einen bestimmten Teil eines Textes aufweisen."
Ich habe eine Mappe mit vielen Blättern. Innerhalb dieser Mapper interessieren mich allerdings nur zwei Typen, die dummerweise beliebig vorkommen können und immer einen bestimmten Teil eines Textes im Namen aufweisen.
Bsp: A1; A2; B1; B2; C1; C2; D1; D2
Der Code solle jetzt alle Blätter löschen, die nicht A oder B im Namen haben.
Hast Du vielleicht für dieses Problem einen Vorschlag?
Gruß
Basti

Anzeige
AW: Tabellenblätter löschen, wenn Name nicht ...
16.09.2014 09:51:00
Rudi
Hallo, 
Sub BlattKiller()
Dim wks As Worksheet
On Error GoTo ERREXIT
Application.DisplayAlerts = False
For Each wks In Worksheets
Select Case Left(wks.Name, 1)
Case "A", "B"
'nix passiert
Case Else
wks.Delete
End Select
Next
ERREXIT:
Application.DisplayAlerts = True
End Sub

Gruß
Rudi

AW: Tabellenblätter löschen, wenn Name nicht ...
16.09.2014 12:23:57
Basti
Servus Rudi,
Code tut was er soll!
Allerdings ist mir aufgefallen, dass durch Anweisung 

Select Case Left(wks.Name,1)

ein Bezug über die Zeichenlänge hergestellt wird und damit eine Abfrage per Inputboxm mit unterschiedlichen Zeichenlängen, bei mir nicht funktioniert.
Hast Du einen Tipp, der die Case-Anweisung variable halt und sie abhänig von der Länge der Eingabe macht?
Bsp: ABC-1;ABC-2;DEF-1;DEF-2;GHI-1;GHI-2
Es soll die Möglichkeit geben sein, dass ich entweder nur Blätter mit A, AB bzw. ABC beibehalte ohne das Ganze im Code anpassen zu müssen.
Gruß
Basti

Anzeige
AW: Tabellenblätter löschen, wenn Name nicht ...
16.09.2014 13:40:03
Rudi
Hallo,
Der Code solle jetzt alle Blätter löschen, die nicht A oder B im Namen haben.
macht meiner.
Du solltest konkreter/ realer werden.
Gruß
Rudi

AW: Tabellenblätter löschen, wenn Name nicht ...
16.09.2014 15:26:39
Basti
Servus Rudi,
ich gelobe Besserung!
Jedoch ist damit nicht das Problem gelöst. Solltest Du noch eine Idee haben, dann wäre ich dir sehr dankbar für deine Hilfe
Gruß
Basti

AW: Tabellenblätter löschen, wenn Name nicht ...
19.09.2014 07:57:59
fcs
Hallo basti,
versuch es mal hiermit.
Gruß
Franz 
Sub BlattKiller()
Dim varName As Variant, wks As Worksheet, arrText
varName = InputBox("Beginn zu löschender Blattnamen:" & vbLf & "(mehrere durch ; trennen)" _
)
If varName  "" Then
On Error GoTo ERREXIT
arrText = Split(varName, ";")
Application.DisplayAlerts = False
For Each wks In Worksheets
For Each varName In arrText
'          If LCase(wks.Name) Like LCase(varName) & "*" Then
If LCase(Left(wks.Name, Len(varName))) = LCase(varName) Then
wks.Delete
Exit For
End If
Next
Next
End If
ERREXIT:
Application.DisplayAlerts = True
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

alle Sheets mit bestimmten Namen markieren
Micha.hal

Hallo Excelperten,
wie kann ich in einer Datei per VBA alle Blätter markieren, deren Name mit einem "a" oder einem "b" endet?
Micha
01.10.2009 10:24:08
Thread-ID: 1106585
14 Beiträge
Anzeige
Auswahl mehrerer Blätter mit variablem Namen
Philipp

Hallo Forum!
Ich habe glaube ich gerade ein Brett vor dem Kopf.
Ich möchte mehrere Arbeitsblätter variabel auswählen.
Gibt es hier eine Möglichkeit, anhand der Blattnummer zu sagen:
Auswahl der Blätter 5 bis 9?
Alternative wäre es möglich, den Namen des Arrays zu "basteln".<...
01.04.2011 17:27:36
Thread-ID: 1208734
6 Beiträge
Alle Tabellenblätter mit "Vorhaben" löschen
Kai

Hallo,
ich habe ein Makro, das legt bei Bedarf verschiedene Tabellenblätter an. Darunter gibt es dann auch viele, die nennen sich "Vorhaben01", "Vorhaben02" ..usw.
Ich möchte nun alle Tabellenblätter, die mit den ersten 8 Zeichen mit "Vorhaben" beginnen (egal, was dahinter noch kommt) l...
18.04.2011 08:19:39
Thread-ID: 1210851
4 Beiträge
Anzeige
Alle Blätter mit "ABC" durchlaufen
Kai

Hallo,
Ich möchte per VBA alle Tabellenblätter durchlaufen, die mit "BESTAND" beginnen.
Blätter können zB. heisen:
"Bestand Alt"
"Bestand Neu"
"Bestand Heute"
...
und dort einen Code ausführen. Ich weiss nicht, ob ich da jedes Tabellenblatt einzeln selektieren muss,...
08.07.2011 10:28:56
Thread-ID: 1221345
19 Beiträge
VBA für alle Tabellenblätter
Bernd

Hallo an Alle,
ich bitte um Eure Hilfe. Ich habe ein Makro, das mir in einem Zellbereich bei einem Doppelklick ein Haken oder ein x schreibt. Dies funktioniert in dem Tabellenblatt, in dem das Makro gespeichert ist. Ich möchte aber die Dateien nicht in .xslm sondern in .xlsx, also ohne Makr...
22.06.2014 22:03:57
Thread-ID: 1366938
4 Beiträge
Summe über Blätter mit Bereichsnamen
Hackl

Hallo
ich hab in einer Mappe 300 Blätter (durchnummerierte Blattnamen 1 - 300).
In jedem Blatt ist eine Zelle mit einem Bereichsnamen benannt: "Stückzahl".
Jetzt will ich in einem zusätzlichen Blatt eine Summe über alle Blätter und das oa Feld bilden.
Ich hab schon alles möglich...
11.12.2014 13:43:26
Thread-ID: 1397405
9 Beiträge
Tabellenblätter zusammenkopieren mit Tabellennamen
Stefan

Hallo zusammen,
ich habe hier im Forum schon ein hilfreiches Makro gefunden, dass den ersten Teil meiner Problemstellung sehr gut erledigt.
Mehrere Tabellenblätter mit gleichem Spaltenaufbau und jeweils hunderten von Zeilen werden dadurch auf einem Blatt untereinanderkopiert - soweit gu...
12.12.2014 10:53:21
Thread-ID: 1397528
7 Beiträge
VBA auf alle Tabellenblätter anwenden
Christoph

Hallo zusammen,
ich nutze aktuell folgenden Code um Leerzeichen per VBA zu löschen. Nun würde ich diesen gerne auf alle Tabellenblätter in der Arbeitsmappe anwenden - kann mir da jemand helfen.
Danke und Gruß Sub LeErsetzen() Dim rngZelle As Range Dim rngBereich As Range Dim wks As Work...
19.08.2015 15:32:08
Thread-ID: 1443155
5 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
13
4
5
3
4
18
3
8
6
4
8
1
1
1
1
2
3
2
5
2
6
1
5
1
10