Fehlermeldung
29.01.2015 12:05:53
Werner
Ich werde noch wahnsinnig. ;-)
Der Code hat sonst immer funktioniert.
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
Private Const GWL_STYLE = -&H10
Private Const WS_SYSMENU = &H80000
Private Const gcClassnameMSExcel = "XLMAIN"
Private Sub Workbook_Open()
Dim iLeSpalte As Integer
Dim lLezeile As Long
Dim c As Range
'--- Schließen mit X verhindern
Dim hWnd As Long
hWnd = FindWindow(gcClassnameMSExcel, Application.Caption)
SetWindowLong hWnd, GWL_STYLE, GetWindowLong(hWnd, GWL_STYLE) And Not WS_SYSMENU
DrawMenuBar hWnd
ActiveWindow.WindowState = xlMaximized
Range("AC1").Value = Environ("UserName")
Range("AD1").Value = ThisWorkbook.Name
Application.DisplayFormulaBar = True
iLeSpalte = Range("ad1").End(xlToLeft).Column
lLezeile = Range("A2").End(xlUp).Row
With Worksheets("Übersicht").Range("AD1", Cells(lLezeile, iLeSpalte))
Set c = .Find("Wer macht was PBeaKK", LookIn:=xlValues)
If c Is Nothing Then
GoTo Weiter
End If
End With
Stand = Application.DisplayFormulaBar
ActiveWindow.DisplayHeadings = False
Leisten False
Application.DisplayFormulaBar = True
ActiveWindow.DisplayGridlines = False
Weiter:
zoom_me
Application.Caption = " "
Ende:
End Sub
Anwendungs- oder Objektdefinierter Fehler
Und zwar an dieser Stelle:
With Worksheets("Übersicht").Range("AD1", Cells(lLezeile, iLeSpalte))
Was ist da passiert?
Habe ich evtl. einen Verweis vergessen/gelöscht?
Haken sind drin bei
Visual Basic for applications
Microsoft Excel 14.0 Object Library
OLE Automation
Microsoft Forms 2.0 Object Library
Microsoft Office14.0 Object Library
VBAProjekt
Gruß und Danke
Werner
Anzeige