Laufzeitfehler 438

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

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

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen auftreten.
<br />Hallo Klaus1_925,
<br />
<br />Grüße aus dem Microsoft Community Forum! Bitte nehmen Sie unsere herzlichsten Grüße und unsere aufrichtigste Hoffnung an, dass alles in Ordnung ist.
<br />Wie in unserem Office VBA-Support- und Feedbackartikel erwähnt: "Posten Sie VBA-Programmierfragen an Stack Overflow – https://stackoverflow.com/questions/tagged/vba – unter Verwendung des vba-Tags zusammen mit allen anderen relevanten Tags. Bitte beachten Sie, dass Stack Overflow Richtlinien enthält, wie einen beschreibenden Titel, eine vollständige und prägnante Problembeschreibung und ausreichende Details, um Ihr Problem zu reproduzieren. Feature-Anfragen oder Fragen, die zu weit gefasst sind, werden als off-topic betrachtet. Wenn Sie ein neuer Benutzer sind, besuchen Sie das Stack Overflow Help Center, um weitere Informationen zu erhalten."
<br />Sie sollten die Experten, die Sie für Ihr VBA-Codierungsproblem benötigen, dort haben.
<br />Nochmals vielen Dank, dass Sie sich für Microsoft entschieden haben! Wir sind da, wenn Sie uns brauchen.
<br />
<br />Respektvoll
<br />
<br />Moderator des Consumer M365 Forums
<br />Microsoft-Community
<br />

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

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