Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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...
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
Anzeige
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...
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
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
Danke! funktioniert super !! o.T.
30.04.2004 11:54:00
ralle
.

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm 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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4