Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1120to1124
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
Inhaltsverzeichnis

Blatt löschen wenn Blattname in Tabelle

Blatt löschen wenn Blattname in Tabelle
Andreas

hallo
bei der suche nach einer möglichkeit verschiedene tabellenblätter zu löschen bin ich auf den nachstehenden code gestossen.
Frage: ist es möglich, dass die blattauswahl nicht über eine inputbox geschiet sondern über eine tabelle? heisst - ich möchte in der tabelle1 in der spalte b die blattnamen der zu löschenden blätter eingeben und dann das makro starten. so sollen mehrere tabellenblätter auf einmal gelöscht werden.
Sub Tabellenblatt_loeschen()
Dim TabName As String
Dim WS As Worksheet
TabName = InputBox("Namen des Tabellenblatts eingeben")
For Each WS In Worksheets
If WS.Name = TabName Then
WS.Delete
End If
Next
End Sub

kann mir jemand sagen, wie der code dafür aussehen muss?
das wäre super. auf jeden fall herzlichen dank
andi

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Blatt löschen wenn Blattname in Tabelle
11.12.2009 08:39:46
Hajo_Zi
Hallo Andreas,
mal ungetestet.
Option Explicit
Sub Tabellenblatt_loeschen()
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
On Error Resume Next
For LoI = 1 To LoLetzte
If Cells(LoI, 2)  "" Then
Worksheets(Cells(LoI, 2)).Delete
End If
Next
On Error GoTo 0
End Sub


Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige