Listenfeld aktualisieren
08.07.2003 19:29:54
Erich
Sub ListefeldAktualisieren()
Dim Tabelle As Worksheet
Sheets("Startseite").Select
ActiveSheet.ListBox1.Clear
For Each Tabelle In ThisWorkbook.Worksheets
If Tabelle.Visible = True Then ActiveSheet.ListBox1.AddItem Tabelle.Name
Next Tabelle
End Sub
Vielen Dank im Voraus
Erich