ausgeblendete Blätter
19.09.2006 13:25:24
Gregor
Mit folgendem Makro hat der User beim Öffnen der Datei die Möglichkeit das richtige Blatt auszuwählen:
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
Me.cb1.AddItem ws.Name
Next
End Sub
Dazu 2 Fragen
Was muss ich ergänzen, damit es die ausgeblendeten Blätter (xlVeryHidden) in der ListBox nicht auflistet.
Was muss ich ergänzen, damit es in der List Box das 1 Blatt defaultmässig anzeigt (Me.cb1.ListIndex = "0" funktioniert nicht).
Vielen Dank und freundliche Grüsse
Gregor