Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Blatt löschen wenn Blattname in Tabelle | Herbers Excel-Forum


Betrifft: Blatt löschen wenn Blattname in Tabelle von: Andreas
Geschrieben am: 11.12.2009 08:14:46


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

  

Betrifft: AW: Blatt löschen wenn Blattname in Tabelle von: Hajo_Zi
Geschrieben am: 11.12.2009 08:39:46

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

GrußformelHomepage


Beiträge aus den Excel-Beispielen zum Thema "Blatt löschen wenn Blattname in Tabelle"