VBA Checkbox "JA" wenn aktiv

[derhanfti]

Hallo,

wenn ich in einer Userform die Checkbox auf aktiv setze soll in der nächsten Zelle "Ja" eingetragen werden und umgekehrt natürlich dann "Nein" stehen.

zur Zeit habe ich folgende Zeilen in die beigefügte Datei geschrieben, die sind natürlich falsch

Private Sub cbD13_Click()

   'Fügt "JA" - "NEIN" Werte der Haken in Tabelle ein
   x = cbD13.Value
   If cbD13.Value = True Then

       Cells(8, 5) = "Ja"
       Else
       Cells(8, 5) = "Ja"
   End If
End Sub

Jedoch komme ich nicht weiter, vielleicht könnt ihr mir hier helfen

[atilla]

Hallo,

einfach das zweite "Ja" in "Nein" umschreiben hilft Dir nicht, oder möchtest Du etwas anderes wissen?

[derhanfti]

Das die Wiedergabe in die nächste freie Zelle Ja oder Nein wiedergibt. Bsp. D13 aktiv ... Ja in Zelle 5 und Nein in Zelle 5 wenn diese deaktiviert ist. Und das das JA doppelt ist hab ich hinterher auch gesehen... danke für den Hinweis

[derhanfti]

Durch weiteres Basteln habe ich jetzt den folgendes

---

Dim intErsteLeereZeile As Long
   

   intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1


   'Fügt "Ja" - "Nein" -Werte durch Auswahl der Checkboxen hinzu
   If cbD13.Value = True Then Range(, 5).Value = "Ja"
   If cbD13.Value = False Then Range(, 5).Value = "Nein"

---

Nun sollen die Checkbox-Werte "Ja" oder "Nein" in die nächste freie Zeile in Zelle 5 geschrieben werden.

[BoskoBiati]

Hallo,

Code:

Range(, 5)

Das ist keine gültige Angabe!

[derhanfti]

dessen bin ich mir bewusst. Ich hab auch dargestellt was ich bisher zusammen bekommen habe. Welche Angabe wäre denn richtig?

[BoskoBiati]

Hallo,

1. Sind wir nicht im Chat. Eine Anrede und ein Gruß gehören wohl zu jedem Beitrag.
2. wenn Du Dir bewusst bist, dass Deine Schreibweise falsch ist, dann solltest Du sie korrigieren bevor Du etwas veröffentlichst!

Hier mal ein funktionierendes Muster für ein ActiveX-Steuerelement:

PHP-Code:

Private Sub CheckBox1_Click()
If CheckBox1 Then
Cells(1, 5) = "ja"
Else
Cells(1, 5) = "nein"
End If
End Sub 


[derhanfti]

Danke Edgar,

1. Da muss ich dir zustimmen und mich dafür entschuldigen.
2. Ich habe sie veröffentlich um dir (bzw.euch) schon einmal zu zeigen was ich schon habe und was ich meine. Ich bin leider kein doller Erklärbär

Vielen Dank für deinen Ansatz.

Ich möchte das der Wert in die letzte Zeile, in Spalte 5 geschrieben wird.

LG

[BoskoBiati]

Hallo,

dann ersetze bei cells den Zeilenwert durch die erste leere Zeile.
Variablen als Integer zu dimensionieren ist nicht notwendig, long reicht, da meines Wissens alle Integer-Variablen erst mal intern in Long umgewandelt werden und später wieder zurück.

[derhanfti]

Danke für den Tip,

Ich habe eine Userform wo mehrere Dinge wie Namen usw. abgefragt werden. Diese hab ich auch schon soweit hin bekommen.

Code:

Private Sub cmdEingabe_Click()

Dim intErsteLeereZeile As Long

   intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
       
   ActiveSheet.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
   ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtVorname.Value
   ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtNachname.Value
   ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtGeburtsdatum.Value

   If cbD13 Then
       Cells(E, 5) = "Ja"
       Else
       Cells(E, 5) = "Nein"
   End If
   
   Unload frmPatienteneingabe
End Sub

Nun versuch ich irgendwie die Checkboxen einzuarbeiten. Nur klappt das leider nicht so recht