Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

Forumthread: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 10:10:06

Thomas

Hallo zusammen,
erst seitdem ich Office 365 installiert habe, erhalte ich den Laufzeitfehler 57121, davor liefrn die Codes in der Version 2019 einwandfrei.

Private Sub Workbook_Open()

Worksheets("Cover").Activate

If Worksheets("Stammdaten").Cells(6, 2) = "" Then

MsgBox ("Sie nutzen das Programm zum ersten Mal. Bitte tragen Sie Ihre Stammdaten ein!")

Stammdaten.Show

Else

Worksheets("Cover").Activate

'MsgBox ("Willkommen im Projekt:  " & Range("Stammdaten!B17").Value)

End If

End Sub

Office 365 scheint sich an dieser Zeile zu stören "Worksheets("Cover").Activate" diese wird gelb angezeigt.

Hat jemand eine Idee, wie diese geändert werden muss?

Schöne Grüße
Thomas

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 10:17:56

MCO
AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:15:32

Thomas
AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:31:31

MCO
AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:45:37

Thomas

AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 10:17:56

MCO

Moin!

Bei mir läuft es so:

Private Sub Workbook_Open()

    If Worksheets("Stammdaten").Cells(6, 2) = "" Then

        MsgBox ("Sie nutzen das Programm zum ersten Mal. Bitte tragen Sie Ihre Stammdaten ein!")

        Worksheets("Stammdaten").Activate

    Else

        Worksheets("Cover").Activate

        'MsgBox ("Willkommen im Projekt:  " & Range("Stammdaten!B17").Value)

    End If

End Sub

Stell bitte sicher, dass du das Sheet "Cover" auch hast. Achte auch auf führende / folgende Leerzeichen!
Ansonsten mal versuchen, den Namen durch den Index zu ersetzen (statt "Cover" --> 1)

Gruß, MCO

AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:15:32

Thomas

Hallo MCO,

danke für deine Antwort.
Ja, das Tabellenblatt "Cover" gibt es. Wenn ich den Namen durch den Index (1) ersetzte kommt die gleiche Fehlermeldung.

Wenn ich statt dem Tabellenblatt "Cover" ein anderes wähle, dann funktioniert es.

In dem Tabellenblatt "Cover" steht folgender Code:

Private Sub Stammdatenbutton_Click()

Stammdaten.Show

End Sub

Schöne Grüße
Thomas

AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:31:31

MCO

Dann blende doch die Zeile mal aus.
Ich vermute dann läufts.
Gibt es die Userform Stammdaten?

Gruß, MCO

AW: Laufzeitfehler 57121 (Anwendungs- oder objektdefinierter Feh

13.05.2025 11:45:37

Thomas

In dem Tabellenblatt "Cover" war ein ActiveX-Steuerelement um die Userform "Stammdaten" zu öffnen.

ActiveX-Steuerelemente sind bei Microsoft 365 standardmäßig deaktivert - habe ich gegoogelt.

In Microsoft 365 und Office 2024 sind ActiveX-Steuerelemente standardmäßig deaktiviert. Diese Änderung betrifft alle Office-Anwendungen, darunter Word, Excel, PowerPoint und Visio. Um ActiveX-Steuerelemente zu aktivieren, müssen Sie die Trust Center-Einstellungen anpassen

Aktivieren, dann gehts.

Danke für deine Hilfe!

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!