AW: listbox einträge markieren
K.Rola
Hallo,
Beispiel:
''=====================================================
''Erforderliche controls:
''Eine Listbox mit Namen ListBox 1
''Commandbutton1
''Commandbutton2
''Commandbutton3
''=====================================================
''Der Code muss ins Modul des userforms
''=====================================================
Option Explicit
Dim aSh As Object
''=====================================================
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
Gruß K.Rola