Problem mit CheckBox und Kontrollkästchen!
17.04.2004 19:58:38
Oliver S.
brauche mal wieder Eure Hilfe. Ich habe in einer Tabelle mehrere Kontrollkästchen. Jedem Kontrollkästchen habe ich einer Zelle mit einer Zellverknüpfung zugewiesen. Wenn ich also das Kontrollkästchen aktiviere wird in die entsprechende Zelle "WAHR" geschrieben. Ist das Kästchen deaktiviert, steht dort "FALSCH". Nun habe ich mir eine Eingabemaske in Form einer UserForm gebastelt, in der u. a. eine CheckBox vorkommt. Hinter einer Taste steht eine Anweisung, die mir die Texte, die ich in der UserForm eingebe in entsprechende Zellen schreibt und wenn die CheckBox aktiviert ist, soll in die Zelle, auf die sich auch die Zellverknüpfung des Kontrollkästchens bezieht, der Text "WAHR" eingetragen werden, damit in dem Kontrollkästchen ein Haken erscheint. Nur leider funktioniert das nicht. Der Text wird zwar an die Zelle übergeben und ändert sich von "FALSCH" auf "WAHR", aber der Haken kommt nicht. Wenn ich aber über die Tastatur die Texte eingebe, kommt der Haken oder verschwindet, je nach dem ob ich "WAHR" oder "FALSCH" eingebe. Woran könnte das liegen. Nachfolgend schreibe ich mal den Code hin, der die Daten aus der UserForm an die Tabelle übergibt.
Private Sub Daten_übernehmen_Click()
Dim Zeile As Long
Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
Cells(Zeile, 1) = Menge
Cells(Zeile, 2) = Artikelbezeichnung
Cells(Zeile, 4) = Auktionsnummer
Cells(Zeile, 5) = Startpreis & Format(dteEingabe, "0,00 ")
Cells(Zeile, 7) = Einstellgebühren & Format(dteEingabe, "0,00 ")
If Sonderartikel = True Then
Cells(Zeile, 3) = "WAHR"
Else
Cells(Zeile, 3) = "FALSCH"
End If
Menge.SetFocus
End Sub
Ich hoffe, Ihr habt eine Lösung für mich.
Besten Dank schon mal an alle,
Oliver