UF: Listbox - gewählte Tabellenblätter löschen
15.02.2004 18:30:49
Christoph
In eine UserForm habe ich eine Listbox integriert, in der alle Tabellenblätter
der aktuellen Datei aufgeführt werden.
Mein Problem:
Ich möchte jene Tabellenblätter, die ich in der Listbox markiere, durch Klick
auf einen ComandButton löschen.
Allerdings habe ich keinen blassen Schimmer, wie der VBA-Code hierfür aussehen
muss.
Mein bisheriger Code: s.u.
Vielen Dank für eure Hilfe schon vorab
viele Grüsse
Christoph
Private Sub UserForm_initialize ()
'Listbox_Sheet ist der Name der Listbox, in der die Worksheets
'aufgelistet werden
Dim sh as Worksheet
For Each sh In ActiveWorkbook.Worksheets
Listbox_Sheet.AddItem sh.Name
Next sh
End Sub
Private Sub Loesch_Click()
'Loesch ist der Name des ComandButtons
'hier weiß ich nicht weiter
'For Each '...?
'...ActiveWindow.SelectedSheets.Delete
End Sub
Anzeige