Select-Methode ungültig
18.08.2003 09:55:51
Peter T
habe in meiner Mappe alle bis auf ein Arbeitsblatt das immer sichtbar sein soll
ausgeblendet, mit dem u. a. Code Drucke ich bestimmte Seiten die über ein UserForm abgefragt werden.
Solange alle Arbeitsblätter eingeblendet sind, funktioniert der unten angeführete Code auch, aber sobald ich nur noch mein Infoblatt sichtbar habe kommt immer die Fehlermeldung das die Select-Methode fehl schlägt.
Kann man ausgeblendete Arbeitsblätter gar nicht markieren ?
Kennt jemand eine andere Methode die Blätter zum Druck zu markieren obwohl ausgeblendet ?
Danke
Peter
Private Sub OKBut_Click()
Dim iloop As Integer
Dim i As Integer
Dim DruckBlaetter
Dim DruckArray() As String
i = 0 - 1
Sheets().Select False ' Hier der erste Fehler !!!!!!!!!!!
For iloop = 1 To Druckauswahlbox.ListCount
If Druckauswahlbox.Selected(iloop - 1) = True Then
i = i + 1
ReDim Preserve DruckArray(i)
DruckArray(i) = Druckauswahlbox.List(iloop - 1, 0)
End If
Next
Set DruckBlaetter = Worksheets(DruckArray)
DruckBlaetter.Select ' Hier der zweite Fehler !!!!!!!!!!!
Unload Me
Application.Dialogs(xlDialogPrint).Show
Sheets("Home").Select
End Sub