Seit heute kommt bei einen Schichtplan in der Firma plötzlich die Fehlermeldung
bei If ActiveWorkbook.Name
" Objektvariable nicht festgelegt (Fehler 91) "
Warum ? wieso ?
Könnte mir bitte jemand weiterhelfen ?
Danke
Sg, Heinz
Private Sub Workbook_open()
If ActiveWorkbook.Name ThisWorkbook.Name Then Exit Sub
Dim i As Long
Dim VMonat As Variant
Dim TB As Variant
Dim wks As Worksheet
'Call BlattSchutz_Aufheben
'Application.Statusbar = ("Dieses Pogramm wurde von Heinz Holzmann erstellt. Bei Fragen oder _
Probleme email an heinz_holzmann@aon.at Tel.:07587/69 62 Mobil: 0699/819 818 46")
Application.ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
'Application.EnableEvents = False 'diese Zeile nach unten verschoben fcs 20 _
_
1204 02
VMonat = Array(" ", "Jänner", "Februar", "März", "April", "Mai", "Juni", "Juli", _
"August", "September", "Oktober", "November", "Dezember")
ThisWorkbook.Worksheets("MA").Activate 'Neu fcs 2012 04 02
With ThisWorkbook.Worksheets(VMonat(Month(VBA.Date)))
.Select
.Cells(1, Day(VBA.Date) + 2).EntireColumn.Select
End With
Application.EnableEvents = False 'Zeile verschoben fcs 20 12 04 02
For Each wks In Worksheets
wks.Protect Password:="vetro", DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Next
Call BlattSchutz_Ein
Worksheets("Schichttausch").Visible = False
'Worksheets("Mitarbeiterblatt").Visible = True 'Wieder löschen
'Worksheets("Mitarbeiterblatt").Visible = False
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub