@Josef

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
  • @Josef von Peter W vom 07.03.2005 12:47:00
Bild

Betrifft: @Josef
von: Peter W
Geschrieben am: 07.03.2005 12:47:00
Servus Josef,
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
Bild

Betrifft: AW: @Josef
von: Josef Ehrensberger
Geschrieben am: 07.03.2005 12:49:27
Hallo Peter!
Das geht z.B. so.

Sub menü()
Dim wks As Worksheet
For Each wks In Worksheets
   If wks.Name <> "Pauschalen" And wks.Name <> "DB" Then
      UserForm1.ListBox1.AddItem wks.Name
   End If
Next
UserForm1.Show
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: @Josef
von: Peter W
Geschrieben am: 07.03.2005 12:55:30
Hallo Josef,
wieder einmal hast du mir was beigebracht, vielen Danke !!!
MfG
Peter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schutz für mehrere Blätter"