Ich würde eine UserForm erzeugen mit einer ListBox, hier ListBox1. Mit
Private Sub UserForm_Initialize()
With ListBox1
.MultiSelect = fmMultiSelectExtended
.ListStyle = fmListStyleOption
For Each Sh In ActiveWorkbook.Sheets
.AddItem Sh.Name
.Selected(.ListCount - 1) = True
Next
End With
End Sub
wird eine Liste der Tabellenblätter erstellt, die alle ausgewählt sind. Um eines zu deaktivieren, muss bei festgehaltener Steuerungstaste die Zeile angeklickt werden. Ob eine Tabelle gewählt wurde, kannst du im Code eines anderen Steuerelementes, z.B. eines CommandButtons, feststellen, indem du prüfst, ob die Selected-Eigenschaft der Zeile true oder false ist.
with listbox1
for i=0 to .listcount-1
if .selected(i)=true then Deine Anweisungen
next i
Sieh im Übrigen in der VBA-Hilfe unter den o.a. Elementen als Stichwort nach.
Gruß
Holger
|