Fehlermeldung beim Kompilieren
19.05.2016 16:15:36
Johanna
Ich habe ein Programm geschrieben, bei dem sich durch Klick eines Buttons ein Userform mit 3-5 Checkboxen öffnet. Bei Eingabe soll 1. kontrolliert werden, ob mehr als 50% der Checkboxen als True markiert wurden (falls ja, färbt sich ein Feld grün, falls nein rot) und 2. die Angaben zur "Nachverfolgung" in ein zweites Blatt abgespeichert werden (falls true steht in dem Feld ein x, falls false ist es leer). Dieses Public Sub steht in Tabelle1, da mehrere Userformen darauf zugreifen können sollen und es hat für 2 verschiedene Userformen gut funktioniert.
Diese Angaben, die im 2. Schritt gespeichert werden, sollen auch beim Öffnen der Userform wieder in die Userform gespielt werden. Das habe ich einmal für eine Userform geschrieben um es auszuprobieren (hat gut funktioniert) und ich wollte es dann wieder umschreiben, so dass es für alle meine Userformen unabhängig der Anzahlen der Checkboxen funktioniert.
Und jetzt komme ich zu meinem Problem: Das Programm lässt mich auf einmal nicht einmal mehr die Angaben machen (also führt das 1. Public Sub nicht aus) obwohl ich daran nichts verändert hatte! Ich habe es also kompiliert und bei der ersten Zeile des 2. Public Sub schreit er jetzt "Benutzerdefinierter Typ nicht definiert" und das obwohl ich nach recherchen "Microsoft DAO 3.0 Object Library" schon eingebunden habe...
Was mich noch mehr verwundert, ist dass es überhaupt schreit, dass etwas nicht passt, denn das Sub zum Befüllen der Checkboxen habe ich eigentlich genau so geschrieben wie das zum Speichern der Angaben und das hat ja problemlos funktioniert...
Ich habe jetzt echt keine Ahnung mehr woran es liegen könnte und würde mich wahnsinnig über Hilfe freuen! ich habe das Sub das mir Probleme bereitet unten angehängt.
LG, Johanna
Public Sub BoxAusfuellen(z As Ingeger, k As Object)
Dim n As Integer
Dim cCont As Control
n = 1
For Each cCont In k.Controls
If TypeOf cCont Is MSForms.CheckBox Then
If Worksheets(2).Cells(z + 1, n).Value = "x" Then
cCont.Value = True
End If
n = n + 1
End If
Next
End Sub