Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter löschen durch auswahl ?? VBA

Forumthread: Tabellenblätter löschen durch auswahl ? VBA

Tabellenblätter löschen durch auswahl ? VBA
ralle
Hallo liebes Forum!
Zur Zeit stehe ich vor folgendem Problem:
Ich habe eine Datei mit mehreren Tabellenblättern (kann varriieren). Die Tabellenblätter haben als Namen eine 4stellige Nummer (nicht fortlaufend).
Ich möchte nun per VBA das man irgendwo eingeben kann welche Tabellenblätter nicht gelöscht werden sollen. Als Eingabe soll hier die 4stellige Nummer eingegeben werden. Nach der Eingabe der Nummer(n)sollen dann alle anderen gelöscht werden.
Ist soetwas möglich und wenn ja wie ?
Gruß
ralle
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblätter löschen durch auswahl ? VBA
Josef
Hallo Peter!
Versuch's mal so.

Sub BlaetterLoeschen()
Dim strNum As String
Dim wks As Worksheet
strNum = InputBox("Bitte geben sie die Nummer an," & vbLf & _
"die nicht gelöscht werden soll!", "Nummer", "xxxx")
If strNum = "" Then Exit Sub
On Error GoTo FEHLER
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
For Each wks In ThisWorkbook.Sheets
If InStr(1, wks.Name, strNum) = 0 Then wks.Delete
Next
FEHLER:
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

Gruß Sepp
Anzeige
An Sepp!!!!
ralle
Hallo Sepp!
bist Du auch wieder da!!
Habe das Makro gestestet, und es funktioiert soweit ganz gut. Es gibt aber noch einen kleinen Schönheitsfehler:
Mit diesem Makro kann ich eine Nummer auswählen, die nicht glöscht werden soll. Gibt es auch die Möglichkeit das ich mehrere Nummer (z.B. 20) eingeben kann, die nicht gelöscht werden sollen?
Gruß
ralle
Anzeige
Vielleicht so?
IngoG
Hallo Ralle,
hab eine Datei erstellt, die Dir die vorhandenen Tabellenblätter auflistet, aus denen Du dann die zu löschenden nacheinander auswählen kannst... Ist meiner Meinung nach die sicherere lösung...
https://www.herber.de/bbs/user/5836.xls
uU kannst Du ja die sicherheitsabfrage rausnehmen und so die performance bei sehr vielen zu löschenden Blättern etwas erhöhen (2 Klicks pro Blatt, momentan 3 Klicks)
Gruß Ingo
einfach Sub BlaetterLoeschen starten...
Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
AW: Vielleicht so?
ralle
Hallo Ingo!
In Deinem Beispiel klappt das wunderbar, wenn ich dies Makro aber in meiner Datei abspieln will funktioniert das nicht. Wie bekomme ich Dein Makro in meine Datei und wie schaffe ich es, dass es für alle geöffneten Excel-Mappen gilt ?
Gruß
ralle
AW: Vielleicht so?
IngoG
Hallo Ralle,
Du mußt im VBA editor das Modul und die Userform in deine Personl.xls kopieren.
dazu öffnest Du meine Datei und nat. die Personl.xls und ziehst im objektfenster einfach das modul und die userform auf personl.xls .
Danach kannst Du einen button in deine buttonleiste integrieren und das macro (aus personl.xls) damit verknüpfen...
Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
AW: An Sepp!!!!
Josef
Hallo Peter!
Ich würde eine UserForm erstellen, mit einem
Listenfeld (ListStyle=fmListStyleOption, Multiselect=fmMultiSelectMulti)
und zwei Commandbutton.
Und dann dieser Code im Modul der UF.

Private Sub CommandButton1_Click()
Unload Me
End Sub



Private Sub CommandButton2_Click()
DelSheets
End Sub



Private Sub UserForm_Activate()
ListSheets
CommandButton1.Caption = "Abbrechen"
CommandButton2.Caption = "Auswahl löschen"
End Sub



Private Sub ListSheets()
Dim wks As Worksheet
Me.ListBox1.Clear
For Each wks In ThisWorkbook.Sheets
Me.ListBox1.AddItem wks.Name
Next
End Sub



Private Sub DelSheets()
Dim intC As Integer
On Error GoTo FEHLER
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
With Me.ListBox1
If .ListCount > 1 Then
For intC = 0 To .ListCount - 1
If .Selected(intC) Then
Sheets(.List(intC)).Delete
End If
Next
End If
End With
ListSheets
FEHLER:
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
End Sub

Ich kann dir heute Abend auch eine Beispielmappe hochladen.
(hier von der Arbeit kann ich nichts hochladen!)
Gruß Sepp
Anzeige
fehler!
Josef
Hallo Peter!
nach
FEHLER:
muss es natürlich so heisen!
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
Gruß Sepp
AW: An Sepp!!!!
ralle
Hallo Sepp!
Das wäre sehr nett von Dir wenn Du mir die Beispielmappe hochladen würdest.
Also bis heute abend!
Gruß
ralle
Anzeige
hier ist die Datei!
Josef
Hallo Peter!
Ist ein wenig spät geworden ;-)
Hier die versprochene Datei.
Achte auf den neuen Menüpunkt in der Arbeitsblatt-Menüleiste!
https://www.herber.de/bbs/user/5864.xls
Gruß Sepp
kleiner Schönheitsfehler!
ralle
Hallo Sepp!
Habe das Makro ausprobiert und es funktioniert super !
Hab nur noch einen Schönheitsfehler:
Meine Datei hat ca. 30 Tabellenblätter (können auch mal mehr sein). Wenn ich nun das Makro starte passen diese nicht ganz in die Liste rein und ich muß runterscrollen (soweit ok) jedoch werden die Namen der Tabellenblätter, die erst durch das scrollen Sichtbar werden falsch benannt und zwar nach dem Namen des Tabellenblattes das als letztes noch in den Sichtbaren Bereich der Liste passen. Erst wenn ich diese Tabellenblätter in der Liste mit der Maus makiere erscheint der richtige Name.
Woran kann das liegen? (Hoffe Du hast meine Frage verstanden)
Gruß
ralle
Anzeige
AW: kleiner Schönheitsfehler!
Josef
Hallo Peter!
Ich verstehe diene Frage, kann das Problem aber
nicht nachvollziehen!
Bei mir werden alle Tabellennamen korrekt dargestellt!
Ändere mal diesen Code

Private Sub FillList()
Dim wks As Worksheet
'ListBox füllen
lstSheet.Clear
For Each wks In Workbooks(cmbFile.Text).Sheets
lstSheet.AddItem wks.Name
Next
Me.Repaint '##Neu##
End Sub

Vielleicht hilft's
Gruß Sepp
Anzeige
Danke! funktioniert super !! o.T.
30.04.2004 11:54:00
ralle
.
;

Forumthreads zu verwandten Themen

Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
aus ausgewählter Datei Tabellenblätter kopieren
Katrin

Hallo, wer kann mir helfen?
Ich möchte aus einer, vorher in einem Dialogfenster ausgewählten Datei (immer unterschiedlich), den Inhalt mehrerer Tabellenblätter in eine andere Datei kopieren. Dabei sind die Bezeichnungen der Tabellenblätter in den beiden Dateien identisch. Bis zum 1. Tabelle...
17.09.2008 10:35:00
Thread-ID: 1010267
2 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Help - Tabellenblätter nacheinander auslesen
Markus

Hallo zusammen,
ich habe eine Datei mit verschiedenen Tabellen.
In der Tabelle 1 (Spalte A, beginnend mit Zeile 2) sind alle Tabellennamen aufgeführt, die in der Datei nach der Tabelle 1 vorkommen.
Ich möchte nun in einer variablen Schleife (so oft, wie Namen in der Tabelle 1 steh...
07.10.2008 19:22:33
Thread-ID: 1014799
6 Beiträge
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
4 Beiträge
Sverweis Summe aus darüberliegenden Zeilen
Matthias

Hallo,
ich möchte mit Sverweis eine Summe aus dem Wert der verwiesenen Zelle und den
Werten aus den 4 darüberliegenden Werten der selben Spalte bilden:
z.B:
in Spalte A5 steht "x" und in Spalte BR5 der Wert 5, in BR4 steht 4 in BR3 steht 3 usw.
jetzt bräuchte ich die Funktio...
24.11.2008 13:07:49
Thread-ID: 1027283
5 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
händische Eingabe in Feldern mit sverweis
Manic

Hallo Experten!
Habe leider nichts passendes gefunden, daher:
Ich bastele an einer Liste, die per "sverweis" in benachbarten Zellen ergänzt wird. In diese Liste werden allerdings ebenfalls Dinge erfasst, die eine vorläufige Bezeichnung haben und daher nicht in der zum "sverweis" gehören...
07.01.2009 16:18:00
Thread-ID: 1037602
7 Beiträge
Tabellenblätter ausblenden
Reinhardt

Hallo.
Ich habe eine Mappe mit ca. 100 Tabellenblättern. , aber die Anzahl ist variabel.
Nun wähle ich im TB "INHALT" über eine Listbox ein Tabellenblatt an, welches auch dann angezeigt wird.
(Die Zellverknüfung ist A1, in B1 steht der Sverweis mit dem Namen des Tabellenblattes).
13.01.2009 14:23:00
Thread-ID: 1039250
6 Beiträge
Anzeige
Tabellenblätter ausblenden in Abhängigkeit v. Wer
Andreas

Hi Leute,
hab folgendes Problem bzw. Aufgabenstellung:
Ich habe eine Excel(2007) - Datei mit mehreren Tabellenblättern. Auf einem Blatt namens "Hierarchie" können in einer Zeile bis zu 8 Feldern ausgefüllt werden. In Abhängigkeit von der Anzahl n der ausgefüllten Felder sollen dann ansc...
14.01.2009 20:09:00
Thread-ID: 1039796
7 Beiträge
Anzeige
SVERWEIS mit mehreren Einträgen
Tom

Hallo,
Ich führe ein Transaktionsjournal, welches ich auswerten möchte. Folgende Spalten habe ich zur Verfügung:
Datum
Text
Betrag
Pro Datum kann es mehrere Einträge geben.
Ich möchte nun eine konsolidierte Tabelle erstellen, in welcher pro Datum alle Texte und der Gesa...
19.01.2009 17:01:00
Thread-ID: 1041567
3 Beiträge
Anzeige
ausgewählte Tabelleneinträge verarbeiten
T.I.

Hallo Excel-Experten,
ich möchte mit denjenigen Werten (Spalte B), die über den gleichen Zell-Eintrag (Spalte A) in einer Tabelle verfügen, eine Rechenoperation durchführen, die nicht über Pivot-Tabellen-Funktion (min, max,...etc.) realisiert werden kann (bspw. die Berechnung von Quantilen...
22.01.2009 14:39:19
Thread-ID: 1042635
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige