Private Sub cmdButtonA_Click() frmEintragen.Tag = "A1" frmEintragen.Show End Sub
Private Sub cmdEintragen_Click() Range(Me.Tag).Value = txtEintragen.Value Unload Me End Sub