Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Private Sub Workboo_Open

Forumthread: Private Sub Workboo_Open

Private Sub Workboo_Open
Matthias
Morgen,
ich habe immer noch das Problem mit dem Scrollberech:
Das ist der Code:

Private Sub Workbook_Open()
Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
End Sub

Aber ich habe in "DieseArbeitsmappe" noch ein Makro:

Private Sub Workbook_Open()
Sheets("Main Menu").Activate
End Sub

Wenn ich das ausfuehre kommt folgende Fehlermeldung: Compile Error, Ambiguous name detected: Workbook_Open
Das leigt bestimmt an dem Namen oder?
Matthias
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Private Sub Workboo_Open
Nike
Hi,
dann setzte es doch gleich beim Oeffnen:
In "DieseArbeitsmappe" das Makro:

Private Sub Workbook_Open()
Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
Worksheets("Main Menu").Activate
End Sub

Die

Private Sub kannst du dann ganz loeschen...
Zwei mal den gleichen Namen kann Excel nicht vertragen ;-)
Bye
Nike

Anzeige
AW: Private Sub Workboo_Open
Matthias
Das klappt!
Und wie kann ich diesen Code noch einarbeiten?
Private Sub Workbook_Open
Dim antw
antw = MsgBox("Want you see the commentbar?", vbYesNo)
If antw = vbYes Then
Sheets("Comments").Select
End If
Danke schon mal!
Matthias
AW: Private Sub Workboo_Open
Matthias
Hi Nike,
ich habe es selber geschaft!
Danke und bis bald
Matthias
Anzeige
AW: Private Sub Workbook_Open
Nike
Hi,
Private Sub Workbook_Open
Worksheets("Main Menu").ScrollArea = "A$1:$A$25"
Worksheets("Main Menu").Activate
if MsgBox("Would you like to see the commentbar?", vbYesNo) vbYes Then
Sheets("Comments").Activate
End If
Bye
Nike
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige