AW: Userform
03.11.2020 23:42:34
ralf_b
Mir ist aufgefallen, das du die Zelladresse mit dem Spinbuttonvalue durcheinander bringst.
Zitat: Habe ich nicht hinbekommen
Wenn Einträge über Toogle(Spin)button ausgewählt dann händisch eingegebene Werte ändern und über Button "Werte übernehmen" in Tabelle schreiben
Komisch, du kannst den Controls Werte aus den Zellen zuweisen aber die Umkehr nicht?
Zitat: Bei Start Userform erste freie Zeile anzeigen, das gleich eingegeben werden kann.
Leider hast du die lfd Nr schon vorgeschrieben, also muß die erste freie Zeile in der zweiten Datenspalte ermittelt werden. Hier AQQ
Ins Initialize der UF
TextBox1.Text = Cells(Rows.Count, "AQQ").End(xlUp).Offset(1, -1)
SpinButton1.Value = TextBox1.Value
und im spinbutton change
With SpinButton1
.Min = 1
.Max = Sheets("Nachhaltigkeit").Cells(32, "AQQ").End(xlDown).Offset(1, -1)
End With
der dritte Punkt ist mittels if Abfrage vor jedem Control einfach zu erledigen.
ungetestet!
if control = "" then control.setfocus : control.backcolor = vbyellow: exit sub