Hallo zusammen!
@M.O.:
Ja, jetzt klappt es.
Vielleicht hast Du noch einen Tipp für mich, wie ich das Beenden der Listbox mit dem "X" verhindern kann.
@fedjo:
Sieht auch sehr vielversprechend aus.
Vorteil in Deiner Version, dass der Button "Löschen" nicht zum Laufzeitfehler "94" führt, wenn kein Blatt ausgewählt wurde und unbeabsichtigterweise der Button zum Löschen gedrückt wurde.
Nachtei: Auch das Blatt mit dem Button kann gelöscht werden bzw. benötige ich noch ein Kriterium.
Mit
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Hilfe" _
Or ws.Range("B2") = "Toll" Then
ListBox1.AddItem ws.Name
Else
End If
Next ws
komme ich leider nicht weiter.
Schönen Abend!
Tom