hast du eine Ahnung wie diese Fehlermeldung zustande kommt?
Es gibt keine LeftHeader-Methode.
LeftHeader ist eine Eigenschaft des PageSetup-Objektes. Das ist ein String mit Schreib- Lesezugriff. Wenn ich unter Vista diese Eigenschaft in einer geschützten Tabelle ändern will, kann ich diesen Fehler erzeugen. Auf einem unserer Rechner passiert das aber auch, wenn die Tabelle nicht geschützt ist.
Ich habe diese Frage für gut 2 Wochen in einem anderen Forum gestellt, aber keine Antwort erhalten.
Wen es interessiert, hier der entsprechende Code:
'// @description:
'// @cdate: 2008_04_14
'// @mdate: 2008_04_14
'// @certificat:
Const PROCEDURENAME = "TOOLS_Set_PrintOptions"
If TRACE_FLAG Then Call LOGGER_Log_Trace(PROCEDURENAME)
If gblnWorkFlag Then On Error GoTo ErrorHandling
If gblnWorkFlag Then Application.EnableCancelKey = xlDisabled
If gblnLoopActive And Not gblnLoopNoError Then Exit Sub
Dim blnLeft_Header As Boolean, blnCenter_Header As Boolean
Dim blnRight_Header As Boolean, blnLeft_Footer As Boolean
Dim blnCenter_Footer As Boolean, blnRight_Footer As Boolean
Dim lngSystemRow As Long
'//get header and footer options
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_LEFT_HEADER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnLeft_Header = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_CENTER_HEADER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnCenter_Header = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_RIGHT_HEADER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnRight_Header = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_LEFT_FOOTER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnLeft_Footer = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_CENTER_FOOTER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnCenter_Footer = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
lngSystemRow = SYSTEM_Get_Row(SYSTEM_NAME_RIGHT_FOOTER, False, True, LEVEL_ALERT)
If lngSystemRow <> 0 Then _
blnRight_Footer = Tab_System_Declaration.Cells(lngSystemRow, SYSTEM_COLUMN_VALUE).Value
Call BIB_Unprotect(ActiveSheet)
Call TOOLS_Disable_All
With ActiveSheet.PageSetup
If blnLeft_Header Then .LeftHeader = Tab_Figures_Corporate_Input.Range("LeftHeader").Value
If blnCenter_Header Then .CenterHeader = Tab_Figures_Corporate_Input.Range("CenterHeader").Value
If blnRight_Header Then .RightHeader = Tab_Figures_Corporate_Input.Range("RightHeader").Value
If blnLeft_Footer Then .LeftFooter = BIZ_FILES_Read(DS_PERSONL_OWNER_OU, FILE_PERSONL_BIZ) & " " & _
BIZ_FILES_Read(DS_PERSONL_OWNER_NAME, FILE_PERSONL_BIZ)
If blnCenter_Footer Then .CenterFooter = Tab_Figures_Corporate_Input.Range("CenterFooter").Value
If blnRight_Footer Then .RightFooter = Tab_Figures_Corporate_Input.Range("RightFooter").Value
End With
Call ActiveSheet.Protect_Me(0)
Call TOOLS_Enable_All
Exit Sub
'// error handling
ErrorHandling:
Call ERRORHANDLING_Error_Handler(Err, PROCEDURENAME, Erl)
End Sub
Gruß
Nepumuk