Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Befehle in Workbook Open

Mehrere Befehle in Workbook Open
02.08.2006 14:16:53
Martin
Hallo ich habe eine Excel Datei bei deren Start sich ein
Zugriffsprotokoll die Benutzer usw. notiert.
Nun möcht ich das auch gleich eine Userform geöffnet wird.
Leider funzt die Protokoll funktion dann nicht mehr:
Das ist der Code In "DieseARbeitsmappe"
Dim AppObject As New CAppLog

Private Sub Workbook_Open()
Set AppObject.app = Application
Ufrm_Main.Show
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set AppObject.app = Nothing
End Sub

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Befehle in Workbook Open
02.08.2006 14:26:05
stefanseevetal
Hallo Martin,
versuch es mal mit
Load Ufrm_Main
in der Zeile vor Deinem Ufrm-Main.Show
Gruß,
Stefan
AW: Mehrere Befehle in Workbook Open
02.08.2006 14:47:39
Martin
Hallo,
also ich hab jetzt mal mit
Load Ufrm_Main.show geht nicht
Load (Ufrm_Main.show) geht auch nicht.
war das richtig interprtiert von mir?
AW: Mehrere Befehle in Workbook Open
02.08.2006 15:18:38
stefanseevetal
Hallo Martin,
sorry, habe mich wohl etwas unklar ausgedrückt. Es gehört in eine extra Zeile:
Load Ufrm_Main
Ufrm_Main.Show
So, müsste es gehen.
Gruß,
Stefan
AW: Mehrere Befehle in Workbook Open
02.08.2006 15:53:06
Martin
Hallo,
allso jetzt öffnet sich die Userform wieder, aber der Eintrag in die Datei Zugriffs-Datei.txt wird nicht geschrieben.
Anzeige
AW: Mehrere Befehle in Workbook Open
02.08.2006 16:00:32
Jens
Hi,
du initialisierst eine Klasse, der Code ist aber nicht in deinem posting genau wie der für das Zugriffsprotokoll.
mfg Jens
AW: Mehrere Befehle in Workbook Open
02.08.2006 16:23:11
Martin
Und wo soll ich dann deiner meinung nach den
Befehl für den Start der Userform reinschreiben?
AW: Mehrere Befehle in Workbook Open
02.08.2006 16:35:41
Jens
Hi,
kann ich dir sagen, wenn ich den gesamten Code kenne. Alternativ zeig dis Userform
modeless an.
mfg Jens
AW: Mehrere Befehle in Workbook Open
02.08.2006 16:52:25
Martin
Code im Klassenmodul:
Public WithEvents app As Application

Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook)
Benutzer = Application.UserName
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
Dateiname = WBook.FullName
Open "T:\Haupt\Personalakten\Kaufpreissammlung\Zugriffe_Kaufpreissammlung.txt" For Append As #1
Print #1, Benutzer & vbTab & Datum & vbTab & Uhrzeit _
& vbTab & Dateiname
Close #1
End Sub

Code in DieseArbeitsmappe:
Dim AppObject As New CAppLog

Private Sub Workbook_Open()
Set AppObject.app = Application
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set AppObject.app = Nothing
End Sub

Anzeige
AW: Mehrere Befehle in Workbook Open
02.08.2006 16:59:47
Jens
Hi,
soll die Userform auch immer angezeigt werden, wenn ein Workbook geöffnet wird?
mfg Jens
AW: Mehrere Befehle in Workbook Open
02.08.2006 17:01:27
Martin
Ja die soll direkt beim öffnen der Datei angezeigt werden
AW: Mehrere Befehle in Workbook Open
02.08.2006 17:05:19
Jens
Hi,
nochmal genauer, der Code im Klassenmodul rattert ja bei jedem Öffnen eines Workbooks
los, soll da auch jedesmal die Userform angezeigt werden oder nur einmalig beim Start
der bestimmten Datei?
mfg Jens
AW: Mehrere Befehle in Workbook Open
02.08.2006 17:07:48
Martin
Ja das Klassenmodul soll jedes mal laufen und die Userform soll bei jedem start der Datei angezeigt werden.
AW: Mehrere Befehle in Workbook Open
02.08.2006 17:27:11
Jens
Hi,

Private Sub app_WorkbookOpen(ByVal WBook As Excel.Workbook)
Benutzer = Application.UserName
Datum = Format(Now, "dd.mm.yyyy")
Uhrzeit = Format(Now, "HH:MM")
Dateiname = WBook.FullName
Open "T:\Haupt\Personalakten\Kaufpreissammlung\Zugriffe_Kaufpreissammlung.txt"
For Append As #1
Print #1, Benutzer & vbTab & Datum & vbTab & Uhrzeit _
& vbTab & Dateiname
Close #1
Userform1.Show 'Natürlich muss da der Name deiner Userform stehen
End Sub

mfg Jens
Anzeige
AW: Mehrere Befehle in Workbook Open
03.08.2006 08:04:38
Martin
Danke Jens,
Jetzt geht es
For Append As #1
nur diesen BEhefel muss ich weglassen.
Danke!

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige