ich erstelle in einer listbox einträge, die den namen von arbeitsblättern darstellen. wie kann ich nun über einen commandbutton alle arbeitsblätter markieren die in der listbox sind?
grüße hans
Private Sub CommandButton1_Click()
''Alle Blätter werden selektiert
Dim i As Long
With Listbox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Sheets(.List(i, 0)).Select False
End If
Next
End With
End Sub
Private Sub CommandButton2_Click()
''Auswahl wird aufgehoben
Dim i As Long
aSh.Select
With Listbox1
For i = 0 To .ListCount - 1
.Selected(i) = False
Next
End With
End Sub
Private Sub CommandButton3_Click()
''Alle ausgewählten werden selektiert
Dim i As Long
With Listbox1
For i = 0 To .ListCount - 1
Sheets(.List(i, 0)).Select False
Next
End With
End Sub
Private Sub UserForm_Activate()
''Blattnamen in die Listbox lesen
Set aSh = ActiveSheet
Dim sh As Object
With Listbox1
.Clear
For Each sh In Sheets
.AddItem sh.Name
Next
End With
End Sub