Moin!
Also habe mir nochmal deinen Code angeschaut. Erster Tip, nutze Option Explicit am Anfang. Damit erkennst du, wenn Variablen nicht deklariert sind bzw. evtl. im Code dann anders als bei der Deklaration geschrieben wurden. In deinem Ebene3 Modul gibt es m.E. mehrere Ungereimtheiten.
Du machst for each mit ctrl_1 nutzt dann aber nur ctrl. Das ist glaube ich ein copy Fehler aus der anderen Sub. DAs selbe dann mit ctrl_2.
Einige in der Sub kannst du auch zusammenfassen. Bspw. die Prüfung, ob ein Ordner existiert. Das prüfst du einmal, ob es ihn gibt oder nicht. Das hast du in 2 if mit unterschiedlicher Auswertung gepackt. Eigentlich würden das aber die beiden Zweige des if sein. Nimm das 2. if in den else Zweig.
Und prüfe mal, ob du in Zeile 48 wirklich OB_EIGENSCHAFT prüfen willst. In der SChleife hast du eigentlich auch schon was an OB_EIGENSCHAFT2 zugewiesen.
VG
|