Rangeproblem

Private Sub Workbook_Open() 'Arbeitsblatt an den Bildschrirm anpassen. If ActiveSheet.Name = "Register" Then Sheets("Register").Range("A:R").Select ActiveWindow.Zoom = True Sheets("Register").Range("A1").Select End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rangeproblem

25.03.2021 18:49:09

Piet

AW: Rangeproblem

25.03.2021 22:35:03

Thomas

AW: Rangeproblem

25.03.2021 23:42:12

Yal

AW: Rangeproblem

26.03.2021 05:38:32

Thomas

AW: Rangeproblem

26.03.2021 08:48:37

Yal

AW: Rangeproblem

26.03.2021 16:03:07

Piet

AW: Rangeproblem

26.03.2021 17:20:59

Thomas

AW: Rangeproblem

26.03.2021 19:26:49

Yal

AW: Rangeproblem

27.03.2021 09:57:53

Thomas

Hallo Yal,
nun ja, um es zu testen habe ich mir gedacht ich kopiere einfach mal das Skript und lege eine neue Datei an um es auszuprobieren.
Nachdem du aber sagtest man sollte auch lesen können ist mir ein Licht aufgegangen.
Ich habe den Verschreiber dann auch entdeckt und dann nochmals getestet. Das hat dann funktioniert.
Aber noch kurz zur Bemerkung wegen Excel Basiskenntnis. Für mich ist hier eben für den Status zu wenig Auswahl vorhanden, somit muss ich eben die Excel Basiskenntnis auswählen, denn so falsch liege ich damit ja nicht, schließlich haben wir hier ein VBA Problem zu lösen und man liest nirgends davon das ich VBA Basiskenntnis besitze. Würde ich das angeben so würde ich mir selber keinen Gefallen tun.
Nun weiter zum Skript. Wie gesagt das Skript selber funktioniert. Aber in Kombination nicht. Wenn ich die Datei verschiebe und dann neu öffne bekomme ich ja ein Hinweis dass ich mit dem Button die Datei mit für Makro aktivieren muss. Und aktiviere ich diese Datei so, dann kommt gleich die Fehlermeldung.
Es geht somit also auch mit deiner Methode nicht. Und ich kann nur soviel sagen als ich im Januar das ganze getestet hatte funktionierte alles zufriedenstellend. Gestern plötzlich trat dieser Fehler dann auf.
Was mir aber aufgefallen ist, obschon ich dieses Skript mit Windows 10 und Office 13 geschrieben habe und meist auch verwände und funktioniert hatte, geht es jetzt nicht mehr. Aber wenn ich es auf einem Rechner mit Windows 10 und Office 19 teste geht alles ohne Fehlermeldung.
Nun frage ich mich wirklich was das für ein Hacken ist im System?

Hallo Thomas,
Ja, das ist so eine Sache mit der Selbsteinschätzung. Es gibt keine Massstabe, wie man gut/gut genug/auf dem Weg zum gut werden bewerten kann. Also, schwierig sich darauf zu verlassen, um eine Lösungsweg vorzuschlagen (die Beantworter tendieren im allgemein, die Fragenden zu herausfordern ;-). Auch wegen der Breite der möglichen Themen kann niemanden überall gut sein.
So ich auch nicht. Ich kann zwar wahrnehmen, dass die Sicherheitseintellung von Windows und Office in letzten Zeit zunehmend im Konflikt mit solchen früh-aktiven Makros, wie Workbook_Open, habe aber keine Ahnung, woran es liegen kann. In verschiedenen Frage/Beiträge waren similäre Fälle vorhanden. Bis jetzt scheint es keine Musterlösung zu geben.
Man könnte fehlertolerant programmieren. Es würde so aussehen (mit korrigiertem "Wotksheet"):
(Darüber hinaus, da ein Worksheet_Change stattfinden könnte, mit einem Event-Blocker)

Private Sub Workbook_Open()
'Arbeitsblatt an den Bildschrirm anpassen.
On Error Resume Next
Application.EnableEvents = False
ThisWorkbook.Worksheets("Register").Activate
Range("A:R").Select
ActiveWindow.Zoom = True
Range("A1").Select
Application.EnableEvents = True
End Sub

Es ist aber dann nicht mehr sicher, ob das gewünschte Effekt auftretten wird (kapputt geht in dem Fall nichts).
Auch einen Pacing wäre denkbar: eine Sekunde warten lassen, aber in einer Form, bei dem Excel dazwischen sein eigenen Hausaufgaben erledigen kann:

#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit  _
Systems
#Else
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'For 32 Bit Systems
#End If
Sub SleepTest()
'wartet insgesamt 1 Sek.
'die Ausführung lässt Events zu (u.a. system Events)
Dim i
For i = 1 To 100
DoEvents
Sleep 10 'delay in milliseconds
Next
End Sub

Das Versuchen kostet nicht viel. Schlimmstenfalls funktioniert's. Garantieren kann ich es aber nicht.
VG
Yal

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread