|
Hallo Sabina, hallo xlKing/Mr. K.,
erst einmal dankeschön für eure Mühe. Und: Ich arbeite noch dran ...
@ Sabina: Egal, ob ich eine neue (leere) Mppe estelle oder eine existierende öffne: Excel meckert:
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt
Nach [Debuggen]
Sub Workbook_Open()
With ActiveWindow
.WindowState = xlNormal '<- als Fehler markiert
.Left = 50
.Top = 50
.Width = 1000
.Height = 600
End With
End Sub
Das ist der einzige Inhalt in 'Diese Arbeitsmappe', Tabelle1 ist leer.
@ Mr. K.
Hier bin ich nach deinen Anweisungen vorgeangen, habe mir auch den Link angesehen (und muss ihn noch einige Male gründlich studieren, ehe ich das begreife, denn Klassenmodule sind für mich bislang ein Fremdkörper ;-). Hier meckert Excel auch gleich mit dieser Fehlermeldung:
Fehler beim Kompilieren:
Außerhalb einer Prozedur ungültig
in 'Diese Arbeitsmappe' der Personal.xlsb steht
Dim myapp As New Klasse1
Private Sub Workbook_Open()
Set myapp.App = Application
End Sub
und der Rest in einem Klassenmodul (nicht dem "normalen" Modul):
Public WithEvents App As Application
Private Sub App_NewWorkbook(ByVal Wb As Workbook)
Call FensterGroesseAnpassen
End Sub
Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Call FensterGroesseAnpassen
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Call FensterGroesseAnpassen
End Sub
Sub FensterGroesseAnpassen()
With ActiveWindow
.WindowState = xlNormal
.Left = 75
.Top = 75
.Width = 1240
.Height = 750
End With
End Sub
Im Moment fühle ich mich wie Rudi Ratlos, denn die Recherche nach der Fehlermeldung hat MIR auch nichts gebracht. :-(
Gruß
Walter
|