Hallo,
mein Code funkt nicht und ich komme einfach auf keine lösung. Manchmal schreibt es in die nächste Zeile, manchmal überschreibt es jedoch einfach wieder die erste Zeile. Er soll bei A2 anfangen in dem Sheet "Rückmeldung". Hoffe mir kann jemand helfen!!! merci vorab!
mein Code funkt nicht und ich komme einfach auf keine lösung. Manchmal schreibt es in die nächste Zeile, manchmal überschreibt es jedoch einfach wieder die erste Zeile. Er soll bei A2 anfangen in dem Sheet "Rückmeldung". Hoffe mir kann jemand helfen!!! merci vorab!
Visual Basic-Quellcode
- Private Sub CommandButton1_Click()
- 'Durch Klick auf den Button die Werte aus der Userform in die Zellen schreiben
- ActiveSheet.Unprotect Password:="TVD"
- Dim FinalRow As Integer
- FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
- FinalRow = ActiveCell.Row + 1
- Sheets("Rückmeldung").Range("A" & CStr(FinalRow)).Value = txt_datum.Text
- Sheets("Rückmeldung").Range("B" & CStr(FinalRow)).Value = cbx_typ.Text
- Sheets("Rückmeldung").Range("D" & CStr(FinalRow)).Value = cbx_fehler.Text
- Sheets("Rückmeldung").Range("F" & CStr(FinalRow)).Value = txt_bemerkung.Text
- Sheets("Rückmeldung").Range("G" & CStr(FinalRow)).Value = txt_menge.Text
- Sheets("Rückmeldung").Range("H" & CStr(FinalRow)).Value = txt_nacharbeit.Text
- Sheets("Rückmeldung").Range("I" & CStr(FinalRow)).Value = txt_verschrott.Text
- ActiveWorkbook.Save
- ActiveSheet.Protect Password:="TVD"
- Unload Me
- End Sub