Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei

[leher]

Hallo,

bin ganz neu hier.

Ich suche schon seit längerem eine Lösung für mein Problem.
Ich habe eine Userform erstellt, in der sich u.a. eine Checkbox befindet. Ich würde gerne erreichen, dass wenn ein Häckchen gemacht wird, automatisch in einer Excel Tabelle in einer bestimmten Zelle ja bzw. wenn das Häckchen nicht gesetzt wird ein nein erscheint...

Es wäre super, wenn mir geholfen werden würde. Ich hoffe ich habe es einigermaßen verständlich erklärt...

Vielen Dank im Voraus,

leher

PS: in einem anderen Forum wurde mir folgendes empohlen:

Private Sub CheckBox1_Change()
If CheckBox1 Then
Worksheets("Tabelle1").Range("D5") = "Ja"
Else
Worksheets("Tabelle1").Range("D5") = "Nein"
End If
End Sub

Dies hat allerdings nicht richtig geklappt, da nur "Ja" angezeigt wurde egal ob das Häckchen gesetzt war oder nicht...

[admin]

Hallo leher,

herzlich willkommen im Forum.

Mit folgendem VBA-Code sollte es ohne Probleme funktionieren:

Code: Visual Basic

1. Private Sub CheckBox1_Click()
2. If CheckBox1 = True Then
3.   ActiveSheet.Range("D5").Value = "Ja"
4. Else
5.   ActiveSheet.Range("D5").Value = "Nein"
6. End If
7. End Sub
8.  

Ich habe auch eine Beispieldatei beigefügt, in der Du die Fuktion nachvollziehen kannst.
Wenn Du auf die Schaltfläche "Start" klickst, wird die Userform mit der Checkbox gestartet.

Gruß

Officer

[Beverly]

Hi,

dein Code funktioniert völlig korrekt, wie du in dem angehängten beispiel sehen kannst.

Bis später,
Karin

[leher]

Vielen Dank für die schnellen Antworten... Wenn ich eure Dateien öffne, dann klappt alles wunderbar.
Bei mir ist es allerdings so: in Tabelle 1 ist ein Button, der die Userform öffnet und in der die besagte CheckBox steckt. Wenn diese aktiviert (bzw. deaktiviert) ist, soll in einer anderen Tabelle (Tabelle 2) ja (bzw. nein) erscheinen.

Wenn ich admin's code umschreibe, also statt ActiveSheet Worksheets("Tabelle2") dachte ich, dass es funktionieren würde, aber das tut es nicht...

Habt ihr vielleicht eine Erklärung dafür?

Gruß,

leher

[Beverly]

Hi,

dann lade doch deine Mappe mal hoch, damit man sich das ansehen kann, weshalb es dort nicht funktioniert.

Bis später,
Karin

[leher]

Hallo,

Ja, das mache ich.

Die "echte" Datei ist zu privat. Deshalb habe ich eine ähnliche (aufbauend auf eurer) erstellt, bei der aber das gleiche Problem auftritt (wenn kein Häckchen trotzdem ja).

Ach, es wäre so toll, wenn das Problem zu lösen wäre:D

Vielen Dank.

Gruß,

Leher

[ae]

Hallo,
weiß nicht was Du willst !
Geht doch ... allerdings machst es in Tabelle2 

Private Sub CheckBox1_Click()
   If CheckBox1 Then
      Worksheets("Tabelle2").Range("B7") = "Ja"
   Else
      Worksheets("Tabelle2").Range("B7") = "Nein"
   End If
End Sub

da die Userform aber auf Tabelle 1 startet siehst es nicht !

[leher]

Hmm.. Versuch mal bitte folgendes:

Klick mal auf userform starten und dann setze KEIN Häckchen, sondern nur auf "Fertig" klicken. Dann erscheint in Tabelle 2 in B7 trotzdem ein Ja. Das ist mein Problem.

Gruß,

leher

[ae]

Wenn Du jedoch meinst, dass es nix einträgt wenn KEINE Aktion erfolgt ...

Private Sub CommandButton1_Click()
   If CheckBox1 Then
      Worksheets("Tabelle2").Range("B7") = "Ja"
   Else
      Worksheets("Tabelle2").Range("B7") = "Nein"
   End If
'UserForm schließen
Unload Me

End Sub

dadurch wird beim Schliessen der UF der Status nochmals abgefragt

[leher]

Genau das wars!!

Vielen vielen Dank für eure Hilfe!!!

Ein schönes Wochenende,

leher