ich möchte, das beim excelstart das fenster "datei-öffnen" automatisch aufpoppt/angezeigt wird!
kann mir jemand helfen?
danke!
frank
wozu - klicke immer auf die Datei, die Du brauchst oder gehe zu Favoriten. Da ist doch viel einfacher.
Gruß
Micha
ich weiß, dass es nicht viel sinn macht, aber ich habe die Aufgabe das raus zu finden... also hat jem. ne lösung parat??
frank
hab den text in das modul eigefügt, als xla gespeichert und geladen (haken gesetzt), aber beim start passiert nichts...
frank
es ist etwas komlizierter, weil Du ein Klassenmodul brauchst,
um die Application-Ereignisse abzufangen. Habe deshalb das Bsp. vonNepomuk etwas aufgebohrt:
In das modul "Diese Arbeitsmappe":
Private Sub Workbook_Open()
Set AppObject.ap = Application
End Sub
In ein beliebiges "normales" modul:
Public AppObject As New Klasse1
In ein Klassenmodul (heißt in diesem Fall "Klasse1"):
Public WithEvents ap As Application
Private Sub ap_NewWorkbook(ByVal Wb As Workbook)
Dim Antwort
Antwort = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
If Antwort <> False Then Workbooks.Open Antwort
End Sub
Dann als Addin abspeichern und laden.
Gruss
Andreas
frank