Listboxauswahl
18.08.2004 14:07:11
Olga
ich hab da ein Kleines Problem un zwar hab ich eine Listbox erstellt die Worksheets beinhaltet nun will ich beim ankliken des Worksheet auch direkt drauf komem die funktioniert jedoch nicht er springt immer auf das selbe ergebnis. Könnt ih mir da weiterhelfen?
Private Sub ListBox1_Click()
Dim wks1 As Worksheet
Dim s1 As Integer
Dim a1 As Integer
s1 = 1
ListBox1.Clear
For Each wks1 In Worksheets
If s1 >= 4 And s1 <= 10 Then
ListBox1.AddItem wks1.Name, a1
a1 = a1 + 1
End If
s1 = s1 + 1
Next wks1
Worksheets(a1).Activate
End Sub
Gruß Olga