tabellenblätter per vba auswählen und löschen

Question

Guten Abend,

ist es möglich per vba mehrere Tabellenblätter auzuwählen und dann zu löschen, habe hier jetzt schon gesucht und nichts gefunden, bis eben eine antwort, weiß aber nicht wie ich sie anwenden muß.


grüße
Achim

Answer 1

Hi Achim,

auch wenn ich nur sehr wenig VBA-Kenntnisse habe - generell ist das schon möglich.

Aber - was ist Dein Kriterium zum löschen?

Ich denke so wirst Du evtl. keine Lösung erhalten können, die Dir sofort weiterhilft, da jede Lösung mit einer Gegenfrage von Dir enden könnte, mit ... und wenn ich diese und jene haben möchte?

Die einfachste Methode wäre ansonsten das Aufzeichnen eines Makros mit dem Makrorekorder, aber ich denke das wird Dir nicht die Lösung bringen, die Du haben willst. Aber - es wäre die erste mögliche Antwort auf Deine Frage ;-).

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 2

hi all ^^

wie gewuenscht :-)

gruss nighty

alternativ zum index die worksheetnamen

Option Explicit

Sub WorkSheetsDelete()
Call EventsOff
Worksheets(Array(1, 3)).Delete
Call EventsOn
End Sub

Public Sub EventsOff()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.DisplayAlerts = False
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub

Answer 3

hi all ^^^

be dem modul EventsOn ist zu korrigieren

.DisplayAlerts =True

gruss nighty

Answer 4

Hallo nighty,

erstmal Danke, bekomme aber bei der folgenden Zeile eine Fehlermeldung

Worksheets(Array(1, 3)).Delete

und zwar Index außerhalb des gültigen Bereichs,

ich denke mal das liegt daran das die Tabellenblätter immer wieder einen anderen Namen haben.

und was vielleicht nicht so rübergekommen ist, ich möchte nicht alle Tabellenblätter löschen sondern eben nur bestimmte und die möchte ich eben auswählen können.

grüße
Achim

Answer 5

hi achim ^^

was haettest du dann fuer vorstellungen der darstellung :-)

bei sehr vielen worksheets vielleicht gruppenbildung,da ja ansonsten kaum ein unterschied zur haendichen selectierung waere,eine userform wuerde auch den rahmen sprengen :-)))

das obige beispiel geht ueber einen index und namen spielen dabei eigentlich keine rolle

du siehst,es gibt mehrere varianten

so waere es auch moeglich die darstellung in einer spalte wiederzugeben(falls die reiter ausgeblendet sein sollten) und bei mouseclick zu loeschen

gruss nighty

Answer 6

Hallo nighty,

habe jetzt die Tabelle ein wenig geändert, lasse mir nun die Tabellennamen per VBA auslesen und in der Tabelle 1 ( Eingabe ) in die Spalte D ab der Zeile 5 Eintragen, was ich jetzt erreichen möchte ist das wenn ich den Button hinter der Spalte anklicke eben dieses Tabellenblatt gelöscht wird.


grüße
Achim

Answer 7

Hallo,

so habe nun meine Problem gelöst, hier nun meine Lösung.

Sub Tabellenblatt_loeschen()
Dim TabName As String
Dim WS As Worksheet
' Tabellenname wird aus Zelle gelesen
TabName = Range("d5")
For Each WS In Worksheets
If WS.Name = TabName Then
WS.Delete
End If
' Die Zelle mit den Namen wird gelöscht
Range("D5").Select
Selection.ClearContents
Next
End Sub

Danke noch einmal die mir dabei Helfen wollten.

grüße
Achim

Answer 8

hi achim ^^

hier noch eine variante,die nicht ins leere laeuft :-))

gruss nighty

Sub DeinMakro()
If SheetExists("" & Cells(5, 4)) = True Then Worksheets("" & Cells(5, 4)).Delete
End Sub

Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Worksheets(strName) Is Nothing
End Function