Pop-Up-Fenster zum 2.
04.02.2004 15:21:12
RolandS
jetzt habe ich den String umgearbeitet:
---------------------------------------
Private Sub Workbook_Open()
Dim aktW As Window
Set aktW = ActiveWindow
Application.ScreenUpdating = False
If MsgBox("Wollen Sie Daten eintragen", vbYesNo, "Info") = vbYes Then
Worksheet.Open ("Daten")
aktW.Activate
End If
Sheets("Menü").Range("G17").Activate
Application.CommandBars("cell").Enabled = False
With aktW
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Application.ScreenUpdating = True
End Sub
--------------------
er bringt immer die Fehlermeldung 424 "Objekt erforderlich" und markiert mein Worksheet.open
*knurr
Wo hängts ? Außer an mir :-)))
Gruß
RolandS
Anzeige