Thema Datum  Von Nutzer Rating
Antwort
17.03.2017 13:30:39 Gast89052
NotSolved
Blau Löschbutton
 17.03.2017 17:58:34 Werner
NotSolved
20.03.2017 14:41:34 Gast23750
NotSolved
20.03.2017 14:47:19 Julius
NotSolved
20.03.2017 19:35:34 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
17.03.2017 17:58:34		 Views:
714		 Rating:
     
Antwort:
  Ja
Thema:
Löschbutton

Hallo,

der Code sollte irgendwoher wissen, welche Blätter du löschen möchtest.

Ich bin im Beispiel mal davon ausgegange, dass die Blattnamen der "zu löschenden Blätter" im Blatt 1 in Spalte A, ab A1, eingetragen werden. Der Code klappert dann die Einträge in Spalte A ab und löscht die entsprechenden Blätter.

Aber vorsicht, die Blätter werden ohne Rückfrage gelöscht.

 

Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
Dim i As Long
Dim strBlattname As String

Application.DisplayAlerts = False

With Sheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    For i = 1 To loLetzte
        strBlattname = .Cells(i, 1).Value
        On Error Resume Next
        Sheets(strBlattname).Delete
        On Error GoTo 0
    Next i
End With

Application.DisplayAlerts = True
End Sub

 

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.03.2017 13:30:39 Gast89052
NotSolved
Blau Löschbutton
 17.03.2017 17:58:34 Werner
NotSolved
20.03.2017 14:41:34 Gast23750
NotSolved
20.03.2017 14:47:19 Julius
NotSolved
20.03.2017 19:35:34 Werner
NotSolved