Ich habe eine Userform mit einer Textbox (TextBox1)
die Daten der Textbox1 sollen in mein Sheet(1) in die Spalte A in immer die nächste frei Zeile!
das erledige ichmit diesem Code
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim z As Long
With Worksheets(1)
.Unprotect
z = Worksheets(1).Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Cells(z, "A") = TextBox1
.Protect
End With
TextBox1 = ""
Cancel = true
End Sub
Nun ist es aber so, das wenn ich die Textbox verlasse um in die UF zu klicken oder die UF verlasse und neu starte, nicht mehr in die nächste freie Zelle eingetragen wird sonder mehrere Zeilen darunter!Irgendwie ist jede Aktion die ich außerhalb der Textbox vornehme ein Event welches sich gemerkt wird und die nächste frei Zelle nicht mehr erkannt wird.
Kann mir jemand helfen oder einen Tip geben?
Ich bin ratlos!
LG Lisa