(Gelöst) Gleiche Makros trotzdem einen Fehler

[Atwist]

Hallo

Ich hab hier unten 3 gleiche Makros trotzdem bekomme ich einen Fehler.
In Meine Datei hab ich 12 von diesen Makros und 2 machen mich fertig.
sub ResetNieuweMaandMei läuft gut

sub ResetNieuweMaandJun
sub ResetNieuweMaandJul
diese 2 haben einen Fehler aber ich verstehe es nicht

Makro_Fehler.png (63.26 KiB) 4228 mal betrachtet

Code: Alles auswählen

sub ResetNieuweMaandMei (oEvent)
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   Sheet = Sheets.getByName("Mei")
   with Sheet.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand5")
   If .State = 1 then .Enabled = True
   If .Enabled = True then .State = 0
   end with
   call GaNaarMei
   call minmaand
End Sub

sub ResetNieuweMaandJun (oEvent)
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   Sheet = Sheets.getByName("Jun")
   with Sheet.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand6")
   If .State = 1 then .Enabled = True
   If .Enabled = True then .State = 0
   end with
   call GaNaarJuni
   call minmaand
End Sub

sub ResetNieuweMaandJul (oEvent)
   Dim Button As Object
   Doc = ThisComponent
   Sheets = Doc.Sheets()
   Sheet = Sheets.getByName("Jul")
   with Sheet.DrawPage.Forms.getByIndex(0).getByName("NieuweMaand7")
   If .State = 1 then .Enabled = True
   If .Enabled = True then .State = 0
   end with
   call GaNaarJuli
   call minmaand
End Sub

[Pit Zyclade]

Besser wäre als Arbeitsbeispiel die leere oder inhaltlich anonymisierte Datei mit den Makros. Denn dann könnte man anhand der Struktur den Fehler lokalisieren. Ohne Struktur der Datei geht das nicht.

[Atwist]

Einen leeren Datei.

TestBeispiel.ods

(86.14 KiB) 278-mal heruntergeladen

[karolus]

Hallo

Du wiederholst praktisch die gleichen 8 Codezeilen insgesamt 30 mal
(binnen_1 … binnen_8 … betaid_1 … betaid_22)
d.h. die ersten 270 Codezeilen in deinem Modul kann man mühelos in 10 Zeilen zusammenfassen.

Leider machst du dann auch noch auf den restlichen 700 Zeilen auch im gleichen stupiden Stil weiter, ich fürchte dir ist nicht zu helfen!

[Atwist]

Ich hab hier unten 3 gleiche Makros trotzdem bekomme ich einen Fehler.
In Meine Datei hab ich 12 von diesen Makros und 2 machen mich fertig.
sub ResetNieuweMaandMei läuft gut

sub ResetNieuweMaandJun
sub ResetNieuweMaandJul
diese 2 haben einen Fehler aber ich verstehe es nicht

Mit dem Rest bin ich noch am arbeiten, Aber ich konnte bei meine gebührt auch nicht gleich laufen.

Und wenn du in meine Situation bis dann denk du ganz anders.
Bin nämlich seit 2008 Früh Rentner durch einen schlachanval und muss mich seit dem richtig viel mühe geben um alles gut hin zu bekommen.

Leider machst du dann auch noch auf den restlichen 700 Zeilen auch im gleichen stupiden Stil weiter, ich fürchte dir ist nicht zu helfen!

Jeder ist nicht gleich und dass soll auch so bleiben.

[Pit Zyclade]

Bei mir erfolgt kein Protest.

[balu]

Hallo Atwist,

hatten wir das Problem nicht schon mal gehabt?
Die Fehlermeldung besagt doch nix anderes als das es das Element (Button) nicht findet, es findet den Namen nicht.

Und nun schau dir den Button im dementsprechenden Tabellenblatt mal ganz genau an, und dann müsstest Du von alleine drauf kommen was da schief läuft.



Gruß
balu

[Pit Zyclade]

Schlimmer noch. Wenn man die subs per Menü aufruft, dann gehen sie, wie ich schon schrieb.

Wenn man die subs über Tafel "settings" aufruft, gehen zwei nicht, nämlich "mei" und "juni".
Aber im ersten 'posting' wurde doch behauptet, dass "mei" gehen würde. Das aber kann nicht sein!

[Atwist]

@Balu
Du hast recht 3 Buttons mit gleiche Name blöd ich war zu viel mit der Fehler im Makro zu suchen.
Dass ist jetzt gelöst dass alles Funktioniert, jetzt versuch ich mal die Makro ein zu dämmen (wie Karolus sacht)
Ich dank dir für deine tritt im hinter

@ Pit Zyclade

Aber im ersten 'posting' wurde doch behauptet, dass "mei" gehen würde. Das aber kann nicht sein!

Doch bei mir war dass schon, hab auch gemerkt dass bei viele Änderungen immer noch Fehler hat die eigentlich nicht da sind, man der Datei mal schließen muss und dann wieder öffnen und dann funktioniert es.
Auch dir danke ich für deine Hilfe.