Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: leher am Januar 19, 2012, 13:12:33 Nachmittag

Titel: Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: leher am Januar 19, 2012, 13:12:33 Nachmittag
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...
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: admin am Januar 19, 2012, 13:24:42 Nachmittag
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
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: Beverly am Januar 19, 2012, 15:44:35 Nachmittag
Hi,

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

Bis später,
Karin
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: leher am Januar 20, 2012, 09:18:23 Vormittag
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
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: Beverly am Januar 20, 2012, 09:27:40 Vormittag
Hi,

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

Bis später,
Karin
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: leher am Januar 20, 2012, 10:04:31 Vormittag
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

Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: ae am Januar 20, 2012, 10:12:37 Vormittag
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 !
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: leher am Januar 20, 2012, 10:22:06 Vormittag
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
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: ae am Januar 20, 2012, 10:22:32 Vormittag
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
Titel: Antw:Office 2007: wenn Kontrollkästchen in userform aktiviert, dann ja/nei
Beitrag von: leher am Januar 20, 2012, 10:36:27 Vormittag
Genau das wars!!

Vielen vielen Dank für eure Hilfe!!!

Ein schönes Wochenende,

leher