ListBox
27.02.2009 22:11:48
Werner
im Nachfolgenden Makro werden unter anderen alle Tabellenblätter in einer Listenbox aufgelistet. Gibt es eine Möglichkeit das das erste und das letzte Tabellenblatt nicht mit aufgelistet werden?
Gruß Werner
Private Sub CommandButton1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
Range("A1").Select
Unload Me
End Sub
Private Sub CommandButton2_Click()
Sheets(ListBox1.List(ListBox1.ListIndex, 0)).Delete
Unload Me
UserForm2.Hide
End Sub
Private Sub UserForm_Initialize()
Dim Blatt As Worksheet
For Each Blatt In ThisWorkbook.Worksheets
ListBox1.AddItem Blatt.Name
Next
End Sub