@Josef
07.03.2005 12:47:00
Peter
Ich hab von dir mal eine Hilfe zu nem Listenfeld bekommen, und den Code ein wenig umgebastelt, so das er beim starten des Menüs das Listenfeld automatisch aktualisiert.
Wie schaff ich es nun das er alle worksheets aufnimmt ausser (Pauschalen und DB).
Hast du oder jemand anderer ne Idee, Danke vorab.
' Menü starten Listenfeld einlesen
Sub menü()
Dim wks As Worksheet
For Each wks In Worksheets
UserForm1.ListBox1.AddItem wks.Name
Next
UserForm1.Show
End Sub
'zu Tabellenblatt wechseln
Private Sub CommandButton3_Click()
If ListBox1.ListIndex <> -1 Then
Sheets(ListBox1.Text).Select
Application.ScreenUpdating = True
Unload Me
End If
End Sub
MfG
Peter
Anzeige