Nun steh ich vor dem Problem: Wie fuege ich einer Listbox die Namen der Worksheets hinzu, dass sie nach einem auswahlen dort und einem Klick auf einen Button in diesem Dokument aktiv gesetzt werden?
Gruss
Tobias
Private Sub ListBox1_GotFocus()
Dim sh As Worksheet
With ListBox1
.Clear
For Each sh In ActiveWorkbook.Sheets
.AddItem sh.Name
Next
End With
End Sub
Private Sub CommandButton1_Click()
Sheets(ListBox1.Value).Activate
End Sub
Ich habe das GotFocus-Ereignis zum "Auffrischen" gewählt, falls Blätter hinzugrfügt oder gelöscht wurden.