Ausgabe eines Checkboxwertes
27.02.2023 13:29:04
Frag
ich bin kein geübter VBA-Anwender und habe versucht, ein kleines Eingabeformular für eine Tabelle(Datenbank) zu erstellen. Das hat rudimentär funktioniert, doch in der Optimierungsphase möchte ich eine Checkbox einfügen, die mir ein "ja" oder "" übergibt. Daran scheitere ich und bekomme einen Laufzeitfehler 1004.
If Sheets("Eingabe").CheckBox1.Value = True Then
Sheets("Datenfelder").Select
ActiveSheet.Range("L" & ActiveSheet.Rows.Count).End(x1up).Select
Selection.Value = "ja"
'Else Sheets("Eingabe").CheckBox1.Value = False Then
'Sheets("Datenfelder").Select
'ActiveSheet.Range("L" & Active.Sheet.Rows.Count).End(x1up).Select
'Selection.Value = ""
End If
Der Laufzeitfehler triit in der fetten Zeile auf. Ist die Checkbox nicht ausgewählt läuft er drüber. Der ELSE-Teil ist noch auskommentiert, weil ich zunächst verschiedene Versuche mit diversen Codes? probiert habe.
z.B. .range.value = "JA" / active.cell.value = "JA" usw. führt zum immergleichen Laufzeitfehler.
Das Muster habe ich aus der Copy and Paste Struktur übernommen. Dazu stelle ich bestimmt später noch eine Frage zur Verschlankung, weil ich diesen Code für 20 Felder kopiert habe.
Sheets("Eingabe").Select
ActiveSheet.Range("C11:e11").Select
Selection.Copy
Sheets("Datenfelder").Select
ActiveSheet.Range("h" & ActiveSheet.Rows.Count).End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Eingabe").Select
Vielen Dank schon mal an diejenigen, die sich mit meinem Unvermögen befassen wollen.