ich habe ein 2. Problem.
Wenn ich die Userform per Commandbutton starte, wird der Inhalt in der
Zelle P8 direkt gelöscht.
Wenn ich das Makro per P8 durchlaufen lasse nicht.
Erst wenn ich die Zahl in der Textbox eingegeben habe, wird nach ENTER
die Zahl in P8 gelöscht.
So sollte es ja sein.
Private Sub UserForm_Initialize()
TextBox3 = ActiveSheet.Range("M12").Value
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub TextBox3_AfterUpdate()
ActiveSheet.Range("M12") = TextBox3
TextBox3 = ActiveSheet.Range("M12").Value
ActiveSheet.Range("M12").Select
Selection = Selection.Value
ActiveSheet.Range("p8").ClearContents 'ClearContents
End Sub
mfg philipp