schon wieder Thomas.
wer kann mir den Code so ändern,das die letzte Zahl die ich eingegeben habe,beim nächsten öffnen der UserForm +1 ist. Also wenn ich in der TextBox eine 1 eingegeben habe, soll beim nächsten öffnen der UserForm in der TextBox gleich eine 2 erscheinen.
Gruß Thomas
Private Sub CommandButton1_Click()
Dim frm As UserForm
Set frm = Test_drucken
Sheets("Bögen").Activate
Range("E1").Select
With frm
ActiveCell.Value = .TextBox1.Value
End With
End Sub