Office: Problem mit Endlosschleife

S3bbo · 23. Februar 2020

Hallo,

habe ein Problem mit meiner Userform die anhand des Values verschiedener Checkboxen Aktionen ausführt. Leider hängt sich das Sub ab einer Schleifenlänge von x = 10 auf

wenn ich for x = 1 to 9 schreibe funktioniert alles wie gewünscht, aber sobald es eine 10 wird, hängt sich Excel komplett auf.

folgender Code wurde geschrieben:

Code:

Sub DASHBOARD_help1_START_CLICK()

Application.ScreenUpdating = False

Dim Blatt as Object
Public DASHBOARD_help1_Checkbox(1 To 99) As Object
Public DASHBOARD_help1_Checkbox_NL(1 To 99) As Object
Public DASHBOARD_help1_Prozedur(1 To 99) As String

ich bin mit meinem Latein am Ende, hoffe Ihr wisst Rat.
Vielen Dank für die Rückmeldung.

'---FOKUS

Set Blatt = Sheets("DASHBOARD_help1")

'---FORMEL
'---CHECKBOX (Typ)
Set DASHBOARD_help1_Checkbox_NL(1) = DASHBOARD_help1_M_SH
Set DASHBOARD_help1_Checkbox_NL(2) = DASHBOARD_help1_M_SH
Set DASHBOARD_help1_Checkbox_NL(3) = DASHBOARD_help1_M_SH
Set DASHBOARD_help1_Checkbox_NL(4) = DASHBOARD_help1_M_SH
Set DASHBOARD_help1_Checkbox_NL(5) = DASHBOARD_help1_M_SH

Set DASHBOARD_help1_Checkbox_NL(6) = DASHBOARD_help1_H_SH
Set DASHBOARD_help1_Checkbox_NL(7) = DASHBOARD_help1_H_SH
Set DASHBOARD_help1_Checkbox_NL(8) = DASHBOARD_help1_H_SH
Set DASHBOARD_help1_Checkbox_NL(9) = DASHBOARD_help1_H_SH
Set DASHBOARD_help1_Checkbox_NL(10) = DASHBOARD_help1_H_SH

'---CHECKBOX (Art)
Set DASHBOARD_help1_Checkbox(1) = DASHBOARD_help1_F_FORMEL
Set DASHBOARD_help1_Checkbox(2) = DASHBOARD_help1_T_FORMEL
Set DASHBOARD_help1_Checkbox(3) = DASHBOARD_help1_UD_FORMEL
Set DASHBOARD_help1_Checkbox(4) = DASHBOARD_help1_UIC_FORMEL
Set DASHBOARD_help1_Checkbox(5) = DASHBOARD_help1_USU_FORMEL

Set DASHBOARD_help1_Checkbox(6) = DASHBOARD_help1_F_FORMEL
Set DASHBOARD_help1_Checkbox(7) = DASHBOARD_help1_T_FORMEL
Set DASHBOARD_help1_Checkbox(8) = DASHBOARD_help1_UD_FORMEL
Set DASHBOARD_help1_Checkbox(9) = DASHBOARD_help1_UIC_FORMEL
Set DASHBOARD_help1_Checkbox(10) = DASHBOARD_help1_USU_FORMEL

'---PROZEDUREN
DASHBOARD_help1_Prozedur(1) = "DASHBOARD_help1_F_M_FORMEL"
DASHBOARD_help1_Prozedur(2) = "DASHBOARD_help1_T_M_FORMEL"
DASHBOARD_help1_Prozedur(3) = "DASHBOARD_help1_UD_M_FORMEL"
DASHBOARD_help1_Prozedur(4) = "DASHBOARD_help1_UIC_M_FORMEL"
DASHBOARD_help1_Prozedur(5) = "DASHBOARD_help1_USU_M_FORMEL"

DASHBOARD_help1_Prozedur(6) = "DASHBOARD_help1_F_H_FORMEL"
DASHBOARD_help1_Prozedur(7) = "DASHBOARD_help1_T_H_FORMEL"
DASHBOARD_help1_Prozedur(8) = "DASHBOARD_help1_UD_H_FORMEL"
DASHBOARD_help1_Prozedur(9) = "DASHBOARD_help1_UIC_H_FORMEL"
DASHBOARD_help1_Prozedur(10) = "DASHBOARD_help1_USU_H_FORMEL"

For x = 1 To 10

If DASHBOARD_help1_Checkbox_NL(x) And DASHBOARD_help1_Checkbox(x).Value = True Then Application.Run DASHBOARD_help1_Prozedur(x)

Next x

Application.ScreenUpdating = True

Unload Me

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 24. Februar 2020

es werden zu Beginn nur 10 gesetzt.

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* , Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
änderrn.

iIch führe keine Liste unrter welchem Namen die Datei gespoeichert ist.
Der Dateiname steht ja im Beitrag.

Das ist nur meine Meinung zu dem Thema.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

EarlFred · 24. Februar 2020

Was passiert in dieser Sub: "DASHBOARD_help1_USU_H_FORMEL"
Läuft diese direkt aufgerufen ohne Probleme?

Und warum deklarierst du eigentlich Variable innerhalb einer Sub als Public?

ReginaR · 24. Februar 2020

Moin,
so ist an dem Code (nach meiner Meinung) nichts auszusetzen, evtl. liegt das problem in der Routine, die bei x = 10 aufgerufen wird. D.h. Schleife ok, aber die Folgeroutine produziert einen Fehler.

Uwe Küstner · 24. Februar 2020

Hallo,

schaue Dir erst einmal die Zuweisungen der Boxen hier genau an:

Code:

'---CHECKBOX (Art)
Set DASHBOARD_help1_Checkbox(1) = DASHBOARD_help1_F_FORMEL
Set DASHBOARD_help1_Checkbox(2) = DASHBOARD_help1_T_FORMEL
Set DASHBOARD_help1_Checkbox(3) = DASHBOARD_help1_UD_FORMEL
Set DASHBOARD_help1_Checkbox(4) = DASHBOARD_help1_UIC_FORMEL
Set DASHBOARD_help1_Checkbox(5) = DASHBOARD_help1_USU_FORMEL

Set DASHBOARD_help1_Checkbox(6) = DASHBOARD_help1_F_FORMEL
Set DASHBOARD_help1_Checkbox(7) = DASHBOARD_help1_T_FORMEL
Set DASHBOARD_help1_Checkbox(8) = DASHBOARD_help1_UD_FORMEL
Set DASHBOARD_help1_Checkbox(9) = DASHBOARD_help1_UIC_FORMEL
Set DASHBOARD_help1_Checkbox(10) = DASHBOARD_help1_USU_FORMEL
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sollen die Blöcke 1-5 und 6-10 gleich sein?

Office: Problem mit Endlosschleife

Problem mit Endlosschleife

Problem mit Endlosschleife

Problem mit Endlosschleife

Problem mit Endlosschleife - Similar Threads - Problem Endlosschleife

Data Transform, Problem with delimiter

Problem Datenstruktur Mitglieds-Datenbank

Seltsames Problem beim Sortieren

Problem mit verschachtelter WENN Formel

Problem Formel

Excel TXT-File Import Problem

Problem mit Entwicklertool PLUS und MINUS