Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Öffnen

Öffnen
15.08.2002 11:56:25
martin
hallo leute,

ich möchte, wenn ich die arbeitsmappe öffne immer das tabellenblatt "hauptübersicht" und die "userform1" als erstet erscheint. ich habe die anweisung auch in auto_open geschrieben:

Sub Auto_Open()
Workbooks("Hauptübersicht").Select
UserForm1.Show
End Sub
aber mein problem, wenn ich die arbeitsmappe mit z.b. aktive "tabelle6" gespeichert habe, erscheint beim erneuten öffnen der arbeitsmappe wieder "tabelle6" und "userform1", ich möchte aber mit "hauptübersicht" und "userform1" starten.
gibt es eine möglichkeit das zu realisieren?

für eine nachricht wäre ich euch dankbar.

gruß
martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Öffnen
15.08.2002 12:03:55
Ramses
Hallo Martin,

wenn schon, dann muss es heissen

Sub Auto_Open()
Worksheets("Hauptübersicht").Select
UserForm1.Show
End Sub

Gruss Rainer

Re: Öffnen
15.08.2002 12:06:29
Micha
hi,

Workbooks("dateiname").Worksheets("Hauptübersicht").Activate

mfg

Re: Öffnen
15.08.2002 12:14:30
martin
hallo micha,
habe ich eingefügt aber es funtioniert nicht. wenn ich mit der activen tabelle6 speicher öffnet er auch die arbeitmappe mit tabelle6. mit "dateiname" meinst du doch den namen der arbeitmappe oder nicht?

was ist zu tun?

gruß
martin

Re: Öffnen
15.08.2002 12:44:26
Micha
das hört sich an als ob er das makro garnicht ausführt. prüfe das mal mit was einfachem/direktem wie
Range("A1")="testblabla"
ob dort überhaupt was passiert.
bei excel 2000 gibt es ja das auto_open nicht mehr, da lässt du dir den code von der arbeitsmappe anzeigen und wählst (rechts oben) dort das Open-ereignis. wenns das bei 97 schon gibt versuch mal das.
Anzeige
Re: Öffnen
15.08.2002 13:01:02
martin
hallo micha,
ich habe es nun in workbook_open geschrieben und es funktioniert.
danke für den tipp.

gruß
martin

Private Sub Workbook_Open()
Worksheets("Hauptübersicht").Activate
UserForm1.Show
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige