Laufzeitfehler 438

Manimaran Visvalingam · 12. November 2017

Hallo zusammen

Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern.

Die einzelnen Blätter sind Geschützt. Um die Gruppierungen anzuzeigen, habe ich folgenden Makro verwendet:

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="STIL"
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub

Leider kommt dann die Meldung "Laufzeitfehler 438 Objekt unterstützt diesen Eigenschaft oder Methode nicht"

Das lustige ist, dass einige Blätter ohne Problem Funktionieren. Ein paar andere leider nicht.

Wer kann mir Helfen?

Andreas Killer

Nun habe ich diese Seiten als letzte Seiten verschoben.
Die Fehlermeldung kommt immer noch. Aber es Funktioniert auf allen Seiten.

Ein Code sollte immer funktionieren, auch wenn manche Tabellen "in der Mitte" erscheinen.

Die Lösung dafür ist eine Fehlerbehandlung via "On Error". Da liest Du am besten mal die Hilfe. Oft wird von Users "On Error Resume Next" verwendet, das unterdrückt jedoch alle Fehler und das ist ziemlich dumm in einer Hauptroutine.

Andreas.

Sub Example_ErrorHandler()

On Error GoTo Errorhandler

'Hier der Code

Exit Sub

Errorhandler:

Select Case Err.Number

Case 438

'Ignorieren

Resume Next

Case Else

If Err.Source = "" Then Err.Source = Application.Name

Debug.Print "Source : " & Err.Source

Debug.Print "Error : " & Err.Number

Debug.Print "Description: " & Err.Description

If MsgBox("Error " & Err.Number & ": " & vbNewLine & vbNewLine & _

Err.Description & vbNewLine & vbNewLine & _

"Enter debug mode?", vbOKCancel + vbDefaultButton2, Err.Source) = vbOK Then

Stop 'Press F8 twice

Resume

End If

End Select

End Sub

Claus Busch

Hallo,

setze die Eigenschaften für Gliederung und Autofilter vor dem Schutz:

For i = 1 To Worksheets.Count

With Sheets(i)

.EnableOutlining = True

.EnableAutoFilter = True

.Protect userinterfaceonly:=True, Password:="STIL"

End With

Next i

Claus

Kyle_Si

Hallo Manimaran Visvalingam,

Wie sieht die Situation bei dir jetzt aus? Hast du den von Andreas vorgegebenen Tipp schon ausprobieren können?
Hat er dir geholfen oder besteht das Problem noch immer?

Wir freuen uns von dir zu hören

LG,

Kyle

Manimaran Visvalinga

Hallo Claus

Vielen Dank für dein Antwort.

Ich habe herausgefunden, dass ich einige Blätter mit Statistiken (Auswertungen) ausgeblendet habe.

Das Makro hat bis zu diesen Blätter funktioniert und nach her nicht mehr.

Nun habe ich diese Seiten als letzte Seiten verschoben.

Die Fehlermeldung kommt immer noch. Aber es Funktioniert auf allen Seiten.

Wie kann ich in meinem Code einbinden, dass die Letzten fünf Seiten nicht beachtet werden sollen?

Liebe grüsse

Puma5000

Hallo
Wenn ich diesen SUB anwende kommt 'Laufzeitfehler' 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht.
Daher habe ich aus Deiner zweiten Antwort den unteren Part in meinen Makro übertragen und auf die Spalte AK verändert.
Dort stehen meine aktuellen Dateinamen.
Gruß --> Frank

Hi,

willkommen im Windows Forum!

Laufzeitfehler 438 - Similar Threads - Laufzeitfehler 438	Forum	Datum
Laufzeitfehler "53" Die Datei wurde nicht gefunden / Runtime Error "53" File not found Laufzeitfehler "53" Die Datei wurde nicht gefunden / Runtime Error "53" File not found: Beim Öffnen von Microsoft Word oder Microsoft PowerPoint erscheint die obige Meldung. Es geht um das Adobe Plug-in für Office.Lösungsmöglichkeit 1: Viele Lösungen verweisen darauf die Dateien in...	Microsoft Office	8. Oktober 2024
Erneut Laufzeitfehler 53 bei Word und PowerPoint durch Adobe Acrobat unter Mac Sequoia 15 Erneut Laufzeitfehler 53 bei Word und PowerPoint durch Adobe Acrobat unter Mac Sequoia 15: Hallo,die bekannte Problematik schlägt wieder zu, nach dem Update auf Sequoia **** beim Öffnen von Word oder PowerPoint das bekannte Fenster auf:Laufzeitfehler 53: Die Datei wurde nicht gefunden:...	Microsoft Office	23. September 2024
Mac - Laufzeitfehler 53: Nichts funktioniert Mac - Laufzeitfehler 53: Nichts funktioniert: Hallo zusammen, ich bekomme mal wieder den Laufzeitfehler 53 beim Öffnen sämtlicher 365-Anwendungen angezeigt. Normalerweise hat es immer mit dem Löschen gewisser Dateien aus der Library...	Microsoft Office	22. September 2024
Word zeigt mir den Laufzeitfehler "91" für ein Autoexec-Makro an, das eigentlich... Word zeigt mir den Laufzeitfehler "91" für ein Autoexec-Makro an, das eigentlich...: Hallo, ich habe ein wahrscheinlich sehr leicht zu lösendes Problem, komme aber nicht dahinter. Ich habe versucht ein Makro für ein Fristdatum 30 Tage für ein WORD Dokument zu erstellen. Habe auch...	Microsoft Office	26. Juni 2024
Excel VBA - Laufzeitfehler ... Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlage Excel VBA - Laufzeitfehler ... Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlage: Hallo Community,wie so einige habe auch ich das Problem, dass der in der Beschreibung stehende Fehler in unregelmäßigen Abständen auftaucht.An sich ist es ganz simpel.Ich habe eine Userform, in...	Microsoft Office	14. März 2024
Laufzeitfehler 438 Laufzeitfehler 438: Hi,Ich habe ein Problem mit Office 2019, speziell mit Outlook. Ich habe einen vba-code geschrieben in Excel, der die Empfänger von outlook-Emails ausliest obj.to. Ich bekomme bei manchen Emails...	Outlook.com	2. Januar 2022
Laufzeitfehler 438 Laufzeitfehler 438: Hi,Ich habe ein Problem mit Office 2019, speziell mit Outlook. Ich habe einen vba-code geschrieben in Excel, der die Empfänger von outlook-Emails ausliest obj.to. Ich bekomme bei manchen Emails...	Microsoft Office	2. Januar 2022

Laufzeitfehler 438