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
Hallo,
einfach das zweite "Ja" in "Nein" umschreiben hilft Dir nicht, oder möchtest Du etwas anderes wissen?
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
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.
Hallo,
Das ist keine gültige Angabe!
dessen bin ich mir bewusst. Ich hab auch dargestellt was ich bisher zusammen bekommen habe. Welche Angabe wäre denn richtig?
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
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
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.
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